From: yoichi <yoichi>
Date: Sat, 12 Jun 2004 02:19:07 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-config-exec): Narrow the range of
X-Git-Tag: wl-2_11_30~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7d8afd415d11ef7e70d3df5b27a4698795bb0f37;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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