Mercurial > emacs
changeset 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 | ff6a7e607408 |
| children | 316e4e1b628c |
| files | lisp/ChangeLog lisp/mail/mailclient.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Nov 24 07:29:06 2010 +0100 +++ b/lisp/ChangeLog Wed Nov 24 07:34:12 2010 +0100 @@ -1,5 +1,9 @@ 2010-11-24 Lars Magne Ingebrigtsen <larsi@gnus.org> + * mail/mailclient.el (browse-url): Require. + (mailclient-send-it): Bind `browse-url-mailto-function' to nil to + use the external browser function to send the mail (bug#7469). + * net/browse-url.el (browse-url-browser-function): Revert the default back to the previous value, since the new value broke mailclient.el.
--- 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