From 53e2c70ab0e500c3c90c3daadf93c0a4105ec148 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 8 Nov 2002 13:54:50 +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 81deaf8..9b95789 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-11-06 Yoichi NAKAYAMA * 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))))) -- 1.7.10.4