From xemacs-m  Wed Dec 11 09:21:46 1996
Received: from newman (root@newman.aventail.com [38.225.141.10]) by xemacs.cs.uiuc.edu (8.8.3/8.8.3) with SMTP id JAA29048 for <xemacs-beta@xemacs.org>; Wed, 11 Dec 1996 09:21:44 -0600 (CST)
Received: from kramer.in.aventail.com.aventail.com (root@newman [192.168.1.1]) by newman (8.6.12/8.6.9) with SMTP id IAA04166 for <xemacs-beta@xemacs.org>; Fri, 22 Nov 1996 08:18:16 -0800
Date: Fri, 22 Nov 1996 08:18:16 -0800
Message-Id: <199611221618.IAA04166@newman>
From: William Perry <wmperry@aventail.com>
To: xemacs-beta@xemacs.org
Subject: Patches for TM
Errors-to: wmperry@aventail.com
Reply-to: wmperry@aventail.com
X-Face: O~Rn;(l][/-o1sALg4A@xpE:9-"'IR[%;,,!m7</SYF`{vYQ(&RI1&EiH[FvT;J}@f!4kfz
 x_!Y#=y{Uuj9GvUi=cPuajQ(Z42R[wE@{G,sn$qGr5g/wnb*"*ktI+,CD}1Z'wxrM2ag-r0p5I6\nA
 [WJopW_J.WY;
Mime-Version: 1.0 (generated by tm-edit 7.94)
Content-Type: text/plain; charset=US-ASCII

I got bit hard by this yesterday when I had to send some critical mail to
someone on their way to new york and only 1/3 of the message got there.  I
set the value of send-mail-function to smtpmail-send-it, which usually
works great.  Unfortunately, TM unconditionally uses (sendmail-sendit) in
its split-mail sending.  Rather highly annoying.  :(

If TM needs to run on older emacsen (pre-send-mail-function), I suppose
this could be changed to (if (boundp 'send-mail-function) ...), but I'm not
sure how long that variable has been around.

-Bill P.

*** tm-vm.el	1996/12/11 15:15:42	1.1
--- tm-vm.el	1996/12/11 15:15:49
***************
*** 1067,1073 ****
                 'mail-mode (function
                             (lambda ()
                               (interactive)
!                              (sendmail-send-it)
                               )))
      (if (and (string-match "XEmacs\\|Lucid" emacs-version)
               tm-vm/use-xemacs-popup-menu)
--- 1067,1073 ----
                 'mail-mode (function
                             (lambda ()
                               (interactive)
! 			     (funcall send-mail-function)
                               )))
      (if (and (string-match "XEmacs\\|Lucid" emacs-version)
               tm-vm/use-xemacs-popup-menu)

*** tm-rmail.el	1996/12/11 15:13:14	1.1
--- tm-rmail.el	1996/12/11 15:15:06
***************
*** 361,367 ****
  		   'mail-mode (function
  			       (lambda ()
  				 (interactive)
! 				 (sendmail-send-it)
  				 )))
  	)))
      )))
--- 361,367 ----
  		   'mail-mode (function
  			       (lambda ()
  				 (interactive)
! 				 (funcall send-mail-function)
  				 )))
  	)))
      )))

