From: yoichi <yoichi>
Date: Fri, 13 Sep 2002 10:39:43 +0000 (+0000)
Subject: * wl-mime.el (wl-draft-preview-message): Revive the position
X-Git-Tag: wl-2_11_1~129
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5e39c8b5fc843ec432aa75b4617ea8018bc127c6;p=elisp%2Fwanderlust.git

* wl-mime.el (wl-draft-preview-message): Revive the position
 before evaluating wl-draft-send-hook in preview buffer.
---

diff --git a/BUGS b/BUGS
index 73e182c..811494c 100644
--- a/BUGS
+++ b/BUGS
@@ -1,4 +1,2 @@
 * Cannot communicate with UW imapd with qmail patch.
 * Biff of the POP3 folders do not work correctly (c.f. [wl: 08937]).
-* part-top etc in wl-draft-config-alist does not work correctly
-  with wl-draft-preview-message
diff --git a/BUGS.ja b/BUGS.ja
index 3f00e5e..a5c5129 100644
--- a/BUGS.ja
+++ b/BUGS.ja
@@ -1,4 +1,2 @@
 * qmail 対応の UW imapd のメッセージを扱えない。
 * POP3 フォルダの biff がうまく動かない (c.f. [wl: 08937])。
-* wl-draft-preview-message のときに、 wl-draft-config-alist の
-  part-top 等が誤った動作をする。
diff --git a/wl/ChangeLog b/wl/ChangeLog
index d6370da..c199dd2 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-13  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-mime.el (wl-draft-preview-message): Revive the position
+	before evaluating wl-draft-send-hook in preview buffer.
+
 2002-09-12  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-addrmgr.el (wl-addrmgr-apply-exec): Call wl-draft interactively
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 1847b6f..385329f 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -72,6 +72,7 @@ By setting following-method as yank-content."
   "Preview editing message."
   (interactive)
   (let* (recipients-message
+	 (current-point (point))
 	 (config-exec-flag wl-draft-config-exec-flag)
 	 (parent-folder wl-draft-parent-folder)
 	 (mime-display-header-hook 'wl-highlight-headers)
@@ -89,6 +90,7 @@ By setting following-method as yank-content."
 	     (lambda ()
 	       (let ((wl-draft-config-exec-flag config-exec-flag)
 		     (wl-draft-parent-folder parent-folder))
+		 (goto-char current-point)
 		 (run-hooks 'wl-draft-send-hook)
 		 (setq recipients-message
 		       (condition-case err