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

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2ff18436ed66a8bc769a8a086bad4bea03390272..d39f5330fd3ac4f34f337f82c0a42dd6b3336efe 100644 (file)
--- 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 1bb4b4a689542f6325ad66101538115e07e47420..a02172837578aab4bc5bf8296ccccd201eda7ced 100644 (file)
--- 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 e8df945b94665a7e8d0bf19cda93dadd7520f9f6..d1266cb5461eafbe54c22207fe066512678f0eb2 100644 (file)
--- 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)))