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

Modified: ChangeLog sieve-manage.el

2010-01-08  Jason Rumney  <[email protected]>

	* sieve-manage.el (sieve-manage-parse-capability-1): Loosely match OK
	response.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2050 gnus/lisp/ChangeLog:7.2051
--- ChangeLog:7.2050	Wed Jan  6 10:24:25 2010
+++ ChangeLog	Mon Jan 11 23:21:44 2010
@@ -1,3 +1,8 @@
+2010-01-08  Jason Rumney  <[email protected]>
+
+	* sieve-manage.el (sieve-manage-parse-capability-1): Loosely match OK
+	response.
+
 2010-01-06  Katsumi Yamaoka  <[email protected]>
 
 	* gnus-art.el (gnus-article-describe-bindings): Work for prefix keys.
Index: sieve-manage.el
diff -u gnus/lisp/sieve-manage.el:7.27 gnus/lisp/sieve-manage.el:7.28
--- sieve-manage.el:7.27	Thu Jan 22 08:02:15 2009
+++ sieve-manage.el	Mon Jan 11 23:21:44 2010
@@ -636,7 +636,7 @@
 		  sieve-manage-capability))
 	(push (list str) sieve-manage-capability))
       (forward-line)))
-  (when (re-search-forward (concat "^OK" sieve-manage-server-eol) nil t)
+  (when (re-search-forward (concat "^OK.*" sieve-manage-server-eol) nil t)
     (setq sieve-manage-state 'nonauth)))
 
 (defalias 'sieve-manage-parse-greeting-1 'sieve-manage-parse-capability-1)