From 978b28444a45be09524682cacbd95fca9e9d28f5 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 26 Jan 2012 20:30:11 +0100 Subject: [PATCH] Wait for :end-of-capability, not :end-of-command. --- lisp/ChangeLog | 3 +++ lisp/proto-stream.el | 8 +++++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ad27f7a59..2c6793630 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2012-01-26 Lars Ingebrigtsen + * 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 bc5386427..3f1d45d7c 100644 --- 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) -- 2.25.1