Mercurial > emacs

changeset 106786:04c3b0f26a9e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* sieve-manage.el (sieve-manage-parse-capability-1): Loosely match OK response.
author Jason Rumney <jasonr@gnu.org>
date Sun, 10 Jan 2010 22:30:40 +0800
parents a32698d5bb0c
children 7038dde9ccd7 50223db834f2
files lisp/gnus/ChangeLog lisp/gnus/sieve-manage.el
diffstat 2 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Sun Jan 10 00:22:54 2010 -0500
+++ b/lisp/gnus/ChangeLog	Sun Jan 10 22:30:40 2010 +0800
@@ -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.
--- a/lisp/gnus/sieve-manage.el	Sun Jan 10 00:22:54 2010 -0500
+++ b/lisp/gnus/sieve-manage.el	Sun Jan 10 22:30:40 2010 +0800
@@ -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)