;ELC ;;; Compiled by nelhage@localhost.localdomain on Tue Dec 13 12:19:32 2005 ;;; from file /home/nelhage/Desktop/bbdb-2.34/lisp/bbdb-gnus.el ;;; in Emacs version 22.0.50.7 ;;; 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-gnus.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\217\207" [require bbdb bbdb-snarf gnus bbdb-com rfc822 error (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require gnus-win gnus-sum gnus-art] 2) ((error))] 3) #@47 Return the message-id of the current message. (defalias 'bbdb/gnus-get-message-id #[nil "\212\303!q\210 q\210eb\210\304\305\306d\304#\205\307\310!*\207" [gnus-article-buffer gnus-original-article-buffer case-fold-search get-buffer t re-search-forward "^Message-ID:\\s-*\\(<.+>\\)" match-string 1] 4 (#$ . 857)]) #@420 Controls how `bbdb/gnus-update-records' processes email addresses. Set this to an expression which evaluates either to 'searching or 'annotating. When set to 'annotating email addresses will be fed to `bbdb-annotate-message-sender' in order to update existing records or create new ones. A value of 'searching will search just for existing records having the right net. The default is to annotate only new messages. (custom-declare-variable 'bbdb/gnus-update-records-mode ''annotating '(#$ . 1180) :group 'bbdb-mua-specific-gnus :type '(choice (const :tag "annotating all messages" annotating) (const :tag "annotating no messages" searching) (const :tag "annotating only new messages" (if (equal "" (gnus-summary-article-mark (gnus-summary-article-number))) 'annotating 'searching)) (sexp :tag "user defined"))) #@232 Return 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) "\303\304 !\211\205\f\n@*\207" [bbdb-get-only-first-address-p offer-to-create records t bbdb/gnus-update-records] 3 (#$ . 2002)]) #@549 Return the records 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. The variable `bbdb/gnus-update-records-mode' controls what actions are performed and it might override `bbdb-update-records-mode'. When hitting C-g once you will not be asked anymore for new people listed in this message, but it will search only for existing records. When hitting C-g again it will stop scanning. (defalias 'bbdb/gnus-update-records #[(&optional offer-to-create) "\206 \n\306 \307\211\212\310!q\210 \203$\204$\311 ! \2038\2033 @C\2024 \202e\206= \312\313\314\315!\203M \206O\316#\n#)\203e \203e\317 \f\"\210)\f-\207" [bbdb/gnus-update-records-mode bbdb-update-records-mode offer-to-create cache records msg-id bbdb/gnus-get-message-id nil get-buffer bbdb-message-cache-lookup bbdb-update-records bbdb-get-addresses boundp gnus-ignored-from-addresses mail-fetch-field bbdb-encache-message bbdb/gnus-offer-to-create gnus-article-buffer bbdb-get-only-first-address-p bbdb-user-mail-names bbdb/news-auto-create-p bbdb-message-caching-enabled] 5 (#$ . 2438)]) #@173 Add a line to the end of the Notes field of the BBDB record corresponding to the sender of this message. If REPLACE is non-nil, replace the existing notes entry (if any). (defalias 'bbdb/gnus-annotate-sender #[(string &optional replace) "\302 \210\303\304\305!\306 $\207" [string replace gnus-summary-select-article bbdb-annotate-notes bbdb/gnus-update-record t notes] 5 (#$ . 3691) (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) "\302 \210\303\304!\206\f\305\306!\307C!\210 \203\310\311\304#\202\"\312\304\")\207" [record arg gnus-summary-select-article bbdb/gnus-update-record t error "unperson" bbdb-display-records bbdb-record-edit-property nil bbdb-record-edit-notes] 4 (#$ . 4199) "P"]) #@134 Display the contents of the BBDB for all addresses of this message. This buffer will be in `bbdb-mode', with associated keybindings. (defalias 'bbdb/gnus-show-records #[(&optional address-class) "\306 \210\203\307 \"C\202 \310\311\211\211\211\312\313!\211\203+\314\n!\210\202.\315 \210\n.\207" [address-class bbdb-get-addresses-headers records gnus-ignored-from-addresses bbdb-user-mail-names bbdb-message-cache gnus-summary-select-article assoc annotating nil bbdb/gnus-update-records t bbdb-display-records bbdb-undisplay-records bbdb/gnus-update-records-mode] 7 (#$ . 4656) nil]) #@76 Show all recipients of this message. Counterpart to `bbdb/vm-show-sender'. (defalias 'bbdb/gnus-show-all-recipients #[nil "\300\301!\207" [bbdb/gnus-show-records recipients] 2 (#$ . 5262) nil]) #@228 Display the contents of the BBDB for the senders of this message. With a prefix argument show the recipients instead, with two prefix arguments show all records. This buffer will be in `bbdb-mode', with associated keybindings. (defalias 'bbdb/gnus-show-sender #[(&optional show-recipients) "\301U\203 \302 \207\303U\203\304 \207\304\305!?\205\302 \207" [show-recipients 4 bbdb/gnus-show-all-recipients 16 bbdb/gnus-show-records authors] 2 (#$ . 5463) "p"]) #@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) "\306\307!\310\f\203fp\n\203\311\312!\210\202X\204X\313!\203X\310\314 \210\315\236\2039\316\315!\210\202=\316\317!\210\313\320\321!\203I\202K!\211\203W\322!\210) q\210)\n\203f\323\n\"\210\n+\207" [offer-to-create bbdb-electric-p records bbdb-gag-messages bbdb-use-pop-up b t bbdb/gnus-update-records nil bbdb-pop-up-bbdb-buffer #[(w) "p\303 !q\210\n\304=\206\n\305=q\210)\207" [b w major-mode window-buffer gnus-Article-mode gnus-article-mode] 2] get-buffer-window delete-other-windows article gnus-configure-windows SelectArticle boundp gnus-summary-buffer select-window bbdb-display-records bbdb-inside-electric-display bbdb-buffer-name w gnus-buffer-configuration gnus-Subject-buffer bbdb-pop-up-display-layout] 3 (#$ . 5934)]) #@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. (custom-declare-variable 'bbdb/gnus-lines-and-from-length '18 '(#$ . -6920) :group 'bbdb-mua-specific-gnus :type 'integer) #@464 *If t, mark messages created by people with records in the BBDB. In GNUS, this marking will take place in the subject list (assuming `gnus-optional-headers' contains `bbdb/gnus-lines-and-from'). In Gnus, the marking will take place in the Summary buffer if the format code defined by `bbdb/gnus-summary-user-format-letter' is used in `gnus-summary-line-format'. This variable has no effect on the marking controlled by `bbdb/gnus-summary-in-bbdb-format-letter'. (custom-declare-variable 'bbdb/gnus-summary-mark-known-posters 't '(#$ . -7180) :group 'bbdb-mua-specific-gnus :type '(choice (const :tag "Mark known posters" t) (const :tag "Do not mark known posters" nil))) (defvaralias 'bbdb/gnus-mark-known-posters 'bbdb/gnus-summary-mark-known-posters) #@223 This is the default character to prefix author names with if bbdb/gnus-summary-mark-known-posters is t. If the poster's record has an entry in the field named by bbdb-message-marker-field, then that will be used instead. (custom-declare-variable 'bbdb/gnus-summary-known-poster-mark '"+" '(#$ . 7941) :group 'bbdb-mua-specific-gnus :type 'character) #@405 *If both this variable and `bbdb/gnus-summary-prefer-real-names' are true, then for messages from authors 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' for GNUS users.) (custom-declare-variable 'bbdb/gnus-summary-show-bbdb-names 't '(#$ . -8299) :group 'bbdb-mua-specific-gnus :type 'boolean) (defvaralias 'bbdb/gnus-header-show-bbdb-names 'bbdb/gnus-summary-show-bbdb-names) #@122 If t, then for posters who are in our BBDB, replace the information provided in the From header with data from the BBDB. (custom-declare-variable 'bbdb/gnus-summary-prefer-bbdb-data 't '(#$ . 8917) :group 'bbdb-mua-specific-gnus :type 'boolean) #@448 If t, then display the poster's name from the BBDB if we have one, otherwise display his/her primary net address if we have one. If it is set to the symbol bbdb, then real names will be used from the BBDB if present, otherwise the net address in the post will be used. If bbdb/gnus-summary-prefer-bbdb-data is nil, then this has no effect. See `bbdb/gnus-lines-and-from' for GNUS users, or `bbdb/gnus-summary-user-format-letter' for Gnus users. (custom-declare-variable 'bbdb/gnus-summary-prefer-real-names 't '(#$ . 9169) :group 'bbdb-mua-specific-gnus :type '(choice (const :tag "Prefer real names" t) (const :tag "Prefer network addresses" nil))) (defvaralias 'bbdb/gnus-header-prefer-real-names 'bbdb/gnus-summary-prefer-real-names) #@606 This is the gnus-user-format-function- that will be used to insert the information from the BBDB in the summary buffer (using `bbdb/gnus-summary-get-author'). This format code is meant to replace codes that insert sender names or addresses (like %A or %n). Unless you've already got other code using user format B, you might as well stick with the default. Additionally, if the value of this variable is nil, no format function will be installed for `bbdb/gnus-summary-get-author'. See also `bbdb/gnus-summary-in-bbdb-format-letter', which installs a format code for `bbdb/gnus-summary-author-in-bbdb' (custom-declare-variable 'bbdb/gnus-summary-user-format-letter '"B" '(#$ . 9915) :group 'bbdb-mua-specific-gnus :type 'character) #@422 This is the gnus-user-format-function- that will be used to insert `bbdb/gnus-summary-known-poster-mark' (using `bbdb/gnus-summary-author-in-bbdb') if the poster is in the BBDB, and " " if not. If the value of this variable is nil, no format code will be installed for `bbdb/gnus-summary-author-in-bbdb'. See also `bbdb/gnus-summary-user-format-letter', which installs a format code for `bbdb/gnus-summary-get-author'. (custom-declare-variable 'bbdb/gnus-summary-in-bbdb-format-letter '"b" '(#$ . 10657) :group 'bbdb-mua-specific-gnus :type 'character) #@76 *The field whose value will be used to mark messages by this user in Gnus. (custom-declare-variable 'bbdb-message-marker-field ''mark-char '(#$ . -11218) :group 'bbdb-mua-specific-gnus :type 'symbol) #@526 Given a Gnus message header, returns the appropriate piece of information to identify the author in a Gnus summary line, depending on the settings of the various configuration variables. See the documentation for the following variables for more details: `bbdb/gnus-summary-mark-known-posters' `bbdb/gnus-summary-known-poster-mark' `bbdb/gnus-summary-prefer-bbdb-data' `bbdb/gnus-summary-prefer-real-names' This function is meant to be used with the user function defined in `bbdb/gnus-summary-user-format-letter' (defalias 'bbdb/gnus-summary-get-author #[(header) "\306H\n\205\f\307\310\311\217\211@ A@ \205E\f \203(\203(\312 !\202) \211G\313=\2034\307 G\313=\203=\307\314\315!\210\f\205\221\316\f\227r\317 q\210\314\307\315\"\210)\"J\307\203\216@\f\227\320!\206w\321H\206w\322\227\230\203\205\323C\"A)\202\\* ;\203\253\316 \227r\317 q\210\314\307\315\"\210)\"J\202\326\307 \203\323\204\323\316 @\227r\317 q\210\314\307\315\"\210)\"J A\211\204\262)\307 !\211\"\203\346!\204\374\"\203\361\"@\206D!\205D!@\202D\"\203B\"@!#$#\203.#@$=\203%\307\211#\"$ \202\n#A\211#\204\"\203;\"A\"\202>$\210*\202\374 -\211%\203\\\f\203\\\f\227%\324H\235\203\\\307%&\203\206'\203r%\203r\320%!\206\243%\203\206%\324H\203\206%\324H@\206\243'\203\232'\325\232\203\226 \206\243\f\206\243 \206\243 \206\243\326\327\330%\203\276(\203\276\331%)\"\206\277*\206\277\332\f#-\207" [header from bbdb/gnus-summary-show-bbdb-names data name net 2 nil (mail-extract-address-components from) ((error)) bbdb-canonicalize-address 0 bbdb-records t intern-soft bbdb-buffer bbdb-record-name 3 "" append 6 bbdb "**UNKNOWN**" format "%s%s" bbdb-record-getprop " " bbdb-canonicalize-net-hook bbdb-hashtable answer recs n-rec ret net-recs name-recs nets name-rec record bbdb/gnus-summary-prefer-bbdb-data bbdb/gnus-summary-prefer-real-names bbdb/gnus-summary-mark-known-posters bbdb-message-marker-field bbdb/gnus-summary-known-poster-mark] 8 (#$ . 11425)]) #@302 Given a Gnus message header, returns a mark if the poster is in the BBDB, " " otherwise. The mark itself is the value of the field indicated by `bbdb-message-marker-field' (`mark-char' by default) if the indicated field is in the poster's record, and `bbdb/gnus-summary-known-poster-mark' otherwise. (defalias 'bbdb/gnus-summary-author-in-bbdb #[(header) "\306H\307\310\311\217\211@\n\211A@)\307\n\203[ \203*\203*\312 !\202+ \211G\313=\2036\307 G\313=\203?\307\314\315!\210 \205\223\316 \227r\317 q\210\314\307\315\"\210)\"J\307\203\220@ \227\320!\206y\321H\206y\322\227\230\203\207\323C\"A)\202^* ;\203\255\316 \227r\317 q\210\314\307\315\"\210)\"J\202\330\307 \203\325\204\325\316 @\227r\317 q\210\314\307\315\"\210)\"J A\211\204\264)\307\211\203\350\204\376\203\363@\206F\205F@\202F\203D@ \2030@ =\203'\307\211 \202\fA\211\204\203=A\202@ \210*\202\376-\211\203[\324!\"\206\\\"\202\\\325-\207" [header from data name x net 2 nil (mail-extract-address-components from) ((error)) bbdb-canonicalize-address 0 bbdb-records t intern-soft bbdb-buffer bbdb-record-name 3 "" append bbdb-record-getprop " " record bbdb-canonicalize-net-hook bbdb-hashtable answer recs n-rec ret net-recs name-recs nets name-rec bbdb-message-marker-field bbdb/gnus-summary-known-poster-mark] 8 (#$ . 13507)]) #@58 Snarf signature from the corresponding *Article* buffer. (defalias 'bbdb/gnus-snarf-signature #[nil "\212\204 \301\302!\210q\210\214\303 \204\301\304!\210\305ed\"*\207" [gnus-article-buffer error "Not in Gnus!" gnus-article-narrow-to-signature "No signature!" bbdb-snarf-region] 3 (#$ . 14945) nil]) #@135 This variable contains the name of the BBDB field which should be checked for a score to add to the net addresses in the same record. (custom-declare-variable 'bbdb/gnus-score-field ''gnus-score '(#$ . 15257) :group 'bbdb-mua-specific-gnus-scoring :type 'symbol) #@175 If this is set, then every net address in the BBDB that does not have an associated score field will be assigned this score. A value of nil implies a default score of zero. (custom-declare-variable 'bbdb/gnus-score-default 'nil '(#$ . 15527) :group 'bbdb-mua-specific-gnus-scoring :type '(choice (const :tag "Do not assign default score") (integer :tag "Assign this default score" 0))) #@155 Internal variable for detecting changes to `bbdb/gnus-score-default'. You should not set this variable directly - set `bbdb/gnus-score-default' instead. (defvar bbdb/gnus-score-default-internal nil (#$ . 15921)) #@116 The text version of the scoring structure returned by bbdb/gnus-score. This is built automatically from the BBDB. (defvar bbdb/gnus-score-alist nil (#$ . 16141)) #@175 Set to t to rebuild bbdb/gnus-score-alist on the next call to bbdb/gnus-score. This will be set automatically if you change a BBDB record which contains a gnus-score field. (defvar bbdb/gnus-score-rebuild-alist t (#$ . 16311)) #@156 This function is called through `bbdb-after-change-hook', and sets `bbdb/gnus-score-rebuild-alist' to t if the changed record contains a gnus-score field. (defalias 'bbdb/gnus-score-invalidate-alist #[(rec) "\303 \"\205\n\304\211\207" [rec bbdb/gnus-score-field bbdb/gnus-score-rebuild-alist bbdb-record-getprop t] 3 (#$ . 16546)]) #@345 This returns a score alist for GNUS. A score pair will be made for every member of the net field in records which also have a gnus-score field. This allows the BBDB to serve as a supplemental global score file, with the advantage that it can keep up with multiple and changing addresses better than the traditionally static global scorefile. (defalias 'bbdb/gnus-score #[(group) "\300\301\302\217CC\207" [nil (byte-code "\301\302!!\207" [group read bbdb/gnus-score-as-text] 3) ((error (byte-code "\301\302\303!\210\304 \210\305\306!\210\307\207" [bbdb/gnus-score-rebuild-alist t message "Problem building BBDB score table." ding sit-for 2 nil] 2)))] 3 (#$ . 16888)]) #@57 Returns a SCORE file format string built from the BBDB. (defalias 'bbdb/gnus-score-as-text #[(group) "\206\304 \206\n\304U\204\202\n\203 \203'\305\306\307\310\311 \312#\313Q\n\207" [bbdb/gnus-score-default bbdb/gnus-score-default-internal bbdb/gnus-score-alist bbdb/gnus-score-rebuild-alist 0 nil "((touched nil) (\"from\"\n" mapconcat #[(rec) "\305 \"\206\n\306H\211\205 \205\307\310 \311#*\207" [rec bbdb/gnus-score-field bbdb/gnus-score-default net score bbdb-record-getprop 6 mapconcat #[(addr) "\302\303 #\207" [addr score format "(\"%s\" %s)\n"] 4] ""] 5] bbdb-records "" "))"] 5 (#$ . 17565)]) #@57 Display BBDB records for all recipients of the message. (defalias 'bbdb/gnus-summary-show-all-recipients #[(not-elided) "\305 \210?\206 \206 \n\306\307\306!\210\fq\210\310 *\207" [not-elided bbdb-pop-up-display-layout bbdb-display-layout bbdb-auto-notes-alist gnus-article-buffer gnus-summary-select-article nil bbdb/gnus-pop-up-bbdb-buffer bbdb-show-all-recipients] 2 (#$ . 18198) "P"]) #@322 *If the BBDB doesn't indicate any group to spool a message to, it will be spooled to this group. If bbdb/gnus-split-crosspost-default is not nil, and if the BBDB did not indicate a specific group for one or more addresses, messages will be crossposted to this group in addition to any group(s) which the BBDB indicated. (custom-declare-variable 'bbdb/gnus-split-default-group '"mail.misc" '(#$ . -18599) :group 'bbdb-mua-specific-gnus-splitting :type 'string) #@228 *This function will be called after searching the BBDB if no place to file the message could be found. It should return a group name (or list of group names) -- nnmail-split-fancy as provided with Gnus is an excellent choice. (custom-declare-variable 'bbdb/gnus-split-nomatch-function 'nil '(#$ . -19067) :group 'bbdb-mua-specific-gnus-splitting :type 'function) #@332 *This regular expression should match your address as found in the From header of your mail. You should make sure gnus-local-domain or gnus-use-generic-from are set before loading this module, if they differ from (system-name). If you send mail/news from multiple addresses, then you'll likely have to set this yourself anyways. (custom-declare-variable 'bbdb/gnus-split-myaddr-regexp '(concat "^" (user-login-name) "$\\|^" (user-login-name) "@\\([-a-z0-9]+\\.\\)*" (or gnus-local-domain (message-make-domain) (system-name) "") "$") '(#$ . -19438) :group 'bbdb-mua-specific-gnus-splitting :type 'string) #@210 *If this variable is not nil, then if the BBDB could not identify a group for every mail address, messages will be filed in bbdb/gnus-split-default-group in addition to any group(s) which the BBDB identified. (custom-declare-variable 'bbdb/gnus-split-crosspost-default 'nil '(#$ . -20051) :group 'bbdb-mua-specific-gnus-splitting :type 'boolean) #@215 *This variable is used to determine the field to reference to find the associated group when saving private mail for a network address known to the BBDB. The value of the field should be the name of a mail group. (custom-declare-variable 'bbdb/gnus-split-private-field ''gnus-private '(#$ . -20404) :group 'bbdb-mua-specific-gnus-splitting :type 'string) #@385 *This variable is used to determine the field to reference to find the associated group when saving non-private mail (received from a mailing list) for a network address known to the BBDB. The value of the field should be the name of a mail group, followed by a space, and a regular expression to match on the envelope sender to verify that this mail came from the list in question. (custom-declare-variable 'bbdb/gnus-split-public-field ''gnus-public '(#$ . -20767) :group 'bbdb-mua-specific-gnus-splitting :type 'string) #@286 This function expects to be called in a buffer which contains a mail message to be spooled, and the buffer should be narrowed to the message headers. It returns a list of groups to which the message should be spooled, using the addresses in the headers and information from the BBDB. (defalias 'bbdb/gnus-split-method #[nil "\306\307B\310\307B\311\307B\312\307BF\313\314!\206\315 \316 \317\"\211A8\n@\307B\241\210*\313\320\307\317#\321\313\322\307\317#\323\313\324\307\317#\260\206>\325\326 !\211\203h\316 @!\211A8\n@ \235\204` \n@ AB\241\210* A\211\204G)\327!\211\203~@A\204~A\211\204q@A\203\236@A\fC\232\203\230 9\203\230\330 !\204\236@A\202\243eb\210 )\207" [prq hdr rv pr bbdb/gnus-split-default-group bbdb/gnus-split-nomatch-function 0 nil 1 2 3 mail-fetch-field "from" user-login-name bbdb/gnus-split-to-group t "to" ", " "cc" ", " "apparently-to" "" rfc822-addresses reverse fboundp] 9 (#$ . 21298)]) #@129 This function is called from bbdb/gnus-split-method in order to determine the group and spooling priority for a single address. (defalias 'bbdb/gnus-split-to-group #[(addr &optional source) "\300\301\302\217\207" [tmp (byte-code "\306!\211@ \204 A@\202\307 A@!\n\f\211G\310=\203$\311\fG\310=\203-\311\312\313!\210 \205\201\314 \227r\315 q\210\312\311\313\"\210)\"J\311\203~@ \227\316!\206g\317H\206g\320\227\230\203u\321C\"A)\202L*\f;\203\233\314\f\227r\315 q\210\312\311\313\"\210)\"J\202\306\311\f\203\303\204\303\314\f@\227r\315 q\210\312\311\313\"\210)\"J\fA\211\204\242)\311\211 \203\326\204\354 \203\341 @\2064\2054@\2024 \2032 @!\"!\203!@\"=\203\311\211! \"\202\372!A\211!\204\377 \203+ A \202.\"\210*\202\354-#\311\211$%\311&#\203~\322#'\"%\322#(\"\211$\203{)\204{\323\324$\"\203{$\325\224\325\225O&$\326\224\326\225O$\202~\311$&\203\250$\203\250eb\203\250\327\330\311\313#\203\250\323&\326\224\326\225{\"\203\250$\317B\202\357%\203\315%\326)\203\271\331\202\272\310Z\323*\f\"\203\307\326\202\310\310ZB\202\357+\323*\f\"\203\333\310\202\356)\203\344\325\202\356,\203\355\326\202\356\310B.\207" [addr tmp nam bbdb-canonicalize-net-hook net name mail-extract-address-components bbdb-canonicalize-address 0 nil bbdb-records t intern-soft bbdb-buffer bbdb-record-name 3 "" append bbdb-record-getprop string-match "^\\([^ ]+\\) \\(.*\\)$" 2 1 re-search-forward "^From: \\([^ \n]+\\)[ \n]" -1 bbdb-hashtable answer recs n-rec ret net-recs name-recs nets name-rec rec pub prv rgx bbdb/gnus-split-private-field bbdb/gnus-split-public-field source bbdb/gnus-split-myaddr-regexp bbdb/gnus-split-default-group bbdb/gnus-split-crosspost-default] 8) ((error (cons bbdb/gnus-split-default-group 0)))] 3 (#$ . 22248)]) #@44 Call this function to hook BBDB into GNUS. (defalias 'bbdb-insinuate-gnus #[nil "\306\307\310!\203'\311\310\312\"\210\311\313\314\"\210\315 \316\317#\210\315 \320\321#\210\315 \322\323#\210\202=\311\324\312\"\210\311\325\314\"\210\315\n\326\317#\210\315\n\327\323#\210\330\331 P!\330\332\fP!$ \203l\333$!\203g$K\334=\204g\335\336\337 \"!\210\202l$\334M\210\f\203\213\333 !\203\207 K\340=\204\207\335\336\341\f\"!\210\202\213 \340M\210*\311\342\343\"\207" [gnus-optional-headers gnus-Subject-mode-map gnus-summary-mode-map bbdb/gnus-summary-user-format-letter bbdb/gnus-summary-in-bbdb-format-letter in-bbdb-user-fun bbdb/gnus-lines-and-from boundp gnus-Article-prepare-hook add-hook bbdb/gnus-pop-up-bbdb-buffer gnus-Save-newsrc-hook bbdb-offer-save define-key ":" bbdb/gnus-show-sender [(control :)] bbdb/gnus-summary-show-all-recipients ";" bbdb/gnus-edit-notes gnus-article-prepare-hook gnus-save-newsrc-hook ":" ";" intern "gnus-user-format-function-" "gnus-user-format-function-" fboundp bbdb/gnus-summary-get-author bbdb-warn format "`gnus-user-format-function-%s' already seems to be in use.\nPlease redefine `bbdb/gnus-summary-user-format-letter' to a different letter." bbdb/gnus-summary-author-in-bbdb "`gnus-user-format-function-%s' already seems to be in use.\nRedefine `bbdb/gnus-summary-in-bbdb-format-letter' to a different letter." bbdb-after-change-hook bbdb/gnus-score-invalidate-alist get-author-user-fun] 4 (#$ . 24137)]) (provide 'bbdb-gnus)