mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

Improve robustnes of `sieve-manage-quit' in case of errors

Browse source 
* lisp/net/sieve.el (sieve-manage-quit): Avoid killing buffers it's
not supposed to touch (bug#54154).
This commit is contained in:
Kai Tetzlaff 2022-02-28 11:33:56 +01:00 • committed by Lars Ingebrigtsen
parent 015fb4ac1c
commit 46963d0bc9
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/net/sieve.el
View file

@ -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."