From 5e39c8b5fc843ec432aa75b4617ea8018bc127c6 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 13 Sep 2002 10:39:43 +0000 Subject: [PATCH] * wl-mime.el (wl-draft-preview-message): Revive the position before evaluating wl-draft-send-hook in preview buffer. --- BUGS | 2 -- BUGS.ja | 2 -- wl/ChangeLog | 5 +++++ wl/wl-mime.el | 2 ++ 4 files changed, 7 insertions(+), 4 deletions(-) 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 + + * 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