From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/7175
Path: main.gmane.org!not-for-mail
From: Colin Rafferty <craffert@spspme.ml.com>
Newsgroups: gmane.emacs.gnus.general
Subject: new bbdb-send-mail-internal with message-mode
Date: 12 Jul 1996 12:29:03 -0400
Message-ID: <ocrd921saen.fsf@spssunp.spspme.ml.com>
Reply-To: Colin Rafferty <craffert@ml.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035147522 6182 80.91.224.250 (20 Oct 2002 20:58:42 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:58:42 +0000 (UTC)
Cc: (ding) GNUS Mailing List <ding@ifi.uio.no>
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id JAA01177 for <steve@miranova.com>; Fri, 12 Jul 1996 09:49:52 -0700
Original-Received: from mlfire.ml.com (mlfire.ml.com [192.246.100.1]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <SAA03730@ifi.uio.no> for <ding@ifi.uio.no> ; Fri, 12 Jul 1996 18:30:31 +0200
Original-Received: from commpost.ml.com ([146.125.4.24]) by mlfire.ml.com (8.7.5/8.7.3/MLgw-2.05) with SMTP id MAA09239; Fri, 12 Jul 1996 12:34:07 -0400 (EDT)
Original-Received: from spssunp.spspme.ml.com (spssunp.spspme.ml.com [192.168.111.13]) by commpost.ml.com (8.6.12/8.6.12) with ESMTP id MAA06064; Fri, 12 Jul 1996 12:32:51 -0400 (EST)
Original-Received: by spssunp.spspme.ml.com (SMI-8.6/SMI-4.1)
	id MAA13979; Fri, 12 Jul 1996 12:29:14 -0400
Original-To: BBDB Mailing List <info-bbdb@cs.uiuc.edu>
X-Face: y,o:AU/bfCrS+zS/W"^puB!rT!G7?U1Mvp1Hd{6h^>X4@Xp5,|g+rG>4gv/iy^&x9`k#s!]X~{]Js>@A4c}4Z"Ct7=#1nPS:?mrWH8c#>$)>/Wc5yuX_OFO1(4cZM{LvsKWVQSl~/i>!n[-B*i-alq[/m\bsdy;W4p(_ic;$BE.oG@eJf@sr#x#}FT<=H8Ozu%g;JpVz:v_~vt[>ef/MeNeo3~D^R]]*bB7{HB|E1$wfMzw
X-Y-Zippy: I'm EMOTIONAL now because I have MERCHANDISING CLOUT!!
Original-Lines: 31
X-Mailer: Gnus v5.2.25/XEmacs 19.14
Xref: main.gmane.org gmane.emacs.gnus.general:7175
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:7175

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