* gnus-spec.el (gnus-pad-form): Don't evaluate EL multiple times.

	From Jesper Harder <harder@ifa.au.dk>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de78c95..cd46092 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-13  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-spec.el (gnus-pad-form): Don't evaluate EL multiple times.
+       From Jesper Harder <harder@ifa.au.dk>.
+
 2002-01-12  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * imap.el (imap-close): Keep going if quit.

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 7fa7ad3..9ca177c 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -372,12 +372,12 @@ characters when given a pad value."
       `(let* ((val (eval ,el))
              (need (- ,pad (,(if gnus-use-correct-string-widths
                                  'gnus-correct-length
-                               'length) ,el))))
+                               'length) val))))
         (if (> need 0)
             (concat ,(when side '(make-string need ?\ ))
-                    ,el
+                    val
                     ,(when (not side) '(make-string need ?\ )))
-          ,el)))))
+          val)))))
 
 (defun gnus-parse-format (format spec-alist &optional insert)
   ;; This function parses the FORMAT string with the help of the