diff options
| author | Kai Tetzlaff <emacs@tetzco.de> | 2022-02-28 11:33:56 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-09-06 13:33:48 +0200 |
| commit | 46963d0bc9058caeb8241abe34b1552bd83e097d (patch) | |
| tree | 1721ba0218ea00645df62aa24ab3d00d7ee0f755 | |
| parent | 015fb4ac1c84485c563934087884f8a7dfe51955 (diff) | |
Improve robustnes of `sieve-manage-quit' in case of errors
* lisp/net/sieve.el (sieve-manage-quit): Avoid killing buffers it's
not supposed to touch (bug#54154).
| -rw-r--r-- | lisp/net/sieve.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/sieve.el b/lisp/net/sieve.el index 3a6067ee10b..c2faeaef544 100644 --- a/lisp/net/sieve.el +++ b/lisp/net/sieve.el @@ -152,7 +152,8 @@ require \"fileinto\"; (interactive) (sieve-manage-close sieve-manage-buffer) (kill-buffer sieve-manage-buffer) - (kill-buffer (current-buffer))) + (when-let ((buffer (get-buffer sieve-buffer))) + (kill-buffer buffer))) (defun sieve-bury-buffer () "Bury the Manage Sieve buffer without closing the connection." |