>>>>> "jsc" == jsc <[EMAIL PROTECTED]> writes on Wed, 3 Aug 1994 09:43:34 -0400:
jsc> M-TAB is bound to bbdb-complete-name when I use C-x m, but not when I
jsc> start up a mail buffer from VM. Does anyone have a ready fix for this?
jsc> I'd look into it, but I'd rather not.
bbdb-send-mail-internal uses vm-mail-internal to start mail buffer.
vm-mail-internal in 5.72 doesn't do the hooks for vm.
Try this patch against bbdb 1.50
--tony
kicking off
*** bbdb-com.el~ Wed Jul 27 13:13:04 1994
--- bbdb-com.el Wed Jul 27 14:58:23 1994
***************
*** 1363,1368 ****
--- 1363,1381 ----
(format "%s <%s>" name net)))))
+ ;; [EMAIL PROTECTED] 7/94
+ ;; added this so that hooks get run properly when sending mail from
+ ;; vm invoked by bbdb.
+ (defun bbdb-vm-mail-internal (&optional buffer-name to subject in-reply-to cc
+references newsgroups)
+ "Send a mail message from within VM, or from without."
+ (interactive)
+ (vm-session-initialization)
+ (vm-select-folder-buffer)
+ (vm-check-for-killed-summary)
+ (vm-mail-internal buffer-name to subject in-reply-to cc references newsgroups)
+ (run-hooks 'vm-mail-hook)
+ (run-hooks 'vm-mail-mode-hook))
+
(defun bbdb-send-mail-internal (&optional to subj records)
(let ((type (or bbdb-send-mail-style
(cond ((featurep 'mh-e) 'mh)
***************
*** 1377,1383 ****
(load-library "vm") ; 5.32 or later
(or (fboundp 'vm-mail-internal)
(load-library "vm-reply")))) ; 5.31 or earlier
! (vm-mail-internal
(and records (format "mail to %s%s" (bbdb-record-name (car records))
(if (cdr records) ", ..." "")))
to subj))
--- 1390,1396 ----
(load-library "vm") ; 5.32 or later
(or (fboundp 'vm-mail-internal)
(load-library "vm-reply")))) ; 5.31 or earlier
! (bbdb-vm-mail-internal ; was vm-mail-internal
(and records (format "mail to %s%s" (bbdb-record-name (car records))
(if (cdr records) ", ..." "")))
to subj))
