[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el, v [EMACS_22_BASE]

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Miles Bader <miles>     07/10/18 21:09:03

Index: gnus-util.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-util.el,v
retrieving revision 1.46.2.2
retrieving revision 1.46.2.3
diff -u -b -r1.46.2.2 -r1.46.2.3
--- gnus-util.el        8 Aug 2007 07:27:37 -0000       1.46.2.2
+++ gnus-util.el        18 Oct 2007 21:09:02 -0000      1.46.2.3
@@ -290,6 +290,15 @@
   (not (or (string< s1 s2)
           (string= s1 s2))))
 
+(defun gnus-string< (s1 s2)
+  "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 case-fold-search
+      (string-lessp (downcase (if (symbolp s1) (symbol-name s1) s1))
+                   (downcase (if (symbolp s2) (symbol-name s2) s2)))
+    (string-lessp s1 s2)))
+
 ;;; Time functions.
 
 (defun gnus-file-newer-than (file date)