;ELC ;;; compiled by amu@mit.edu on Fri May 16 19:55:11 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/bbdb-1.50/bbdb-vm.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-vm.el' was compiled for Emacs 19.29 or later")) (byte-code "!!!!!!!&!" [require bbdb vm fboundp vm-record-and-change-message-pointer load-library "vm-motion" vm-su-from "vm-summary" boundp vm-mode-map "vm-vars"] 2) #@232 returns the record corresponding to the current VM 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/vm-update-record #[(&optional offer-to-create) "q  !\f@ \n \fO\n HAHHH \" łKA)\n\nHH!q~\nHH\nHH}! !Q!A@\"! ! $!\f!p!\n!B B @A!)+,)" [vm-mail-buffer bbdb-use-pop-up bbdb/vm-pop-up-bbdb-buffer offer-to-create vm-message-pointer nil t inhibit-quit enable-local-variables inhibit-local-variables msg bbdb-records bbdb-message-caching-enabled bbdb-message-cache --cons-- 8 3 delq marker-buffer 0 mail-fetch-field "from" from string-match bbdb-user-mail-names "\\b" regexp-quote user-login-name mail-extract-address-components "to" bbdb-annotate-message-sender bbdb-invoke-hook-for-value bbdb/mail-auto-create-p --rec-- notice-buffer-with-cache] 6 (#$ . 684)]) #@107 Add a line to the end of the Notes field of the BBDB record corresponding to the sender of this message. (defalias 'bbdb/vm-annotate-sender #[(string) " !\f\"" [vm-follow-summary-cursor bbdb-annotate-notes bbdb/vm-update-record t string] 3 (#$ . 1738) (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/vm-edit-notes #[(&optional arg) " !\f! C! ## \")" [vm-follow-summary-cursor bbdb/vm-update-record t error "" record bbdb-display-records arg bbdb-record-edit-property nil bbdb-record-edit-notes] 4 (#$ . 2120) "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/vm-show-sender #[nil " ! C!!)" [vm-follow-summary-cursor bbdb/vm-update-record t record bbdb-display-records error "unperson"] 3 (#$ . 2511) nil]) #@140 Make the *BBDB* buffer be displayed along with the VM window(s), displaying the record corresponding to the sender of the current message. (defalias 'bbdb/vm-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 vm-mode] 2] t nil bbdb-electric-p bbdb-use-pop-up bbdb-gag-messages bbdb/vm-update-record offer-to-create boundp bbdb-pop-up-elided-display bbdb-elided-display b record bbdb-display-records] 3 (#$ . 2825)]) (defalias 'bbdb/vm-record-and-change-message-pointer #[(old new) " \n\"!" [bbdb-orig-vm-record-and-change-message-pointer old new bbdb/vm-update-record nil] 3]) #@100 Given a VM message returns the BBDB name of the sender. Respects vm-summary-uninteresting-senders. (defalias 'vm-summary-function-B #[(m &optional to-p) ". .!\"\"P,!!,!) :!>!!O K!!" [vm-summary-uninteresting-senders to-p nil case-fold-search string-match vm-su-from m vm-summary-uninteresting-senders-arrow vm-summary-function-B t bbdb/vm-alternate-full-name vm-su-full-name vm-su-to vm-su-to-names] 4 (#$ . 3553)]) (defalias 'bbdb/vm-alternate-full-name #[(address) "G=\nG=! S pɎ\n<\n!<\nD \"\nq\"+\"J\n\n;\npЎ\nv\n!v\n~ \"\nq\"+\"J\n\n@pҎ\n\n!\n \"\nq\"+\"J\nA)*\"!)" [address nil net name 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--)) entry bbdb-record-getprop mail-name bbdb-record-name] 7]) #@42 Call this function to hook BBDB into VM. (defalias 'bbdb-insinuate-vm #[nil "!\",!\",!'KMKM\n#\n#" [boundp vm-select-message-hook bbdb-add-hook bbdb/vm-update-record vm-show-message-hook fboundp bbdb-orig-vm-record-and-change-message-pointer vm-record-and-change-message-pointer bbdb/vm-record-and-change-message-pointer define-key vm-mode-map ":" bbdb/vm-show-sender ";" bbdb/vm-edit-notes] 4 (#$ . 4639)]) (provide (quote bbdb-vm))