;ELC ;;; compiled by amu@mit.edu on Fri May 16 19:37:25 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/bbdb-1.50/bbdb-rmail.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-rmail.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÀÂ!ˆÃÄ!„ÅÆ!ˆÀ‡" [require bbdb rmail fboundp rmail-make-summary-line load-library "rmailsum"] 2) #@235 returns the record corresponding to the current RMAIL message, creating or modifying it as necessary. A record will be created if bbdb/mail-auto-create-p is non-nil, or if OFFER-TO-CREATE is true and the user confirms the creation. (defalias 'bbdb/rmail-update-record #[(&optional offer-to-create) "ƒÁ\n!‡ÃÄ!ƒ\fƒ\fqˆ …¯Æ ˆƒH ž‰ ƒA AÊHËHƒAÌ \"Í‚D A)†¯ŠÎÏ!͉‰ƒpÓ†hÕÖ× !ÕQ‰Ø!\"ƒzÎÙ!†x…®ÚÛÜ!†‹\n#ƒ«…­ßp!ˆ BB‰@A‚­),‡" [bbdb-use-pop-up bbdb/rmail-pop-up-bbdb-buffer offer-to-create boundp rmail-buffer rmail-current-message bbdb-records bbdb-message-caching-enabled bbdb-message-cache --cons-- 8 3 delq nil mail-fetch-field "from" net name from string-match bbdb-user-mail-names "\\b" regexp-quote user-login-name mail-strip-quoted-names "to" bbdb-annotate-message-sender t bbdb-invoke-hook-for-value bbdb/mail-auto-create-p --rec-- notice-buffer-with-cache] 6 (#$ . 606)]) #@107 Add a line to the end of the Notes field of the BBDB record corresponding to the sender of this message. (defalias 'bbdb/rmail-annotate-sender #[(string) "ÀÁ!ƒ ƒ qˆÂÃÄ! \"‡" [boundp rmail-buffer bbdb-annotate-notes bbdb/rmail-update-record t string] 3 (#$ . 1553) (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/rmail-edit-notes #[(&optional arg) "ÀÁ!† ÂÃ!Å\fC!ˆƒÇ\fÈÁ#‚ É\fÁ\")‡" [bbdb/rmail-update-record t error "" record bbdb-display-records arg bbdb-record-edit-property nil bbdb-record-edit-notes] 4 (#$ . 1945) "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/rmail-show-sender #[nil "ÀÁ!ƒ ƒ qˆÂÃ!‰ƒÅ\fC!‚ÆÇ!)‡" [boundp rmail-buffer bbdb/rmail-update-record t record bbdb-display-records error "unperson"] 3 (#$ . 2316) nil]) #@143 Make the *BBDB* buffer be displayed along with the RMAIL window(s), displaying the record corresponding to the sender of the current message. (defalias 'bbdb/rmail-pop-up-bbdb-buffer #[(&optional offer-to-create) "ÀÁ!ˆÂÉÇ!ÉÊ!ƒ\n‚ p\f  Î …, C!ˆ\fqˆ .‡" [bbdb-pop-up-bbdb-buffer #[(w) "pÁ\n!qˆ Ä=qˆ)‡" [b window-buffer w major-mode rmail-mode] 2] t nil bbdb-electric-p bbdb-use-pop-up bbdb-gag-messages bbdb/rmail-update-record offer-to-create boundp bbdb-pop-up-elided-display bbdb-elided-display b record bbdb-display-records] 3 (#$ . 2642)]) #@50 Actually erase all deleted messages in the file. (defalias 'bbdb/rmail-expunge #[nil "À ‡" [nil bbdb-message-cache bbdb-orig-rmail-expunge] 1 (#$ . 3215) nil]) #@127 Break up a digest message into its constituent messages. Leaves original message, deleted, before the undigestified messages. (defalias 'bbdb/undigestify-rmail-message #[nil "À ‡" [nil bbdb-message-cache bbdb-orig-undigestify-rmail-message] 1 (#$ . 3384) nil]) #@45 Call this function to hook BBDB into RMAIL. (defalias 'bbdb-insinuate-rmail #[nil "À ÂÃ#ˆÀ ÄÅ#ˆÀÂÃ#ˆÀÄÅ#ˆÇÈÉ\"ˆÊË!„*ËÌKMˆÌÍMˆÊÎ!„;ÏÎÐÑÒ$ˆÎK¢Ï=ƒJÓÎKA@!ˆÊÔ!„UÔÎKMˆÎÕM‡" [define-key rmail-mode-map ":" bbdb/rmail-show-sender ";" bbdb/rmail-edit-notes rmail-summary-mode-map bbdb-add-hook rmail-show-message-hook bbdb/rmail-update-record fboundp bbdb-orig-rmail-expunge rmail-expunge bbdb/rmail-expunge undigestify-rmail-message autoload "undigest" nil t load bbdb-orig-undigestify-rmail-message bbdb/undigestify-rmail-message] 5 (#$ . 3653)]) (provide (quote bbdb-rmail))