* elmo-maildir.el (elmo-maildir-update-current): Don't append

info part to the cur files when the new files already have it.
(Adviced by Jared Rhine <jared@wordzoo.com>)

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index e5bf491..1cb7a44 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2002-11-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-maildir.el (elmo-maildir-update-current): Don't append
+       info part to the cur files when the new files already have it.
+       (Adviced by Jared Rhine <jared@wordzoo.com>)
+
 2002-10-26  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-version.el (elmo-version): Up to 2.10.0.

diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 8ff700d..6fe8c22 100644 (file)
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -214,7 +214,10 @@ LOCATION."
     (while news
       (rename-file
        (expand-file-name (car news) (expand-file-name "new" maildir))
-       (expand-file-name (concat (car news) ":2,")
+       (expand-file-name (concat
+                         (car news)
+                         (unless (string-match ":2,[A-Z]*$" (car news))
+                           ":2,"))
                         (expand-file-name "cur" maildir)))
       (setq news (cdr news)))))