;ELC   
;;; compiled by amu@mit.edu on Fri May 16 19:37:15 1997
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/bbdb-1.50/bbdb-whois.el
;;; emacs version 19.30.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`bbdb-whois.el' was compiled for Emacs 19.29 or later"))


(require (quote bbdb-com))
(defalias 'bbdb-add-to-field '(macro . #[(record field text) "ÀÁÂ!P!ÀÄÂ!P!ÇÈ	DDÊ\nDDËÌ	ÍBBEE*‡" [intern "bbdb-record-" symbol-name field "bbdb-record-set-" set get let old record text or (member text old) ((nconc old (list text)))] 7]))
#@36 *Server for \[bbdb-whois] lookups.
(defvar bbdb-whois-server (byte-code "† Á‡" [whois-server "rs.internic.net"] 1) (#$ . -766))
(defalias 'bbdb-whois #[(the-record &optional server) "„ 	\nÃH„ \nÄH…R ŠÅÆ!qˆÇÈ!\nLˆÇÉ!Ê\nË\"ƒ1 ÌÊ\nË\"P‚9 \nÃHÍ\nÄHQLˆÎÏpÐ$ÒÓ\"ˆÔ	ÕP\"*‡" [server bbdb-whois-server the-record 1 0 generate-new-buffer " *bbdb-whois*" make-local-variable bbdb-whois-record bbdb-whois-name bbdb-record-getprop nic "!" ", " open-network-stream "whois" 43 proc set-process-sentinel bbdb-whois-sentinel process-send-string "\n"] 5 nil (list (if (string= bbdb-buffer-name (buffer-name)) (bbdb-current-record) (let (r (p "BBDB Whois: ")) (while (not r) (setq r (bbdb-completing-read-record p)) (if (not r) (ding)) (setq p "Not in the BBDB!  Whois: ")) r)) (and current-prefix-arg (read-string "Query whois server: " bbdb-whois-server)))])
(defalias 'bbdb-whois-sentinel #[(proc status) "ŠÀÂ!qˆ\fÅbˆÆÇÀÈ#ƒ ÉÊ\"ˆ‚<ÌÍÎ\"ˆÅbˆÏÐÑ\"ƒ< ÒÓÅÀO!ÔQ‚B Ó!ÕPÖPÀÈ#ƒ6×”…U ×”×•{—Å”Å•{À‰ƒ 	ÛH„€ 	ÛC¤Iˆ*Þ	Ù#ˆÅyˆß ˆ`Àˆ`{	àH!„© 	à!Iˆ‚¸ !˜„¸ Þ	â!#ˆ*Åyˆãä!„Ó ß ˆ`Àˆ`{B‚¹ @ƒå@	æH\"„çè@\")	æH)„	æC¤Iˆ+A@ƒÁê+À\"ì‰À-./0Ðñ@\"ƒQ@Å”Å•O/@×”×•O.ò@à”à•O!-A0óôIˆ0æ/Iˆ0õ.Iˆ0Û-IˆŸ0Å@†{ìIˆA0×@†ŒìIˆA0à@†ìIˆA	õH0„¿	õC¤Iˆ.ÀÅyˆß ˆãö!„ã÷!ƒø	ÛHÅ”Å•{„ô	ÛC¤Iˆ*‚Ä`Àˆ`{B‚ÄƒÞ	øùúŸÎ##ˆÏûÀÈ#ƒ)Þ	üÅ”Å•{#ˆŠ=qˆþ	!ˆ,‚<Éÿ\"ˆ@ !ˆA p!*‡" [nil rec process-buffer proc bbdb-whois-record 1 search-forward "To single out one record" t message "%s is ambiguous to whois; try a different name" bbdb-whois-name replace-string "\n" "\n" re-search-forward string-match "^!" "(\\(" regexp-quote "\\))" ".*(\\([A-Z0-9]+\\))" "\\s *\\(\\S +@\\S +\\)?$" 2 lines nic net 6 text old bbdb-record-putprop back-to-indentation 3 company nic-organization looking-at "^$" bbdb-find-phone 4 vector "phone" phone-number make-vector bbdb-address-length "" zip state city addr "\\([^,]+\\),\\s *\\(\\S +\\)\\s *\\([0-9-]+\\)" string-to-int 0 "address" 5 "$\\|Record last updated on" "Alternate mailbox: \\(\\S +\\)$" nic-notes mapconcat identity "Record last updated on \\(\\S *\\)\\." nic-updated bbdb-buffer-name bbdb-redisplay-one-record "No whois information for %s" delete-process kill-buffer] 8])
#@71 Return the vector entry if STRING is a phone number listed in RECORD.
(defalias 'bbdb-find-phone #[(string record) "À‰ƒ  	„  @\fÅ\n!˜ƒ \nA‰„ 	*‡" [nil done phone record string bbdb-phone-string] 4 (#$ . 3114)])
(provide (quote bbdb-whois))
