proto-stream.el (proto-stream-open-network-only): Fix the calling convention of the network-only option.

gnus-sum.el (gnus-summary-enter-digest-group): Mention gnus-auto-select-on-ephemeral-exit.

3 files changed, 19 insertions, 3 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2ff18436ed6..d39f5330fd3 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,11 @@
+2010-12-13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+        * gnus-sum.el (gnus-summary-enter-digest-group): Mention
+        gnus-auto-select-on-ephemeral-exit.
+
+        * proto-stream.el (proto-stream-open-network-only): Fix the calling
+        convention of the network-only option.
+
 2010-12-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
         * proto-stream.el (proto-stream-open-network-only): New function to
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 1bb4b4a6895..a0217283757 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -8982,8 +8982,11 @@ variable."
 
 (defun gnus-summary-enter-digest-group (&optional force)
   "Enter an nndoc group based on the current article.
-If FORCE, force a digest interpretation.  If not, try
-to guess what the document format is."
+If FORCE, force a digest interpretation.  If not, try to guess
+what the document format is.
+
+To control what happens when you exit the group, see the
+`gnus-auto-select-on-ephemeral-exit' variable."
   (interactive "P")
   (let ((conf gnus-current-window-configuration))
     (save-window-excursion
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)))