Synch up with main trunk.

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.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3ffa452..9906b80 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -53,6 +53,11 @@
        (wl-summary-archive): Use elmo-folder-msgdb instead of
        elmo-msgdb-load.
 
+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 (file)
--- 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