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

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/01/09 05:40:39

Index: mm-decode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/mm-decode.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- mm-decode.el        16 Nov 2006 11:10:48 -0000      1.40
+++ mm-decode.el        9 Jan 2007 05:40:39 -0000       1.41
@@ -883,13 +883,21 @@
                          ;; a vector in Emacs but is a list in XEmacs)
                          ;; requires that it is lexically scoped.
                          (timer (run-at-time 2.0 nil 'ignore)))
+                      (if (boundp 'itimer-list)
+                          (lambda (process state)
+                            (when (eq 'exit (process-status process))
+                              (if (memq timer itimer-list)
+                                  (set-itimer-function timer fn)
+                                (funcall fn))
+                              (ignore-errors (eval fm))
+                              (message "%s" done)))
                       (lambda (process state)
                         (when (eq 'exit (process-status process))
                           (if (memq timer timer-list)
                               (timer-set-function timer fn)
                             (funcall fn))
                           (ignore-errors (eval fm))
-                          (message "%s" done))))))
+                            (message "%s" done)))))))
                (mm-handle-set-external-undisplayer
                 handle (cons file buffer)))
              (message "Displaying %s..." command))