From bfb4db5e4464e834224fd668a6e9c949e03393d6 Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Sat, 2 Jan 2021 11:05:38 -0800 Subject: [PATCH] Reposition call to set-buffer-modified-p in sieve-upload * lisp/net/sieve.el (sieve-upload): It's meant to affect the script buffer, not sieve-buffer, so needs to be outside the call to with-current-buffer. --- lisp/net/sieve.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/net/sieve.el b/lisp/net/sieve.el index e46f4daae20..ca100267f67 100644 --- a/lisp/net/sieve.el +++ b/lisp/net/sieve.el @@ -360,8 +360,8 @@ Used to bracket operations which move point in the sieve-buffer." (if (not (sieve-manage-ok-p err)) (message "Sieve upload failed: %s" (nth 2 err)) (message "Sieve upload done. Use %s to manage scripts." - (substitute-command-keys "\\[sieve-manage]")) - (set-buffer-modified-p nil)))))) + (substitute-command-keys "\\[sieve-manage]")))) + (set-buffer-modified-p nil)))) ;;;###autoload (defun sieve-upload-and-bury (&optional name) -- 2.39.5