lisp/gnus/mm-decode.el (mm-display-external): Work for xdg-open

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2ae70791c16d820056debf14dcce193634a54b8a..238017e25fce1bfcc2cc065c5720f11559dbe3f2 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,10 @@
+2013-08-06  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mm-decode.el (mm-display-external): Bind process-connection-type to
+       nil; don't delete a temp file immediately even if a viewer finishes,
+       since it may be a shell script, like xdg-open, that launches a real
+       viewer program belatedly.
+
 2013-08-05  Dave Abrahams  <dave@boostpro.com>
 
        * gnus-int.el (gnus-warp-to-article): Allow warping in all groups so

diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 7274708f014f3a46a092c41478c950dda81d08ca..98d854340ee2c76fd32345015fe91b9fd5acdcb5 100644 (file)
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -962,7 +962,7 @@ external if displayed external."
            (let ((command (mm-mailcap-command
                            method file (mm-handle-type handle))))
              (unwind-protect
-                 (progn
+                 (let ((process-connection-type nil))
                    (start-process "*display*"
                                   (setq buffer
                                         (generate-new-buffer " *mm*"))
@@ -984,12 +984,13 @@ external if displayed external."
                            (delete-directory (file-name-directory file)))))
                       (lambda (process state)
                         (when (eq (process-status process) 'exit)
-                          (condition-case nil
-                              (delete-file file)
-                            (error))
-                          (condition-case nil
-                              (delete-directory (file-name-directory file))
-                            (error))
+                          (run-at-time
+                           10.0 nil
+                           (lambda ()
+                             (ignore-errors
+                               (delete-file file))
+                             (ignore-errors
+                               (delete-directory (file-name-directory file)))))
                           (when (buffer-live-p outbuf)
                             (with-current-buffer outbuf
                               (let ((buffer-read-only nil)