Fixed around message appear after renaming access group folder.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ec7c775..176ff94 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-19  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-fldmgr.el (wl-fldmgr-rename): Fixed around message appear
+       after renaming folder in access group.
+
 2002-01-19  Kenichi OKADA  <okada@opaopa.org>
 
        * wl-vars.el (wl-message-buffer-prefetch-depth): New variable.

diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 1975285..8f4f7f7 100644 (file)
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -925,7 +925,7 @@ return value is diffs '(-new -unread -all)."
              (progn
                (wl-folder-open-close)
                (wl-folder-jump-to-current-entity t)
-               (message (format "%s is renamed to %s" new-folder old-folder))
+               (message "%s is renamed to %s" old-folder new-folder)
                (sit-for 1))
            ;; update folder list
            (when (wl-fldmgr-cut tmp nil t)