[Emacs-diffs] master 5f00d52: sieve.el: Make the buffer to edit unmodified initially (bug#24423)

[Katsumi Yamaoka]

branch: master
commit 5f00d529dcef8ea8813315be1cc2ce62d00a5030
Author: TSUCHIYA Masatoshi <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    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).
---
 lisp/net/sieve.el |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/net/sieve.el b/lisp/net/sieve.el
index 2046e53..d126d84 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))