diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2020-08-27 08:00:14 -0700 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2020-08-27 14:19:07 -0700 |
| commit | 1153b238aef5a48bbecd5a58cd6a14dae9ec1d2f (patch) | |
| tree | 05d858099af9bcb49ec0e0f9a6d825e91e681e30 /lisp/gnus/gnus-group.el | |
| parent | 6ff37fc439f9a921cfced62d784050b9ae9c0c77 (diff) | |
| download | emacs-1153b238aef5a48bbecd5a58cd6a14dae9ec1d2f.tar.gz emacs-1153b238aef5a48bbecd5a58cd6a14dae9ec1d2f.tar.bz2 emacs-1153b238aef5a48bbecd5a58cd6a14dae9ec1d2f.zip | |
Set Gnus server 'closed status in gnus-close-server
* lisp/gnus/gnus-int.el (gnus-close-server): Set 'closed status here.
* lisp/gnus/gnus-group.el (gnus-group-suspend): Not here.
Diffstat (limited to 'lisp/gnus/gnus-group.el')
| -rw-r--r-- | lisp/gnus/gnus-group.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 97e10a37a21..d613bc86ad7 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -4300,8 +4300,7 @@ The hook `gnus-suspend-gnus-hook' is called before actually suspending." ;; Closing all the backends is useful (for instance) when when the ;; IP addresses have changed and you need to reconnect. (dolist (elem gnus-opened-servers) - (gnus-close-server (car elem)) - (setcar (cdr elem) 'closed)) + (gnus-close-server (car elem))) (when group-buf (bury-buffer group-buf) (delete-windows-on group-buf t)))) |