* elmo.el (elmo-folder-move-messages): Fixed problem when

`dst-folder' is 'null.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 7b7e4d9..d46b011 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-10  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo.el (elmo-folder-move-messages): Fixed problem when
+       `dst-folder' is 'null.
+
 2001-05-09  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo.el (elmo-folder-list-importants): Rewirte. Use global mark

diff --git a/elmo/elmo.el b/elmo/elmo.el
index ae2f5d2..3e335d9 100644 (file)
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -882,7 +882,8 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).")
                                 "Copying messages..."
                               "Moving messages..."))
           succeeds i result)
-      (unless (eq dst-folder 'null)
+      (if (eq dst-folder 'null)
+         (setq succeeds messages)
        ;; src is already opened.
        (when messages
          (elmo-folder-open-internal dst-folder)