diff options
| -rw-r--r-- | lisp/net/sieve.el | 3 |
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\"; | |||
| 207 | err) | 207 | err) |
| 208 | (setq err (sieve-manage-getscript name newbuf sieve-manage-buffer)) | 208 | (setq err (sieve-manage-getscript name newbuf sieve-manage-buffer)) |
| 209 | (switch-to-buffer newbuf) | 209 | (switch-to-buffer newbuf) |
| 210 | (unless (sieve-manage-ok-p err) | 210 | (if (sieve-manage-ok-p err) |
| 211 | (set-buffer-modified-p nil) | ||
| 211 | (error "Sieve download failed: %s" err))) | 212 | (error "Sieve download failed: %s" err))) |
| 212 | (switch-to-buffer (get-buffer-create "template.siv")) | 213 | (switch-to-buffer (get-buffer-create "template.siv")) |
| 213 | (insert sieve-template)) | 214 | (insert sieve-template)) |