diff lisp/url/url.el @ 58343:d9b4c5625386

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

--- a/lisp/url/url.el	Sat Nov 20 03:09:38 2004 +0000
+++ b/lisp/url/url.el	Sat Nov 20 03:57:59 2004 +0000
@@ -207,7 +207,10 @@
 	    (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."