[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Sending e-mail via system's mail client from sendmail.el
From: |
David Reitter |
Subject: |
Sending e-mail via system's mail client from sendmail.el |
Date: |
Sun, 10 Jul 2005 12:34:06 +0100 |
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
- Sending e-mail via system's mail client from sendmail.el,
David Reitter <=