From 94a915726bf648a90e4c90646c294e76d6ea5323 Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 20 Mar 2001 19:37:35 +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 1099fca..c9bc1b0 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. + 2001-03-14 Yuuichi Teranishi * wl-message.el (wl-normal-message-redisplay): diff --git a/wl/wl-folder.el b/wl/wl-folder.el index cf5671b..afc5095 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -2711,10 +2711,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