Wait for :end-of-capability, not :end-of-command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ad27f7a..2c67936 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-01-26  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * proto-stream.el (proto-stream-capability-open): Wait for
+       :end-of-capability, not :end-of-command.
+
        * gnus-sum.el (gnus-summary-move-article): Don't propagate marks to
        non-server-marks groups.
        (gnus-group-make-articles-read): Ditto.

diff --git a/lisp/proto-stream.el b/lisp/proto-stream.el
index bc53864..3f1d45d 100644 (file)
--- a/lisp/proto-stream.el
+++ b/lisp/proto-stream.el
@@ -275,11 +275,13 @@ PARAMETERS should be a sequence of keywords and values:
 
 (defun proto-stream-capability-open (start stream parameters stream-type)
   (let* ((capability-command (plist-get parameters :capability-command))
-        (eoc                (plist-get parameters :end-of-command))
-        (greeting (proto-stream-get-response stream start eoc)))
+        (greeting (proto-stream-get-response
+                   stream start
+                   (plist-get parameters :end-of-command))))
     (list stream greeting
          (and capability-command
-              (proto-stream-command stream capability-command eoc))
+              (proto-stream-command stream capability-command
+                                    (plist-get parameters :end-of-capability)))
          stream-type)))
 
 (provide 'proto-stream)