* new bbdb-send-mail-internal with message-mode
@ 1996-07-12 16:29 Colin Rafferty
0 siblings, 0 replies; only message in thread
From: Colin Rafferty @ 1996-07-12 16:29 UTC (permalink / raw)
Cc: GNUS Mailing List
Howdy. I just updated `bbdb-send-mail-internal' so that I can get
message-mode style mail messages sent from BBDB.
(defun bbdb-send-mail-internal (&optional to subj records)
(let ((type (or bbdb-send-mail-style
(cond ((featurep 'message) 'message)
((featurep 'mh-e) 'mh)
((featurep 'vm) 'vm)
(t 'mail)))))
(cond
((eq type 'message)
(or (fboundp 'message-mail) (autoload 'message-mail "message"))
(message-mail to subject))
((eq type 'mh)
(or (fboundp 'mh-send) (autoload 'mh-send "mh-e"))
(mh-send to "" (or subj "")))
((eq type 'vm)
(cond ((not (fboundp 'vm-mail-internal))
(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))
((or (eq type 'mail) (eq type 'rmail))
(mail nil to subj))
(t
(error "bbdb-send-mail-style must be message, vm, mh, or rmail")))))
; Colin
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~1996-07-12 16:29 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1996-07-12 16:29 new bbdb-send-mail-internal with message-mode Colin Rafferty
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).