sieve.el: Make the buffer to edit unmodified initially (bug#24423)

* lisp/net/sieve.el (sieve-edit-script):
Make the buffer to edit be not modified-p initially (bug#24423).

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/net/sieve.el b/lisp/net/sieve.el
index 2046e53697d..d126d84c5de 100644
--- a/lisp/net/sieve.el
+++ b/lisp/net/sieve.el
@@ -207,7 +207,8 @@ require \"fileinto\";
               err)
           (setq err (sieve-manage-getscript name newbuf sieve-manage-buffer))
           (switch-to-buffer newbuf)
-          (unless (sieve-manage-ok-p err)
+          (if (sieve-manage-ok-p err)
+              (set-buffer-modified-p nil)
             (error "Sieve download failed: %s" err)))
       (switch-to-buffer (get-buffer-create "template.siv"))
       (insert sieve-template))