Sending e-mail via system's mail client from sendmail.el

[David Reitter]

The enclosed package allows to hand over a mail buffer from sendmail.el
to the system's designated e-mail client.
Note that the e-mail client will display the contents of the buffer
again for editing. The e-mail client is taken to be whoever handles a  
mailto: URL
via `browse-url'.

To activate:
(setq send-mail-function 'mailclient-send-it)

If this is acceptable, I can rework my earlier patch for emacsbug.el  
so that it goes through sendmail, but doesn't display the mail for  
editing before handing it over to the mail client, if send-mail- 
function is mailclient-send-it.

I've tested this on the Mac and on a KDE installation with Mozilla.
It addresses long-standing problems on the Mac, but should be equally  
useful on all systems where users use some mail application instead  
of emacs. I conjecture it will make sendmail mail easier (or even  
functional) on WIndows as well.


diff -c -r1.285 sendmail.el
*** sendmail.el 23 Jun 2005 21:22:43 -0000      1.285
--- sendmail.el 10 Jul 2005 11:28:45 -0000
***************
*** 1,6 ****
  ;;; sendmail.el --- mail sending commands for Emacs.  -*- byte- 
compile-dynamic: t -*-

! ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001,  
2002, 03, 2004
  ;;   Free Software Foundation, Inc.

  ;; Maintainer: FSF
--- 1,6 ----
  ;;; sendmail.el --- mail sending commands for Emacs.  -*- byte- 
compile-dynamic: t -*-

! ;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001,  
2002, 2003, 2004, 2005
  ;;   Free Software Foundation, Inc.

  ;; Maintainer: FSF
***************
*** 120,126 ****

  ;; Useful to set in site-init.el
  ;;;###autoload
! (defcustom send-mail-function 'sendmail-send-it
    "Function to call to send the current buffer as mail.
  The headers should be delimited by a line which is
  not a valid RFC822 header or continuation line,
--- 120,129 ----

  ;; Useful to set in site-init.el
  ;;;###autoload
! (defcustom send-mail-function
!   (if (eq system-type 'darwin)
!       'mailclient-send-it
!     'sendmail-send-it)
    "Function to call to send the current buffer as mail.
  The headers should be delimited by a line which is
  not a valid RFC822 header or continuation line,
***************
*** 130,135 ****
--- 133,139 ----
    :type '(radio (function-item sendmail-send-it :tag "Use Sendmail  
package")
                (function-item smtpmail-send-it :tag "Use SMTPmail  
package")
                (function-item feedmail-send-it :tag "Use Feedmail  
package")
+               (function-item mailclient-send-it :tag "Use  
Mailclient package")
                function)
    :group 'sendmail)

mailclient.el
Description: Binary data