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).
This commit is contained in:
TSUCHIYA Masatoshi 2016-09-12 23:08:02 +00:00 committed by Katsumi Yamaoka
parent b26e342782
commit 5f00d529dc

View file

@ -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))