;ELC ;;; Compiled by daveg@contents-vnder-pressvre.mit.edu on Wed Dec 27 15:22:09 2006 ;;; from file /afs/sipb.mit.edu/user/daveg/el/bbdb/lisp/bbdb-whois.el ;;; in Emacs version 21.4.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (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 'bbdb-com) (defalias 'bbdb-add-to-field '(macro . #[(record field text) "\305\306\307!P!\305\310\307!P!\311\312\n DD\304\fDD\313\314 \315BBEE*\207" [field set get record text intern "bbdb-record-" symbol-name "bbdb-record-set-" let old or (member text old) ((nconc old (list text)))] 7])) #@36 *Server for \[bbdb-whois] lookups. (custom-declare-variable 'bbdb-whois-server '(or (and (boundp 'whois-server) whois-server) "rs.internic.net") '(#$ . -949) :group 'bbdb-utilities :type 'string) (defalias 'bbdb-whois #[(the-record &optional server) "\204 \n\305H\204\n\306H\205N\212\307\310!q\210\311\312!\nL\210\311\304!\313\n\314\"\2031\315\313\n\314\"P\2029\n\305H\316\n\306HQL\210\317\320p\321$\322 \323\"\210\324 \f\325P\"*\207" [server bbdb-whois-server the-record proc bbdb-whois-name 1 0 generate-new-buffer " *bbdb-whois*" make-local-variable bbdb-whois-record bbdb-record-getprop nic "!" ", " open-network-stream "whois" 43 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) "\212\306\307 !q\210\n\310b\210\311\312\306\313#\203\314\315 \"\210\202\316\317\320\"\210\310b\210\321\322\323 \"\2039\324\325 \310\306O!\326Q\202>\325 !\327P\330P\306\313#\203\331\224\205Q\331\224\331\225{\227\310\224\310\225{\306\2117\203{\332H78989\235\204z\33298C\244I\210*\333\305 #\210\310y\210\334 \210`\306\210`{\335H9:9\204\242\335:I\210\202\2619:\230\204\261\333\336:#\210*\310y\210\337\340!\204\312\334 \210`\306\210`{\fB\202\262\f@\203\377\341\f@\342H\"\204\374\343\344\f@\";\342H;8989\235\204\373\34298C\244I\210+\fA\f@\203\241\345<\306\"\346\211\306=>?@\322\347\f@\"\203<\f@\310\224\310\225O?\f@\331\224\331\225O>\350\f@\335\224\335\225O!=\fA@\351\352I\210@\342?I\210@\353>I\210@\332=I\210\f\237@\310\f@\206c\346I\210\fA@\331\f@\206q\346I\210\fA@\335\f@\206\346I\210\fA\353H@8989\235\204\237\35398C\244I\210.\306\310y\210\334 \210\337\354!\204\343\337\355!\203\327\332H\310\224\310\225{8989\235\204\323\33298C\244I\210*\202\243`\306\210`{\fB\202\243\f\203\362\333\356\357\360\f\237\320##\210\321\361\306\313#\203\333\362\310\224\310\225{#\210\212Aq\210\363!\210,\202\314\364 \"\210\365 !\210\366p!*\207" [rec proc bbdb-whois-record bbdb-whois-name lines nic nil process-buffer 1 search-forward "To single out one record" t message "%s is ambiguous to whois; try a different name" replace-string " \n" "\n" re-search-forward string-match "^!" "(\\(" regexp-quote "\\))" ".*(\\([A-Z0-9]+\\))" "\\s *\\(\\S +@\\S +\\)?$" 2 6 bbdb-record-putprop back-to-indentation 3 nic-organization looking-at "^$" bbdb-find-phone 4 vector "phone" make-vector "" "\\([^,]+\\),\\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-redisplay-one-record "No whois information for %s" delete-process kill-buffer net text old company phone-number bbdb-address-length zip state city addr bbdb-buffer-name] 8]) #@71 Return the vector entry if STRING is a phone number listed in RECORD. (defalias 'bbdb-find-phone #[(string record) "\304\211\n\203 \204 \n@ \305 !\230\203 \nA\211\204*\207" [done phone record string nil bbdb-phone-string] 4 (#$ . 4107)]) (provide 'bbdb-whois)