[Emacs-diffs] Changes to emacs/lisp/url/url.el

[Masatake YAMATO]

Index: emacs/lisp/url/url.el
diff -c emacs/lisp/url/url.el:1.6 emacs/lisp/url/url.el:1.7
*** emacs/lisp/url/url.el:1.6   Sat Oct 16 15:02:46 2004
--- emacs/lisp/url/url.el       Sat Nov 20 03:57:59 2004
***************
*** 207,213 ****
            (message "Viewing externally")
            (kill-buffer (current-buffer)))
        (display-buffer (current-buffer))
!       (mm-destroy-parts handle)))))
  
  (defun url-mm-url (url)
    "Retrieve URL and pass to the appropriate viewing application."
--- 207,216 ----
            (message "Viewing externally")
            (kill-buffer (current-buffer)))
        (display-buffer (current-buffer))
!       (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."