(sieve-manage-is-string): Accept literals too.

Reported by Arnt Gulbrandsen <arnt@oryx.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3085e50..556c2ea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-17  Simon Josefsson  <simon@josefsson.org>
+
+       * sieve-manage.el (sieve-manage-is-string): Accept literals too.
+       Reported by Arnt Gulbrandsen <arnt@oryx.com>.
+
 2008-09-16  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-registry.el (gnus-registry-use-long-group-names): Make t the

diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el
index 513aa9f..2e9ec77 100644 (file)
--- a/lisp/sieve-manage.el
+++ b/lisp/sieve-manage.el
@@ -647,7 +647,7 @@ password is remembered in the buffer."
         (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))