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-int.el | |
| parent | 6ff37fc439f9a921cfced62d784050b9ae9c0c77 (diff) | |
| download | emacs-1153b238aef5a48bbecd5a58cd6a14dae9ec1d2f.tar.gz | |
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-int.el')
| -rw-r--r-- | lisp/gnus/gnus-int.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index 60ebc07c343..da385a18023 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -351,9 +351,12 @@ If it is down, start it up (again)." "Close the connection to GNUS-COMMAND-METHOD." (when (stringp gnus-command-method) (setq gnus-command-method (gnus-server-to-method gnus-command-method))) - (funcall (gnus-get-function gnus-command-method 'close-server) - (nth 1 gnus-command-method) - (nthcdr 2 gnus-command-method))) + (prog1 + (funcall (gnus-get-function gnus-command-method 'close-server) + (nth 1 gnus-command-method) + (nthcdr 2 gnus-command-method)) + (when-let ((elem (assoc gnus-command-method gnus-opened-servers))) + (setf (nth 1 elem) 'closed)))) (defun gnus-request-list (gnus-command-method) "Request the active file from GNUS-COMMAND-METHOD." |