(url-mm-callback): Delay the invocation
of `mm-destroy-parts'. Invoke `mm-destroy-parts' when the buffer is killed.
This commit is contained in:
parent
18cb59e8a4
commit
14e25c87b0
2 changed files with 10 additions and 1 deletions
|
@ -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
|
||||
|
|
|
@ -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."
|
||||
|
|
Loading…
Add table
Reference in a new issue