Fix last change.

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

diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 897c460..6710212 100644 (file)
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -496,7 +496,7 @@ file name for maildir directories."
            (succeeds numbers)
            filename flags id)
        (dolist (number numbers)
-         (setq flags (elmo-message-flags src-folder (car numbers))
+         (setq flags (elmo-message-flags src-folder number)
                filename (elmo-maildir-temporal-filename dir))
          (elmo-copy-file
           (elmo-message-file-name src-folder number)