;ELC ;;; compiled by amu@mit.edu on Fri May 16 19:55:06 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/bbdb-1.50/bbdb-gnus.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-gnus.el' was compiled for Emacs 19.29 or later")) (byte-code "!!" [require bbdb gnus] 2) #@235 returns the record corresponding to the current GNUS message, creating or modifying it as necessary. A record will be created if bbdb/news-auto-create-p is non-nil, or if OFFER-TO-CREATE is true and the user confirms the creation. (defalias 'bbdb/gnus-update-record #[(&optional offer-to-create) "\n!q~eeb#!`Z}!) ; !9\n\n$)" [bbdb-use-pop-up bbdb/gnus-pop-up-bbdb-buffer offer-to-create "*Article*" search-forward "\n\n" nil t error "message unexists" 2 mail-fetch-field "from" from bbdb-annotate-message-sender bbdb-invoke-hook-for-value bbdb/news-auto-create-p] 6 (#$ . 535)]) #@107 Add a line to the end of the Notes field of the BBDB record corresponding to the sender of this message. (defalias 'bbdb/gnus-annotate-sender #[(string) "! \"" [bbdb-annotate-notes bbdb/gnus-update-record t string] 3 (#$ . 1162) (list (if bbdb-readonly-p (error "The Insidious Big Brother Database is read-only.") (read-string "Comments: ")))]) #@130 Edit the notes field or (with a prefix arg) a user-defined field of the BBDB record corresponding to the sender of this message. (defalias 'bbdb/gnus-edit-notes #[(&optional arg) "! !\fC!\f# \f\")" [bbdb/gnus-update-record t error "" record bbdb-display-records arg bbdb-record-edit-property nil bbdb-record-edit-notes] 4 (#$ . 1519) "P"]) #@129 Display the contents of the BBDB for the sender of this message. This buffer will be in bbdb-mode, with associated keybindings. (defalias 'bbdb/gnus-show-sender #[nil "!\nC!!)" [bbdb/gnus-update-record t record bbdb-display-records error "unperson"] 3 (#$ . 1888) nil]) #@140 Make the *BBDB* buffer be displayed along with the GNUS windows, displaying the record corresponding to the sender of the current message. (defalias 'bbdb/gnus-pop-up-bbdb-buffer #[(&optional offer-to-create) "!! p\n  /! C!nn!n O!S!!_a!m!)\nq ." [t nil bbdb-electric-p bbdb-use-pop-up bbdb-gag-messages bbdb/gnus-update-record offer-to-create boundp bbdb-pop-up-elided-display bbdb-elided-display b record bbdb-pop-up-bbdb-buffer #[(w) "p\n!q = =q)" [b window-buffer w major-mode gnus-Article-mode gnus-article-mode] 2] bbdb-display-records bbdb-inside-electric-display get-buffer-window bbdb-buffer-name w delete-other-windows article gnus-window-configuration gnus-configure-windows SelectArticle gnus-summary-buffer gnus-Subject-buffer select-window] 4 (#$ . 2179)]) #@131 *The number of characters used to display From: info in GNUS, if you have set gnus-optional-headers to 'bbdb/gnus-lines-and-from. (defvar bbdb/gnus-lines-and-from-length 18 (#$ . -3054)) #@142 *If T, then the GNUS subject list will display real names instead of network addresses (gnus-optional-headers is 'bbdb/gnus-lines-and-from.) (defvar bbdb/gnus-header-prefer-real-names nil (#$ . -3248)) #@217 *If T, then the GNUS subject list will contain an indication of those messages posted by people who have entries in the Insidious Big Brother Database (assuming gnus-optional-headers is 'bbdb/gnus-lines-and-from.) (defvar bbdb/gnus-mark-known-posters t (#$ . -3457)) #@382 *If both this variable and bbdb/gnus-header-prefer-real-names are true, then for messages from folks who are in your database, the name displayed will be the primary name in the database, rather than the one in the From line of the message. This doesn't affect the names of people who aren't in the database, of course. (gnus-optional-headers must be bbdb/gnus-lines-and-from.) (defvar bbdb/gnus-header-show-bbdb-names t (#$ . -3733)) #@76 *The field whose value will be used to mark messages by this user in GNUS. (defvar bbdb-message-marker-field (quote mark-char) (#$ . -4177)) #@47 Useful as the value of gnus-optional-headers. (defalias 'bbdb/gnus-lines-and-from #[(header) " ! !ˏ\f@ \fA@\f ==!? G=M G=X!  p֎|!|\"q\"+\"J;pݎ!\"q\"+\"J@pߎ!\"q\"+\"JA)* !\" < <  H< $WR R !Y Y  \" !  \" єIm  -\"\f $!G\" V! O\" W! \"Z\"P!. " [bbdb/gnus-lines-and-from-length length nntp-header-lines header lines nntp-header-from from bbdb/gnus-mark-known-posters bbdb/gnus-header-show-bbdb-names nil (mail-extract-address-components from) ((error)) data name net bbdb-canonicalize-net-hook bbdb-canonicalize-address 0 bbdb-records t intern-soft --bbdb-obuf-- ((set-buffer --bbdb-obuf--)) bbdb-buffer buffer-name find-file-noselect bbdb-file nowarn bbdb-hashtable ((set-buffer --bbdb-obuf--)) answer ((set-buffer --bbdb-obuf--)) record string L 6 bbdb/gnus-header-prefer-real-names bbdb-record-name string-match "[][]" copy-sequence 32 format "%s%3d:%s" bbdb-record-getprop bbdb-message-marker-field "*" " " make-string] 7 (#$ . 4324)]) #@44 Call this function to hook BBDB into GNUS. (defalias 'bbdb-insinuate-gnus #[nil "! \"\" # #\"\"##" [bbdb/gnus-lines-and-from gnus-optional-headers boundp gnus-Article-prepare-hook bbdb-add-hook bbdb/gnus-update-record gnus-Save-newsrc-hook bbdb-offer-save define-key gnus-Subject-mode-map ":" bbdb/gnus-show-sender ";" bbdb/gnus-edit-notes gnus-article-prepare-hook gnus-save-newsrc-hook gnus-summary-mode-map] 4 (#$ . 5605)]) (provide (quote bbdb-gnus))