[Emacs-diffs] Changes to emacs/lisp/gnus/sieve-manage.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     08/09/21 04:22:45

Index: lisp/gnus/sieve-manage.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/sieve-manage.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- lisp/gnus/sieve-manage.el   2 Jul 2008 13:17:41 -0000       1.20
+++ lisp/gnus/sieve-manage.el   21 Sep 2008 04:22:45 -0000      1.21
@@ -647,7 +647,7 @@
         (prog1
             (match-string 1)
           (goto-char (match-end 0))))
-       ((looking-at (concat "{\\([0-9]+\\)}" sieve-manage-server-eol))
+       ((looking-at (concat "{\\([0-9]+\\+?\\)}" sieve-manage-server-eol))
         (let ((pos (match-end 0))
               (len (string-to-number (match-string 1))))
           (if (< (point-max) (+ pos len))