From 3a01a2ef6029f0514b65124627d93a2cfba484f7 Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 7 Dec 2004 03:44:54 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-forward): Don't call set-buffer since there is switch-to-buffer at the end of wl-message-select-buffer. (wl-summary-reply): Ditto. --- wl/ChangeLog | 6 ++++++ wl/wl-summary.el | 7 +------ 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index d06646d..aac0b60 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2004-12-07 Yoichi NAKAYAMA + + * wl-summary.el (wl-summary-forward): Don't call set-buffer since + there is switch-to-buffer at the end of wl-message-select-buffer. + (wl-summary-reply): Ditto. + 2004-12-06 Yoichi NAKAYAMA * wl-summary.el (wl-summary-forward): Put subject in original diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 4729e29..c270925 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4145,9 +4145,7 @@ Reply to author if invoked with ARG." (when number (save-excursion (wl-summary-set-message-buffer-or-redisplay)) - (setq mes-buf wl-message-buffer) (wl-message-select-buffer wl-message-buffer) - (set-buffer mes-buf) (condition-case err (when (setq mes-buf (wl-message-get-original-buffer)) (wl-draft-reply mes-buf arg summary-buf number) @@ -4210,7 +4208,6 @@ Use function list is `wl-summary-write-current-folder-functions'." (number (wl-summary-message-number)) (summary-buf (current-buffer)) (wl-draft-forward t) - mes-buf entity subject num) (if (null number) (message "No message.") @@ -4222,9 +4219,7 @@ Use function list is `wl-summary-write-current-folder-functions'." ;; Reload. (wl-summary-redisplay-internal nil nil 'force-reload) (wl-summary-redisplay-internal folder number)) - (setq mes-buf wl-message-buffer) - (wl-message-select-buffer mes-buf) - (set-buffer mes-buf) + (wl-message-select-buffer wl-message-buffer) (setq subject (with-current-buffer wl-message-buffer-original-buffer (std11-field-body "Subject"))) -- 1.7.10.4