diff options
Diffstat (limited to 'lisp/gnus/proto-stream.el')
| -rw-r--r-- | lisp/gnus/proto-stream.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/gnus/proto-stream.el b/lisp/gnus/proto-stream.el index e8df945b946..d1266cb5461 100644 --- a/lisp/gnus/proto-stream.el +++ b/lisp/gnus/proto-stream.el @@ -111,7 +111,12 @@ command to switch on STARTTLS otherwise." greeting capabilities)))) (defun proto-stream-open-network-only (name buffer host service parameters) - (open-network-stream name buffer host service)) + (let ((start (with-current-buffer buffer (point))) + (stream (open-network-stream name buffer host service))) + (list stream + (proto-stream-get-response + stream start (proto-stream-eoc parameters)) + nil))) (defun proto-stream-open-network (name buffer host service parameters) (let* ((start (with-current-buffer buffer (point))) |