diff options
| author | Kai Tetzlaff | 2022-02-28 11:33:56 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-09-06 13:33:48 +0200 |
| commit | 46963d0bc9058caeb8241abe34b1552bd83e097d (patch) | |
| tree | 1721ba0218ea00645df62aa24ab3d00d7ee0f755 | |
| parent | 015fb4ac1c84485c563934087884f8a7dfe51955 (diff) | |
| download | emacs-46963d0bc9058caeb8241abe34b1552bd83e097d.tar.gz emacs-46963d0bc9058caeb8241abe34b1552bd83e097d.zip | |
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\"; | |||
| 152 | (interactive) | 152 | (interactive) |
| 153 | (sieve-manage-close sieve-manage-buffer) | 153 | (sieve-manage-close sieve-manage-buffer) |
| 154 | (kill-buffer sieve-manage-buffer) | 154 | (kill-buffer sieve-manage-buffer) |
| 155 | (kill-buffer (current-buffer))) | 155 | (when-let ((buffer (get-buffer sieve-buffer))) |
| 156 | (kill-buffer buffer))) | ||
| 156 | 157 | ||
| 157 | (defun sieve-bury-buffer () | 158 | (defun sieve-bury-buffer () |
| 158 | "Bury the Manage Sieve buffer without closing the connection." | 159 | "Bury the Manage Sieve buffer without closing the connection." |