(gnus-string<): Fix previous commit.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 80c36e2..cf174d9 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -258,10 +258,9 @@ is slower."
   "Return t if first arg string is less than second in lexicographic order.
 Case is significant if and only if `case-fold-search' is nil.
 Symbols are also allowed; their print names are used instead."
-  (if (symbolp s1) (setq s1 (symbol-name s1)))
-  (if (symbolp s2) (setq s2 (symbol-name s2)))
   (if case-fold-search
-      (string-lessp (downcase s1) (downcase s2))
+      (string-lessp (downcase (if (symbolp s1) (symbol-name s1) s1))
+                   (downcase (if (symbolp s2) (symbol-name s2) s2)))
     (string-lessp s1 s2)))
 
 ;;; Time functions.