From: teranisi <teranisi>
Date: Fri, 8 Nov 2002 13:56:15 +0000 (+0000)
Subject: * elmo-maildir.el (elmo-maildir-update-current): Don't append
X-Git-Tag: wl-2_10_0pre2~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a9d6085d4a58117320accb1870cf08a100cd3261;p=elisp%2Fwanderlust.git

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