From 7d8afd415d11ef7e70d3df5b27a4698795bb0f37 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 12 Jun 2004 02:19:07 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-config-exec): Narrow the range of save-excursion so as not to include run-hooks. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 16 ++++++++-------- 2 files changed, 13 insertions(+), 8 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index a1f8efe..65fd0ac 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2004-06-12 Yoichi NAKAYAMA + + * wl-draft.el (wl-draft-config-exec): Narrow the range of + save-excursion so as not to include run-hooks. + 2004-06-11 Yoichi NAKAYAMA * wl-summary.el (wl-summary-cleanup-temp-marks): defsubst->defun. diff --git a/wl/wl-draft.el b/wl/wl-draft.el index ce24987..17f6ce0 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -2196,14 +2196,14 @@ Automatically applied in draft sending time." (setq found t))) (if (and found wl-draft-config-matchone) (throw 'done t)) - (setq alist (cdr alist)))) - (if found - (setq wl-draft-config-exec-flag nil)) - (run-hooks 'wl-draft-config-exec-hook) - (put-text-property (point-min)(point-max) 'face nil) - (wl-highlight-message (point-min)(point-max) t) - (setq wl-draft-config-variables - (elmo-uniq-list local-variables)))))) + (setq alist (cdr alist))))) + (if found + (setq wl-draft-config-exec-flag nil)) + (run-hooks 'wl-draft-config-exec-hook) + (put-text-property (point-min)(point-max) 'face nil) + (wl-highlight-message (point-min)(point-max) t) + (setq wl-draft-config-variables + (elmo-uniq-list local-variables))))) (defun wl-draft-replace-field (field content &optional add) (save-excursion -- 1.7.10.4