I am using vm and bbdb and am trying to get the vm summary window to
show the to: field when I am the sender of the message. Could someone
tell me what I need to set, since I thought this was the default from
reading the docs?
I tried using the vm-uninteresting-headers stuff, but had problems
with bbdb then.
the relevant parts of .vm and .emacs are below:
;;; .emacs
;;;
(setq
;;; mail-archive-file-name (expand-file-name "~/folder/cork")
mail-self-blind t
mail-signature t
)
(autoload 'vm "vm" "Start VM on your primary inbox." t)
(autoload 'vm-other-frame "vm" "Like `vm' but starts in another frame." t)
(autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t)
(autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
(autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
(autoload 'vm-mail "vm" "Send a mail message using VM." t)
(autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)
(autoload 'bbdb "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-name "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-company "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-net "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-notes "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-insinuate-vm "bbdb-vm" "Hook BBDB into VM")
(autoload 'bbdb-insinuate-sendmail "bbdb" "Hook BBDB into sendmail")
(require 'mailabbrev)
(setq mail-setup-hook
'(lambda ()
(bbdb-insinuate-sendmail)
(bbdb-define-all-aliases)
(mail-abbrevs-setup)
))
;;; .vm -
(setq
vm-auto-folder-case-fold-search t
vm-auto-center-summary t
vm-auto-get-new-mail 150
vm-circular-folders nil
vm-confirm-mail-send nil
vm-crash-box (expand-file-name "~/.CRASH")
vm-delete-after-archiving t
vm-delete-after-bursting t
vm-delete-after-saving t
vm-delete-empty-folders t
vm-digest-burst-type "rfc1153"
vm-edit-message-mode 'indented-text-mode
vm-folder-directory (expand-file-name "~/folder/")
vm-follow-summary-cursor t
vm-forwarding-digest-type nil
vm-forwarding-subject-format "forwarded message from %F"
vm-included-text-prefix "> "
vm-inhibit-startup-message t
vm-jump-to-new-messages nil
vm-jump-to-unread-messages nil
vm-move-after-deleting 1
vm-mutable-windows t
vm-never-execute-automatically t
vm-preview-lines nil
vm-preview-read-messages nil
vm-primary-inbox (expand-file-name "~/.INBOX")
vm-print-command "mailp"
vm-print-command-switches '("-F -l")
vm-reply-ignored-addresses '("ITD@")
vm-reply-ignored-reply-tos '("[EMAIL PROTECTED]")
vm-reply-subject-prefix "Re: "
vm-skip-deleted-messages 1
vm-startup-with-summary t
vm-summary-format "%n %*%a %-17.17UB %-3.3w %2d %-3.3m %4l/%-5c %I\"%s\"
"
vm-summary-show-threads nil
;; seems to cause problems with bbdb?
;; vm-summary-uninteresting-senders "[EMAIL PROTECTED]"
vm-window-configuration-file (expand-file-name "~/.vm.windows")
)
(setq vm-invisible-header-regexp nil
vm-visible-headers
'("From:" "Sender:" "Resent-From" "To:" "Apparently-To:" "Cc:"
"Subject:" "Date:" "Resent-Date:")
)
(setq vm-included-text-discard-header-regexp nil
vm-included-text-headers '("From:" "Subject:" "Date:")
)
(setq vm-unforwarded-header-regexp nil
vm-forwarded-headers '("From:" "Subject:" "Date:")
)
(bbdb-insinuate-vm)
(setq
bbdb-canonicalize-redundant-nets-p t
bbdb-case-fold-search t
bbdb-default-area-code 202
bbdb-electric-p nil
bbdb-new-nets-always-primary t
bbdb-use-pop-up nil
)
(setq bbdb-change-hook 'bbdb-timestamp-hook)
(setq bbdb-auto-notes-alist
'(("Subject" (".*" last-subj 0 t))
("Organization" (".*" company 0 t))))
(setq bbdb-notice-hook 'bbdb-auto-notes-hook)
(add-hook 'vm-mail-mode-hook 'bbdb/vm-insinuate-sendmail)
(defun bbdb/vm-insinuate-sendmail ()
"Call this function to hook BBDB into VM's sendmail (M-X vm-mail)."
(define-key vm-mail-mode-map "\M-\t" 'bbdb-complete-name)
(define-key vm-mail-mode-map "\C-c\C-a" 'mail-interactive-insert-alias)
)
(define-key bbdb-mode-map "b" 'bbdb)
(define-key bbdb-mode-map "c" 'bbdb-create)
(setq bbdb/mail-auto-create-p 'bbdb-ignore-some-messages-hook)
(setq bbdb-ignore-some-messages-alist
'(
("From" . "daemon")
("From" . "postmaster")
("From" . "info-bbdb")
("From" . "LISTSERV@")
("To" . "info-bbdb")
("To" . "oldtools")
("To" . "mac-mgrs")
("To" . "grant")
("CC" . "info-bbdb")
("CC" . "oldtools")
("CC" . "mac-mgrs")
("X-Digest" . "MACSYSTM")
("X-Digest" . "Info-Mac")
("X-Digest" . "WORD-MAC")
("X-Digest" . "OLDTOOLS")
("Sender" . "[EMAIL PROTECTED]")
))
;;;;(bbdb-add-hook 'bbdb-change-hook 'bbdb-delete-redundant-nets)
--
William (Liam) Grant [EMAIL PROTECTED]
Naval Research Laboratory, Code 5541, Washington, D.C. 20375-5337
Voice (202) 767-0552, FAX (202) 767-1060
