207 |
(message "Viewing externally") |
(message "Viewing externally") |
208 |
(kill-buffer (current-buffer))) |
(kill-buffer (current-buffer))) |
209 |
(display-buffer (current-buffer)) |
(display-buffer (current-buffer)) |
210 |
(mm-destroy-parts handle))))) |
(add-hook 'kill-buffer-hook |
211 |
|
`(lambda () (mm-destroy-parts ',handle)) |
212 |
|
nil |
213 |
|
t))))) |
214 |
|
|
215 |
(defun url-mm-url (url) |
(defun url-mm-url (url) |
216 |
"Retrieve URL and pass to the appropriate viewing application." |
"Retrieve URL and pass to the appropriate viewing application." |