From: teranisi <teranisi>
Date: Fri, 8 Nov 2002 13:54:50 +0000 (+0000)
Subject: * elmo-maildir.el (elmo-maildir-update-current): Don't append
X-Git-Tag: wl-2_11_1~58
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=53e2c70ab0e500c3c90c3daadf93c0a4105ec148;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 81deaf8..9b95789 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-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
--- 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)))))