# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1126755039 0
# Node ID d7d263fcbadcc125def48a2cef60e6c863cffb03
# Parent  064131b588d1b11c7bba4d655c9f5582bc28203b
2005-09-15  Chong Yidong  <cyd@stupidchicken.com>

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

diff -r 064131b588d1 -r d7d263fcbadc lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Thu Sep 15 02:55:22 2005 +0000
+++ b/lisp/url/ChangeLog	Thu Sep 15 03:30:39 2005 +0000
@@ -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 -r 064131b588d1 -r d7d263fcbadc lisp/url/url-mailto.el
--- a/lisp/url/url-mailto.el	Thu Sep 15 02:55:22 2005 +0000
+++ b/lisp/url/url-mailto.el	Thu Sep 15 03:30:39 2005 +0000
@@ -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)