2005-09-15 Chong Yidong <cyd@stupidchicken.com>

	* url-mailto.el (url-mailto): Delete mail buffer after sending
	autogenerated mail.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 4235fe13e34b15c5b98e0db05afd5080901aa711..5a9f209394259db93ccc68d3c451dbdd30b0b13d 100644 (file)
--- 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 d5f96184013f9bf8050f6449d38970394d9f7435..03770c6d977d71647f43482550483dc9a8e6787f 100644 (file)
--- 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)