From 07176b2a9e63a0d3933b167f987475d8a18da5cc Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 13 Dec 2010 04:22:39 +0000 Subject: [PATCH] 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. --- lisp/gnus/ChangeLog | 8 ++++++++ lisp/gnus/gnus-sum.el | 7 +++++-- lisp/gnus/proto-stream.el | 7 ++++++- 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 + + * 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 * 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))) -- 2.39.5