From 17317aedab03b85a61e82df8691f1c6af9a5f310 Mon Sep 17 00:00:00 2001 From: teranisi Date: Sat, 29 Nov 2003 06:38:41 +0000 Subject: [PATCH] * wl-util.el (wl-current-message-buffer): If wl-message-buffer is non-nil, use it; Don't fetch message if there's no message in the current cursor position. --- wl/ChangeLog | 6 ++++++ wl/wl-util.el | 8 +++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 85468d5..7116be7 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2003-11-29 Yuuichi Teranishi + + * wl-util.el (wl-current-message-buffer): If wl-message-buffer is + non-nil, use it; Don't fetch message if there's no message in the + current cursor position. + 2003-11-29 Yoichi NAKAYAMA * wl-util.el (wl-region-exists-p): Use region-active-p. diff --git a/wl/wl-util.el b/wl/wl-util.el index b4bbdf2..b40d735 100644 --- a/wl/wl-util.el +++ b/wl/wl-util.el @@ -542,9 +542,11 @@ that `read' can handle, whenever this is possible." (defun wl-current-message-buffer () (when (buffer-live-p wl-current-summary-buffer) (with-current-buffer wl-current-summary-buffer - (car (wl-message-buffer-display wl-summary-buffer-elmo-folder - (wl-summary-message-number) - 'mime))))) + (or wl-message-buffer + (and (wl-summary-message-number) + (car (wl-message-buffer-display wl-summary-buffer-elmo-folder + (wl-summary-message-number) + 'mime))))))) (defmacro wl-kill-buffers (regexp) (` (mapcar (function -- 1.7.10.4