diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-11-24 07:34:12 +0100 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-11-24 07:34:12 +0100 |
| commit | 7bd9b9d8b4e201ee169801c0ced5e0c5e172a9e2 (patch) | |
| tree | 7c221a449cecb350b5e265c3456c7ba356347d97 /lisp/mail/mailclient.el | |
| parent | 876d1684cf36bc9c38b45fa5e6c700944233c56b (diff) | |
| download | emacs-7bd9b9d8b4e201ee169801c0ced5e0c5e172a9e2.tar.gz emacs-7bd9b9d8b4e201ee169801c0ced5e0c5e172a9e2.tar.bz2 emacs-7bd9b9d8b4e201ee169801c0ced5e0c5e172a9e2.zip | |
(mailclient-send-it): Bind `browse-url-mailto-function' to nil to
use the external browser function to send the mail.
Diffstat (limited to 'lisp/mail/mailclient.el')
| -rw-r--r-- | lisp/mail/mailclient.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/mail/mailclient.el b/lisp/mail/mailclient.el index dd5ec2dd388..2a5d77d4f74 100644 --- a/lisp/mail/mailclient.el +++ b/lisp/mail/mailclient.el @@ -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 @@ The mail client is taken to be the handler of mailto URLs." (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 |