master bfb4db5: Reposition call to set-buffer-modified-p in sieve-upload

[Eric Abrahamsen]

branch: master
commit bfb4db5e4464e834224fd668a6e9c949e03393d6
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

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