Mercurial > emacs

changeset 111793:d3e1f9a307c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-util.el (gnus-macroexpand-all): Fix last change.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 03 Dec 2010 02:30:12 +0000
parents 6125476aab24
children d276c036caef
files lisp/gnus/gnus-util.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus-util.el	Fri Dec 03 02:17:23 2010 +0000
+++ b/lisp/gnus/gnus-util.el	Fri Dec 03 02:30:12 2010 +0000
@@ -2042,10 +2042,9 @@
     (if (consp form)
 	(let ((idx 1)
 	      (len (length form))
-	      elem expanded)
+	      expanded)
 	  (while (< idx len)
-	    (when (consp (setq elem (nth idx form)))
-	      (setcar (nthcdr idx form) (gnus-macroexpand-all elem)))
+	    (setcar (nthcdr idx form) (gnus-macroexpand-all (nth idx form)))
 	    (setq idx (1+ idx)))
 	  (if (eq (setq expanded (macroexpand form)) form)
 	      form