Mercurial > emacs
changeset 111884:9b5cce10c8e2
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.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 13 Dec 2010 04:22:39 +0000 |
| parents | e6c418577289 |
| children | c00190a8c8ef |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-sum.el lisp/gnus/proto-stream.el |
| diffstat | 3 files changed, 19 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Dec 12 11:53:24 2010 -0500 +++ b/lisp/gnus/ChangeLog Mon Dec 13 04:22:39 2010 +0000 @@ -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
--- a/lisp/gnus/gnus-sum.el Sun Dec 12 11:53:24 2010 -0500 +++ b/lisp/gnus/gnus-sum.el Mon Dec 13 04:22:39 2010 +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
--- a/lisp/gnus/proto-stream.el Sun Dec 12 11:53:24 2010 -0500 +++ b/lisp/gnus/proto-stream.el Mon Dec 13 04:22:39 2010 +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)))