diff options
Diffstat (limited to 'lisp/gnus/gnus-group.el')
-rw-r--r-- | lisp/gnus/gnus-group.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index b4dca3e1fc..2a31ccd34f 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1008,10 +1008,10 @@ Pre-defined symbols include `gnus-group-tool-bar-gnome' and '((gnus-group-post-news "mail/compose") ;; Some useful agent icons? I don't use the agent so agent users should ;; suggest useful commands: - (gnus-agent-toggle-plugged "disconnect" t + (gnus-agent-toggle-plugged "unplugged" t :help "Gnus is currently unplugged. Click to work online." :visible (and gnus-agent (not gnus-plugged))) - (gnus-agent-toggle-plugged "connect" t + (gnus-agent-toggle-plugged "plugged" t :help "Gnus is currently plugged. Click to work offline." :visible (and gnus-agent gnus-plugged)) ;; FIXME: gnus-agent-toggle-plugged (in gnus-agent-group-make-menu-bar) @@ -2298,11 +2298,14 @@ Return the name of the group if selection was successful." `(-1 nil (,group ,gnus-level-default-subscribed nil nil ,method ,(cons - (if quit-config - (cons 'quit-config quit-config) + (cond + (quit-config + (cons 'quit-config quit-config)) + ((assq gnus-current-window-configuration + gnus-buffer-configuration) (cons 'quit-config (cons gnus-summary-buffer - gnus-current-window-configuration))) + gnus-current-window-configuration)))) parameters))) gnus-newsrc-hashtb) (push method gnus-ephemeral-servers) |