[Emacs-diffs] /srv/bzr/emacs/trunk r99292: * sieve-manage.el (sieve-manage-parse-capability-1): Loosely match OK response.

[Jason Rumney]

------------------------------------------------------------
revno: 99292
committer: Jason Rumney <address@hidden>
branch nick: trunk
timestamp: Sun 2010-01-10 22:30:40 +0800
message:
  * sieve-manage.el (sieve-manage-parse-capability-1): Loosely match OK 
response.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/sieve-manage.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-01-06 09:16:36 +0000
+++ b/lisp/gnus/ChangeLog       2010-01-10 14:30:40 +0000
@@ -1,3 +1,8 @@
+2010-01-08  Jason Rumney  <address@hidden>
+
+       * sieve-manage.el (sieve-manage-parse-capability-1): Loosely match OK
+       response.
+
 2010-01-06  Katsumi Yamaoka  <address@hidden>
 
        * gnus-art.el (gnus-article-describe-bindings): Work for prefix keys.

=== modified file 'lisp/gnus/sieve-manage.el'
--- a/lisp/gnus/sieve-manage.el 2009-01-09 03:01:50 +0000
+++ b/lisp/gnus/sieve-manage.el 2010-01-10 14:30:40 +0000
@@ -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)