[Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el

[Miles Bader]

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