diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2005-09-15 03:30:39 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2005-09-15 03:30:39 +0000 |
| commit | b0742512e574c25091cb75f62064af3cf4b3a8b5 (patch) | |
| tree | 38331e71b699cc17901e9f720849828be8243d97 /lisp/url | |
| parent | ce9b56fe13c59f2c718c03d6ea7f9dc3a0619e42 (diff) | |
| download | emacs-b0742512e574c25091cb75f62064af3cf4b3a8b5.tar.gz | |
2005-09-15 Chong Yidong <cyd@stupidchicken.com>
* url-mailto.el (url-mailto): Delete mail buffer after sending
autogenerated mail.
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/url/url-mailto.el | 14 |
2 files changed, 13 insertions, 6 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 4235fe13e34..5a9f2093942 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,8 @@ +2005-09-15 Chong Yidong <cyd@stupidchicken.com> + + * url-mailto.el (url-mailto): Delete mail buffer after sending + autogenerated mail. + 2005-09-13 Chong Yidong <cyd@stupidchicken.com> * url-mailto.el (url-mailto): Always use a new mail buffer. diff --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el index d5f96184013..03770c6d977 100644 --- a/lisp/url/url-mailto.el +++ b/lisp/url/url-mailto.el @@ -124,12 +124,14 @@ ;; It seems Microsoft-ish to send without warning. ;; Fixme: presumably this should depend on a privacy setting. (if (y-or-n-p "Send this auto-generated mail? ") - (cond ((eq url-mail-command 'compose-mail) - (funcall (get mail-user-agent 'sendfunc) nil)) - ;; otherwise, we can't be sure - ((fboundp 'message-send-and-exit) - (message-send-and-exit)) - (t (mail-send-and-exit nil))))) + (let ((buffer (current-buffer))) + (cond ((eq url-mail-command 'compose-mail) + (funcall (get mail-user-agent 'sendfunc) nil)) + ;; otherwise, we can't be sure + ((fboundp 'message-send-and-exit) + (message-send-and-exit)) + (t (mail-send-and-exit nil))) + (kill-buffer buffer)))) nil)) (provide 'url-mailto) |