* wl-draft.el (wl-draft-config-exec): Narrow the range of

save-excursion so as not to include run-hooks.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a1f8efe..65fd0ac 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-06-12  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * 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  <yoichi@geiin.org>
 
        * 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 (file)
--- 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