From 5f00d529dcef8ea8813315be1cc2ce62d00a5030 Mon Sep 17 00:00:00 2001 From: TSUCHIYA Masatoshi Date: Mon, 12 Sep 2016 23:08:02 +0000 Subject: [PATCH] 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 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)) -- 2.39.2