From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Sat, 2 Jan 2021 19:05:38 +0000 (-0800)
Subject: Reposition call to set-buffer-modified-p in sieve-upload
X-Git-Tag: emacs-28.0.90~4420
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bfb4db5e4464e834224fd668a6e9c949e03393d6;p=emacs.git

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

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)