* gnus-spec.el (gnus-correct-substring): Take optional END.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c366099..228ecfb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2001-08-24 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-spec.el (gnus-correct-substring): Take optional END.
+
        * nnrss.el (nnrss-request-article): Remove \n.
 
 2001-08-24  Simon Josefsson  <jas@extundo.com>

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 781823e..6906f5d 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -270,7 +270,7 @@
     (mapcar (lambda (char) (incf length (gnus-char-width char))) string)
     length))
 
-(defun gnus-correct-substring (string start end)
+(defun gnus-correct-substring (string start &optional end)
   (let ((wstart 0)
        (wend 0)
        (seek 0)
@@ -284,7 +284,8 @@
          wstart seek)
     ;; Find the end position.
     (while (and (< seek length)
-               (<= wend end))
+               (or (not end)
+                   (<= wend end)))
       (incf wend (gnus-char-width (aref string seek)))
       (incf seek))
     (setq wend seek)