diff options
| author | David Bremner <david@tethera.net> | 2016-11-04 13:13:44 -0300 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2016-11-04 13:13:44 -0300 |
| commit | e6d2aa85e33eb167551984e75eb2d69a0ca36c18 (patch) | |
| tree | 6b2eb4116c63f7ec0077b7be48c20bc1215ee1e7 | |
| parent | 6c70fca8ae519dd9393e5c7917a98ce51b1d0014 (diff) | |
Allow named templates in message-templ-config-alist
| -rw-r--r-- | message-templ.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/message-templ.el b/message-templ.el index a2f54c7..d9d1a5b 100644 --- a/message-templ.el +++ b/message-templ.el @@ -62,7 +62,8 @@ Remaining elements indicate actions." :type '(repeat (list (string :tag "Header Regex") (repeat :inline t - (choice (cons (sexp :tag "Field(Variable)") + (choice (string :tag "Template") + (cons (sexp :tag "Field(Variable)") (sexp :tag "Value")) (sexp :tag "Function"))))) :group 'message-templ) @@ -201,6 +202,8 @@ Remaining elements indicate actions." (while clist (setq config (car clist)) (cond + ((stringp config) + (message-templ-apply config)) ((functionp config) (funcall config)) ((consp config) |