From ca9a32fffe21b1b5c35a30821ed444c4c2e3f9d1 Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 20 Mar 2001 19:50:09 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-write-current-folder): Support petname. --- wl/ChangeLog | 4 ++++ wl/wl-folder.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 13dbac3..45c4390 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2001-03-20 TAKAHASHI Kaoru + + * wl-folder.el (wl-folder-write-current-folder): Support petname. + 2000-03-11 Kenichi OKADA * wl-draft.el (wl-draft-do-fcc): Fix for `wl-draft-use-cache' diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 77b7644..e9ded62 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -2710,10 +2710,12 @@ If optional arg exists, don't check any folders." (message "All unsync messages in %s are dropped!" entity-name))))) (defun wl-folder-write-current-folder () - "" + "Write message to current folder's newsgroup or mailing-list. +Call `wl-summary-write-current-folder' with current folder name." (interactive) (unless (wl-folder-buffer-group-p) - (wl-summary-write-current-folder (wl-folder-entity-name)))) + (wl-summary-write-current-folder + (wl-folder-get-realname (wl-folder-entity-name))))) (defun wl-folder-mimic-kill-buffer () "Kill the current (Folder) buffer with query." -- 1.7.10.4