(url-mm-callback): Delay the invocation

of `mm-destroy-parts'. Invoke `mm-destroy-parts'
when the buffer is killed.
This commit is contained in:
Masatake YAMATO 2004-11-20 03:57:59 +00:00
parent 18cb59e8a4
commit 14e25c87b0
2 changed files with 10 additions and 1 deletions

View file

@ -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

View file

@ -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."