(folder (wl-folder-get-elmo-folder entity))
(msgs (and (elmo-folder-exists-p folder)
(elmo-folder-list-messages folder))))
- (when (yes-or-no-p (format "%sDo you really delete \"%s\"? "
+ (when (yes-or-no-p (format "%sDo you really want to delete \"%s\"? "
(if (> (length msgs) 0)
(format "%d msg(s) exists. " (length msgs))
"")
(wl-folder-get-elmo-folder new-folder))))
(error "Already exists folder: %s" new-folder))
(elmo-folder-rename (wl-folder-get-elmo-folder old-folder)
- (wl-folder-get-elmo-folder new-folder))
+ new-folder)
(wl-folder-set-entity-info
new-folder
(wl-folder-get-entity-info old-folder))