[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 73877cb: Prompt for new sieve script names in sieve
From: |
Eric Abrahamsen |
Subject: |
[Emacs-diffs] master 73877cb: Prompt for new sieve script names in sieve management |
Date: |
Sun, 11 Aug 2019 12:05:38 -0400 (EDT) |
branch: master
commit 73877cb3a781d667b2c03ed5a30add5058d1333b
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
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'.
---
lisp/net/sieve.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/lisp/net/sieve.el b/lisp/net/sieve.el
index 3337998..4485b8c 100644
--- a/lisp/net/sieve.el
+++ b/lisp/net/sieve.el
@@ -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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 73877cb: Prompt for new sieve script names in sieve management,
Eric Abrahamsen <=