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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2e90bf6e824ddf5556ee7dcc1775a0e5a1420033..cb4c24a39dba4ca41152f2b6d93f2ed45e81b419 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-08  Jason Rumney  <jasonr@gnu.org>
+
+       * sieve-manage.el (sieve-manage-parse-capability-1): Loosely match OK
+       response.
+
 2010-01-06  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-article-describe-bindings): Work for prefix keys.

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