CVS update by scop packages/xemacs-packages/gnus/lisp ...

[xemacs-cvs at xemacs.org]

  User: scop    
  Date: 08/03/17 18:48:37

  Modified:    packages/xemacs-packages/gnus/lisp mm-decode.el
Log:
Don't assume timer-list is available, use itimer-list when not <200803122134.42592.scop at xemacs.org>

Revision  Changes    Path
1.106     +5 -0      XEmacs/packages/xemacs-packages/gnus/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/ChangeLog,v
retrieving revision 1.105
retrieving revision 1.106
diff -u -p -r1.105 -r1.106
--- ChangeLog	2008/01/02 10:55:35	1.105
+++ ChangeLog	2008/03/17 17:48:33	1.106
@@ -1,3 +1,8 @@
+2008-03-12  Ville Skyttä  <scop at xemacs.org>
+
+	* lisp/mm-decode.el (mm-display-external): Use `itimer-list' if
+	`timer-list' is not available.
+
 2008-01-02  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.92 released.



1.11      +5 -1      XEmacs/packages/xemacs-packages/gnus/lisp/mm-decode.el

Index: mm-decode.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/mm-decode.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -p -r1.10 -r1.11
--- mm-decode.el	2007/03/05 18:07:05	1.10
+++ mm-decode.el	2008/03/17 17:48:36	1.11
@@ -874,13 +874,17 @@ external if displayed external."
 					 nil))))
 			  ;; Message to be issued when the process exits.
 			  (done (format "Displaying %s...done" command))
+			  ;; `timer-list' in GNU Emacs, `itimer-list' in XEmacs
+			  (tlist (if (boundp 'timer-list)
+				     timer-list
+				   itimer-list))
 			  ;; In particular, the timer object (which is
 			  ;; a vector in Emacs but is a list in XEmacs)
 			  ;; requires that it is lexically scoped.
 			  (timer (run-at-time 2.0 nil 'ignore)))
 		       (lambda (process state)
 			 (when (eq 'exit (process-status process))
-			   (if (memq timer timer-list)
+			   (if (memq timer tlist)
 			       (timer-set-function timer fn)
 			     (funcall fn))
 			   (ignore-errors (eval fm))