(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 eb10dd2a933414ea067611d0086372296141b11f..8f97d48bc463221975b63592ef52a6cfce510778 100644 (file)
--- 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 75ddfdc3a2f040fa9b99d4a4ff82600b233ed277..f94e965129ab3cbb6a95577bb10e5fa5b6f55642 100644 (file)
--- 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."