master 46963d0bc9 1/2: Improve robustnes of `sieve-manage-quit' in case of errors

[Lars Ingebrigtsen]

branch: master
commit 46963d0bc9058caeb8241abe34b1552bd83e097d
Author: Kai Tetzlaff <emacs@tetzco.de>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/net/sieve.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/net/sieve.el b/lisp/net/sieve.el
index 3a6067ee10..c2faeaef54 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."