Index: emacs/lisp/gnus/mm-decode.el
diff -c emacs/lisp/gnus/mm-decode.el:1.23 emacs/lisp/gnus/mm-decode.el:1.24
*** emacs/lisp/gnus/mm-decode.el:1.23 Mon Jul 4 17:55:15 2005
--- emacs/lisp/gnus/mm-decode.el Sun Jul 31 00:12:23 2005
***************
*** 817,827 ****
(let ((command (mm-mailcap-command
method file (mm-handle-type handle))))
(unwind-protect
! (start-process "*display*"
! (setq buffer
! (generate-new-buffer " *mm*"))
! shell-file-name
! shell-command-switch command)
(mm-handle-set-external-undisplayer
handle (cons file buffer)))
(message "Displaying %s..." command))
--- 817,848 ----
(let ((command (mm-mailcap-command
method file (mm-handle-type handle))))
(unwind-protect
! (progn
! (start-process "*display*"
! (setq buffer
! (generate-new-buffer " *mm*"))
! shell-file-name
! shell-command-switch command)
! (set-process-sentinel
! (get-buffer-process buffer)
! `(lambda (process state)
! (when (eq 'exit (process-status process))
! ;; Don't use `ignore-errors'.
! (condition-case nil
! (delete-file ,file)
! (error))
! (condition-case nil
! (delete-directory ,(file-name-directory file))
! (error))
! (condition-case nil
! (kill-buffer ,buffer)
! (error))
! (condition-case nil
! ,(macroexpand (list 'mm-handle-set-undisplayer
! (list 'quote handle)
! nil))
! (error))
! (message "Displaying %s...done" ,command)))))
(mm-handle-set-external-undisplayer
handle (cons file buffer)))
(message "Displaying %s..." command))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
