X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fproto-stream.el;h=a8e64d00e4184cbfa7a4dcf58724ed19730df833;hb=d35146fa43e9e2d8d346073c3c0692162abf4759;hp=3f1d45d7c29a4144e9c4e155bdcfbaefed9e612b;hpb=978b28444a45be09524682cacbd95fca9e9d28f5;p=gnus

diff --git a/lisp/proto-stream.el b/lisp/proto-stream.el
index 3f1d45d7c..a8e64d00e 100644
--- a/lisp/proto-stream.el
+++ b/lisp/proto-stream.el
@@ -1,6 +1,6 @@
 ;;; proto-stream.el --- negotiating TLS, STARTTLS and other connections
 
-;; Copyright (C) 2010-2012 Free Software Foundation, Inc.
+;; Copyright (C) 2010-2013 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: network
@@ -280,8 +280,11 @@ PARAMETERS should be a sequence of keywords and values:
 		    (plist-get parameters :end-of-command))))
     (list stream greeting
 	  (and capability-command
-	       (proto-stream-command stream capability-command
-				     (plist-get parameters :end-of-capability)))
+	       (proto-stream-command
+		stream capability-command
+		(or
+		 (plist-get parameters :end-of-capability)
+		 (plist-get parameters :end-of-command))))
 	  stream-type)))
 
 (provide 'proto-stream)