; Fix a thinko in sieve-manage.el

* lisp/net/sieve-manage.el (sieve-manage--append-to-log): Fix
thinko.  (Bug#54154)

(cherry picked from commit 36ff7138febfcec7fcee44e8b51c6b26cbb056a2)

diff --git a/lisp/net/sieve-manage.el b/lisp/net/sieve-manage.el
index c31190acca7293f848a2482f290b1eb6e2e286db..3d548f12cfb101d23d8245f9cec915096d5a2cae 100644 (file)
--- a/lisp/net/sieve-manage.el
+++ b/lisp/net/sieve-manage.el
@@ -181,7 +181,8 @@ configured with some initial settings)."
                              (with-current-buffer
                                  (get-buffer-create sieve-manage-log)
                                (set-buffer-multibyte nil)
-                               (buffer-disable-undo)))
+                               (buffer-disable-undo)
+                               (current-buffer)))
       (goto-char (point-max))
       (apply #'insert args))))