From 67cbda1ac84960d116f2537a9dc81c9daaa93b14 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 3 Dec 2010 02:30:51 +0000 Subject: [PATCH] gnus-util.el (gnus-macroexpand-all): Fix last change. --- lisp/gnus-util.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index d71035754..af5159ece 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -2042,10 +2042,9 @@ If no macros are expanded, FORM is returned unchanged." (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 -- 2.25.1