Commit 5f00d529 authored by TSUCHIYA Masatoshi's avatar TSUCHIYA Masatoshi Committed by Katsumi Yamaoka
Browse files

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).
parent b26e3427
...@@ -207,7 +207,8 @@ require \"fileinto\"; ...@@ -207,7 +207,8 @@ require \"fileinto\";
err) err)
(setq err (sieve-manage-getscript name newbuf sieve-manage-buffer)) (setq err (sieve-manage-getscript name newbuf sieve-manage-buffer))
(switch-to-buffer newbuf) (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))) (error "Sieve download failed: %s" err)))
(switch-to-buffer (get-buffer-create "template.siv")) (switch-to-buffer (get-buffer-create "template.siv"))
(insert sieve-template)) (insert sieve-template))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment