[Emacs-diffs] /srv/bzr/emacs/trunk r102641: proto-stream.el (proto-stream-open-network-only): Fix the calling convention of the network-only option.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102641
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2010-12-13 04:22:39 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-sum.el
  lisp/gnus/proto-stream.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-12-11 01:27:14 +0000
+++ b/lisp/gnus/ChangeLog       2010-12-13 04:22:39 +0000
@@ -1,3 +1,11 @@
+2010-12-13  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * proto-stream.el (proto-stream-open-network-only): New function to

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2010-12-06 22:16:10 +0000
+++ b/lisp/gnus/gnus-sum.el     2010-12-13 04:22:39 +0000
@@ -8982,8 +8982,11 @@
 
 (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

=== modified file 'lisp/gnus/proto-stream.el'
--- a/lisp/gnus/proto-stream.el 2010-12-11 01:27:14 +0000
+++ b/lisp/gnus/proto-stream.el 2010-12-13 04:22:39 +0000
@@ -111,7 +111,12 @@
            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)))