X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fproto-stream.el;h=0d2bc5c0d31cafa80f40ed52b2608391e2ea602a;hb=d84b26f66f1975b52a15ca2caf5f10da5103e42e;hp=bc53864279b7879b67aff54414b5a66294de7a03;hpb=55c26cf1a9939dc7b28fcbab35f1d05d56d53242;p=gnus

diff --git a/lisp/proto-stream.el b/lisp/proto-stream.el
index bc5386427..0d2bc5c0d 100644
--- a/lisp/proto-stream.el
+++ b/lisp/proto-stream.el
@@ -275,11 +275,16 @@ 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
+		(or
+		 (plist-get parameters :end-of-capability)
+		 (plist-get parameters :end-of-command))))
 	  stream-type)))
 
 (provide 'proto-stream)