* elmo.el (elmo-folder-move-messages): Open source folder before

[elisp/wanderlust.git] / elmo / elmo.el

diff --git a/elmo/elmo.el b/elmo/elmo.el
index 15c935e..3b3e707 100644 (file)
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1188,7 +1188,7 @@ Returns a list of message numbers successfully appended."
          (error "move: %d is not writable"
                 (elmo-folder-name-internal dst-folder)))
        (when messages
-         ;; src is already opened.
+         (elmo-folder-open-internal src-folder)
          (elmo-folder-open-internal dst-folder)
          (unless (setq succeeds (elmo-folder-append-messages dst-folder
                                                              src-folder