From a9d6085d4a58117320accb1870cf08a100cd3261 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 8 Nov 2002 13:56:15 +0000 Subject: [PATCH] * 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 ) --- elmo/ChangeLog | 6 ++++++ elmo/elmo-maildir.el | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) 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 + + * 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 ) + 2002-10-26 Yuuichi Teranishi * 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))))) -- 1.7.10.4