From 8411f54bea43e3cc31632ec94c9777724516d1de Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 16 Sep 2002 11:23:02 +0000 Subject: [PATCH] Synch up with main trunk. 2002-09-13 Yoichi NAKAYAMA * wl-mime.el (wl-draft-preview-message): Revive the position before evaluating wl-draft-send-hook in preview buffer. --- wl/ChangeLog | 5 +++++ wl/wl-mime.el | 2 ++ 2 files changed, 7 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index 3ffa452..9906b80 100644 --- 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 + + * wl-mime.el (wl-draft-preview-message): Revive the position + before evaluating wl-draft-send-hook in preview buffer. + 2002-09-12 Yoichi NAKAYAMA * 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 -- 1.7.10.4