From e6d2aa85e33eb167551984e75eb2d69a0ca36c18 Mon Sep 17 00:00:00 2001 From: David Bremner Date: Fri, 4 Nov 2016 13:13:44 -0300 Subject: Allow named templates in message-templ-config-alist --- message-templ.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3