Changes committed gnus/lisp (ChangeLog sieve-manage.el)

Modified: ChangeLog sieve-manage.el

(sieve-manage-is-string): Accept literals too.
Reported by Arnt Gulbrandsen <[email protected]>.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1909 gnus/lisp/ChangeLog:7.1910
--- ChangeLog:7.1909	Tue Sep 16 21:10:24 2008
+++ ChangeLog	Wed Sep 17 13:06:34 2008
@@ -1,3 +1,8 @@
+2008-09-17  Simon Josefsson  <[email protected]>
+
+	* sieve-manage.el (sieve-manage-is-string): Accept literals too.
+	Reported by Arnt Gulbrandsen <[email protected]>.
+
 2008-09-16  Teodor Zlatanov  <[email protected]>
 
 	* gnus-registry.el (gnus-registry-use-long-group-names): Make t the
Index: sieve-manage.el
diff -u gnus/lisp/sieve-manage.el:7.24 gnus/lisp/sieve-manage.el:7.25
--- sieve-manage.el:7.24	Fri Jul  4 02:09:29 2008
+++ sieve-manage.el	Wed Sep 17 13:06:34 2008
@@ -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))