* 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 81deaf8..9b95789 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-11-06  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * elmo-split.el (elmo-split-default-action): New variable.

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)))))