Commit 73877cb3 authored by Eric Abrahamsen's avatar Eric Abrahamsen
Browse files

Prompt for new sieve script names in sieve management

* lisp/net/sieve.el (sieve-edit-script): Otherwise the user ends up
with a script named '<new script>.sieve'.
parent 95552e08
Pipeline #2814 failed with stage
in 54 minutes and 34 seconds
......@@ -210,7 +210,11 @@ require \"fileinto\";
(set-buffer-modified-p nil)
(error "Sieve download failed: %s" err)))
(switch-to-buffer (get-buffer-create "template.siv"))
(insert sieve-template))
(insert sieve-template)
(setq name (read-string "Name for new script: "))
(when (string-match "\\.sieve\\'" name)
;; The server will append .sieve to the script name.
(setq name (replace-match "" t t name))))
(sieve-mode)
(setq sieve-buffer-script-name name)
(goto-char (point-min))
......
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