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).

diff --git a/lisp/net/sieve.el b/lisp/net/sieve.el
index 3a6067ee10b8b2044aaf1e5d681f30709ea6ab08..c2faeaef544fedd5d46b99433bfafec23b054e94 100644 (file)
--- 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."