2001-02-16 11:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-range.el (gnus-range-normalize): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25a819d..7b14f44 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-02-16 11:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-range.el (gnus-range-normalize): New function.
+
 2001-02-15  NAGY Andras <nagya@inf.elte.hu>
 
        * imap.el (imap-gssapi-open): Set imap-c-l-s-first.

diff --git a/lisp/gnus-range.el b/lisp/gnus-range.el
index 223a32e..45855d9 100644 (file)
--- a/lisp/gnus-range.el
+++ b/lisp/gnus-range.el
@@ -30,6 +30,11 @@
 
 ;;; List and range functions
 
+(defsubst gnus-range-normalize (range)
+  "Normalize RANGE.
+If RANGE is a single range, return (RANGE). Otherwise, return RANGE."
+  (if (listp (cdr range)) (list range) range))
+
 (defun gnus-last-element (list)
   "Return last element of LIST."
   (while (cdr list)