From 4453b4bd82ab89e938973d79206d85b9bba1dc7c Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 15 Dec 2004 08:50:31 +0000 Subject: [PATCH] * wl-util.el (wl-save-drafts): Restore echo area. --- wl/ChangeLog | 4 ++++ wl/wl-util.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index ba1d5d8..5d73cde 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2004-12-15 Yoichi NAKAYAMA + + * wl-util.el (wl-save-drafts): Restore echo area. + 2004-12-12 Yuuichi Teranishi * Version number is increased to 2.13.0. diff --git a/wl/wl-util.el b/wl/wl-util.el index 726042c..a1820d4 100644 --- a/wl/wl-util.el +++ b/wl/wl-util.el @@ -579,12 +579,14 @@ that `read' can handle, whenever this is possible." result)) (defun wl-save-drafts () - (let ((buffers (wl-collect-draft))) + (let ((msg (current-message)) + (buffers (wl-collect-draft))) (save-excursion (while buffers (set-buffer (car buffers)) (if (buffer-modified-p) (wl-draft-save)) - (setq buffers (cdr buffers)))))) + (setq buffers (cdr buffers)))) + (message msg))) (static-if (fboundp 'read-directory-name) (defun wl-read-directory-name (prompt dir) -- 1.7.10.4