From 89a92f421a3ab18754b87d9c78f9ccbd29976c69 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka <yamaoka@jpl.org> Date: Fri, 3 Dec 2010 08:01:00 +0000 Subject: [PATCH] gnus-util.el (gnus-macroexpand-all): Fix last change. --- lisp/gnus/gnus-util.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 1ba10f46f3c..55d6ce55ebb 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -2046,11 +2046,12 @@ definitions to shadow the loaded ones for use in file byte-compilation." (len (length (setq form (copy-sequence form)))) expanded) (while (< idx len) - (setcar (nthcdr idx form) (gnus-macroexpand-all (nth idx form))) + (setcar (nthcdr idx form) (gnus-macroexpand-all (nth idx form) + environment)) (setq idx (1+ idx))) (if (eq (setq expanded (macroexpand form environment)) form) form - (gnus-macroexpand-all expanded))) + (gnus-macroexpand-all expanded environment))) form))) (provide 'gnus-util) -- 2.39.5