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.
(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)