From: Masatake YAMATO <jet@gyve.org>
Date: Sat, 20 Nov 2004 03:57:59 +0000 (+0000)
Subject: (url-mm-callback): Delay the invocation
X-Git-Tag: ttn-vms-21-2-B4~3825
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14e25c87b0f3041111156697f1fd56cec929cf4a;p=emacs.git

(url-mm-callback): Delay the invocation
of `mm-destroy-parts'. Invoke `mm-destroy-parts'
when the buffer is killed.
---

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index eb10dd2a933..8f97d48bc46 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,9 @@
+2004-11-20  Masatake YAMATO  <jet@gyve.org>
+
+	* url.el (url-mm-callback): Delay the invocation
+	of `mm-destroy-parts'. Invoke `mm-destroy-parts'
+	when the buffer is killed.
+
 2004-11-12  Masatake YAMATO  <jet@gyve.org>
 
 	* url-mailto.el (url-mailto): Fix a typo in the 
diff --git a/lisp/url/url.el b/lisp/url/url.el
index 75ddfdc3a2f..f94e965129a 100644
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -207,7 +207,10 @@ no further processing).  URL is either a string or a parsed URL."
 	    (message "Viewing externally")
 	    (kill-buffer (current-buffer)))
 	(display-buffer (current-buffer))
-	(mm-destroy-parts handle)))))
+	(add-hook 'kill-buffer-hook 
+		  `(lambda () (mm-destroy-parts ',handle))
+		  nil
+		  t)))))
 
 (defun url-mm-url (url)
   "Retrieve URL and pass to the appropriate viewing application."