(elmo-folder-append-messages): Fix the problem that only the first flag is used.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 84c4092..d2d63bf 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-19  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-maildir.el (elmo-folder-append-messages): Fix the problem
+       that only the first flag is used.
+
 2005-02-17  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp>
 
        * elmo-shimbun.el (elmo-folder-exists-p): Use `shimbun-group-p' 

diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index c9347e2..897c460 100644 (file)
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -508,7 +508,7 @@ file name for maildir directories."
            dir))
          ;; src folder's msgdb is loaded.
          (when (setq id (and src-msgdb-exists
-                             (elmo-message-field src-folder (car numbers)
+                             (elmo-message-field src-folder number
                                                  'message-id)))
            (elmo-flag-table-set table id flags))
          (elmo-progress-notify 'elmo-folder-move-messages))