;ELC ;;; compiled by ocschwar@mint-square.mit.edu on Fri Jun 16 17:21:48 2000 ;;; from file /var/tmp/bbdb-2.00.06/lisp/bbdb-mhe.el ;;; emacs version 21.1 (patch 4) "Arches" XEmacs Lucid. ;;; bytecomp version 2.25 XEmacs; 22-Mar-96. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 19. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`bbdb-mhe.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (byte-code "!!!!!" [require bbdb mh-e fboundp mh-version mh-comp advice] 2) #@36 Return a (numeric) key for MESSAGE (defalias 'bbdb/mh-cache-key '(macro . #[(message) " DDBBB" [let* attrs file-attributes message ((status-time (nth 6 attrs)) (status-time-2 (cdr status-time))) ((logxor (nth 10 attrs) (car status-time) (if (integerp status-time-2) status-time-2 (car status-time-2))))] 4 (#$ . 664)])) #@232 Returns the record corresponding to the current MH 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/mh-update-record #[(&optional offer-to-create) "q ! !8A 8@   @#+ a  AHH\"ΪA)!Ήۘ !Q!\"!ۘ !Q!\"&! $''p! 'BB@A')+))" [mh-show-buffer bbdb-use-pop-up bbdb/mh-pop-up-bbdb-buffer offer-to-create file-attributes buffer-file-name attrs 6 status-time status-time-2 logxor 10 msg 0 nil bbdb-records bbdb-message-caching-enabled bbdb-message-cache --cons-- 8 3 delq bbdb/mh-get-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 (#$ . 997)]) #@174 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/mh-annotate-sender #[(string &optional replace) " p` q! $\nq b*" [mh-show p b mh-show-buffer bbdb-annotate-notes bbdb/mh-update-record t string notes replace] 5 (#$ . 2062) (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/mh-edit-notes #[(&optional arg) " p` q!! \n C!  # \"*\nq b*" [mh-show p b mh-show-buffer nil bbdb/mh-update-record t error "" record bbdb-electric-p bbdb-display-records arg bbdb-record-edit-property bbdb-record-edit-notes] 4 (#$ . 2562) "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/mh-show-sender #[nil " p` q!C!!)\nq b*" [mh-show p b mh-show-buffer bbdb/mh-update-record t record bbdb-display-records error "unperson"] 3 (#$ . 2991) nil]) #@137 Make the *BBDB* buffer be displayed along with the MH window, displaying the record corresponding to the sender of the current message. (defalias 'bbdb/mh-pop-up-bbdb-buffer #[(&optional offer-to-create) "!É!!\n     C! -" [bbdb-pop-up-bbdb-buffer #[(w) "p\n!q aq)" [b window-buffer w major-mode mh-folder-mode] 2] t nil bbdb-electric-p bbdb-use-pop-up bbdb-gag-messages bbdb/mh-update-record offer-to-create boundp bbdb-pop-up-elided-display bbdb-elided-display record bbdb-display-records] 3 (#$ . 3323)]) (defalias 'bbdb/mh-get-field #[(field) "eb #Ū!Ū#ɔɕ{`\ny!yv!`\nX \n`{#*)" [nil case-fold-search re-search-forward field t "" looking-at "[ ]*$" "[ ]*\\([^ \n].*\\)$" 1 end-of-match "[ ]" backward-char format "%s%s"] 5]) (byte-code "$\"$\"$\"$\"$\"" [ad-add-advice mh-process-commands (mh-bbdb-process nil t (advice lambda nil (bbdb-offer-save))) after nil ad-activate-on mh-send (mh-bbdb-send nil t (advice lambda nil (interactive (list (bbdb-read-addresses-with-completion "To: ") (bbdb-read-addresses-with-completion "Cc: ") (read-string "Subject: "))))) before mh-send-other-window (mh-bbdb-send-other nil t (advice lambda nil (interactive (list (bbdb-read-addresses-with-completion "To: ") (bbdb-read-addresses-with-completion "Cc: ") (read-string "Subject: "))))) mh-forward (mh-bbdb-forward nil t (advice lambda nil (interactive (list (bbdb-read-addresses-with-completion "To: ") (bbdb-read-addresses-with-completion "Cc: ") (if current-prefix-arg (mh-read-seq-default "Forward" t) (mh-get-msg-num t)))))) mh-redistribute (mh-bbdb-redist nil t (advice lambda nil (interactive (list (bbdb-read-addresses-with-completion "Redist-To: ") (bbdb-read-addresses-with-completion "Redist-Cc: ") (mh-get-msg-num t)))))] 5) #@44 Call this function to hook BBDB into MH-E. (defalias 'bbdb-insinuate-mh #[nil " # #\" #" [define-key mh-folder-mode-map ":" bbdb/mh-show-sender ";" bbdb/mh-edit-notes add-hook mh-show-hook bbdb/mh-update-record mh-letter-mode-map " " bbdb-complete-name] 4 (#$ . 5192)]) (provide 'bbdb-mhe)