Mercurial > emacs
diff lisp/mail/mailclient.el @ 111698:b624f0531f64
(mailclient-send-it): Bind `browse-url-mailto-function' to nil to
use the external browser function to send the mail.
author | Lars Magne Ingebrigtsen <larsi@gnus.org> |
---|---|
date | Wed, 24 Nov 2010 07:34:12 +0100 |
parents | 1d1d5d9bd884 |
children | 417b1e4d63cd |
line wrap: on
line diff
--- a/lisp/mail/mailclient.el Wed Nov 24 07:29:06 2010 +0100 +++ b/lisp/mail/mailclient.el Wed Nov 24 07:34:12 2010 +0100 @@ -46,6 +46,7 @@ (require 'sendmail) ;; for mail-sendmail-undelimit-header (require 'mail-utils) ;; for mail-fetch-field +(require 'browse-url) (defcustom mailclient-place-body-on-clipboard-flag (fboundp 'w32-set-clipboard-data) @@ -122,7 +123,10 @@ (while (and (re-search-forward "\n\n\n*" delimline t) (< (point) delimline)) (replace-match "\n")) - (let ((case-fold-search t)) + (let ((case-fold-search t) + ;; Use the external browser function to send the + ;; message. + (browse-url-mailto-function nil)) ;; initialize limiter (setq mailclient-delim-static "?") ;; construct and call up mailto URL