summaryrefslogtreecommitdiff
path: root/message-templ.el
diff options
context:
space:
mode:
authorDavid Bremner <bremner@unb.ca>2009-12-29 21:35:22 -0400
committerDavid Bremner <bremner@unb.ca>2009-12-29 21:44:55 -0400
commit299475296b1337e63b9634ba8e06834f73e0522d (patch)
tree452d96f2a6d0b859a839c4eba5a4db0e20a471eb /message-templ.el
parent3b4328ab150f4425ebe94907273cf1957c494349 (diff)
add message-templ-config-exec()
This function tries to match a sequence of regexps on the headers, and applies corresponding actions.
Diffstat (limited to 'message-templ.el')
-rw-r--r--message-templ.el21
1 files changed, 21 insertions, 0 deletions
diff --git a/message-templ.el b/message-templ.el
index 333d8ac..c76ae33 100644
--- a/message-templ.el
+++ b/message-templ.el
@@ -349,5 +349,26 @@ Set header-separator is MAIL-HEADER."
(insert mail-header-separator "\n"))
(messsage-templ-config-exec-sub template))))
+(defun message-templ-config-exec (&optional config-alist)
+ "Change headers according to the value of `message-templ-config-alist'."
+ (interactive)
+ (let ((case-fold-search t)
+ (alist (or config-alist message-templ-config-alist))
+ local-variables key clist found)
+ (save-excursion
+ (while alist
+ (setq key (caar alist)
+ clist (cdar alist))
+ (cond
+ ((stringp key)
+ (if (save-restriction
+ (message-narrow-to-headers)
+ (goto-char (point-min))
+ (re-search-forward key nil t))
+ (message-templ-config-exec-sub clist)))
+ ((eval key)
+ (message-templ-config-exec-sub clist)))
+ (setq alist (cdr alist))))))
+
(provide 'message-templ)
;;; message-templ.el ends here