diff options
| -rw-r--r-- | lisp/gnus/gnus-util.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index d71035754a7..af5159ece3b 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el | |||
| @@ -2042,10 +2042,9 @@ If no macros are expanded, FORM is returned unchanged." | |||
| 2042 | (if (consp form) | 2042 | (if (consp form) |
| 2043 | (let ((idx 1) | 2043 | (let ((idx 1) |
| 2044 | (len (length form)) | 2044 | (len (length form)) |
| 2045 | elem expanded) | 2045 | expanded) |
| 2046 | (while (< idx len) | 2046 | (while (< idx len) |
| 2047 | (when (consp (setq elem (nth idx form))) | 2047 | (setcar (nthcdr idx form) (gnus-macroexpand-all (nth idx form))) |
| 2048 | (setcar (nthcdr idx form) (gnus-macroexpand-all elem))) | ||
| 2049 | (setq idx (1+ idx))) | 2048 | (setq idx (1+ idx))) |
| 2050 | (if (eq (setq expanded (macroexpand form)) form) | 2049 | (if (eq (setq expanded (macroexpand form)) form) |
| 2051 | form | 2050 | form |