From 466886d65c3215aae08fb1440f77ed3613df97ba Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 17 Jul 2003 13:33:29 +0000 Subject: [PATCH] * elmo-localdir.el (elmo-folder-append-messages): Treat flags for local file messages. --- elmo/ChangeLog | 5 +++++ elmo/elmo-localdir.el | 19 ++++++++++++++++++- 2 files changed, 23 insertions(+), 1 deletion(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index b30ab8d..ef6538f 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2003-07-17 Yuuichi Teranishi + + * elmo-localdir.el (elmo-folder-append-messages): Treat flags for + local file messages. + 2003-07-17 Hiroya Murata * elmo.el (elmo-generic-folder-append-messages): Set flag as nil diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el index 0a75990..7af928a 100644 --- a/elmo/elmo-localdir.el +++ b/elmo/elmo-localdir.el @@ -227,15 +227,30 @@ src-folder numbers &optional same-number) (if (elmo-folder-message-file-p src-folder) (let ((dir (elmo-localdir-folder-directory-internal folder)) + (table (elmo-flag-table-load (elmo-folder-msgdb-path folder))) (succeeds numbers) - (next-num (1+ (car (elmo-folder-status folder))))) + (next-num (1+ (car (elmo-folder-status folder)))) + mark flag) (while numbers + (setq mark (elmo-message-mark src-folder (car numbers)) + flag (cond + ((null mark) nil) + ((member mark (elmo-msgdb-answered-marks)) + 'answered) + ;; + ((not (member mark (elmo-msgdb-unread-marks))) + 'read))) (elmo-copy-file (elmo-message-file-name src-folder (car numbers)) (expand-file-name (int-to-string (if same-number (car numbers) next-num)) dir)) + (elmo-flag-table-set table + (elmo-message-field + src-folder (car numbers) + 'message-id) + flag) (elmo-progress-notify 'elmo-folder-move-messages) (if (and (setq numbers (cdr numbers)) (not same-number)) @@ -244,6 +259,8 @@ ;; MDA is running. (1+ (car (elmo-folder-status folder))) (1+ next-num))))) + (when (elmo-folder-persistent-p folder) + (elmo-flag-table-save (elmo-folder-msgdb-path folder) table)) succeeds) (luna-call-next-method))) -- 1.7.10.4