From 79be1e48321097c370e5bc442fdce5784f57c92d Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 8 Aug 2000 02:24:45 +0000 Subject: [PATCH] (elmo-move-msgs): Set value of `unseen'. --- elmo/ChangeLog | 4 ++++ elmo/elmo2.el | 7 ++++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index edd1930..d2c144c 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,7 @@ +2000-08-08 Yuuichi Teranishi + + * elmo2.el (elmo-move-msgs): Set value of `unseen'. + 2000-08-06 OKAZAKI Tetsurou * elmo-imap4.el (elmo-imap4-parse-overview-string): In regexps diff --git a/elmo/elmo2.el b/elmo/elmo2.el index 8799947..7a0373c 100644 --- a/elmo/elmo2.el +++ b/elmo/elmo2.el @@ -297,9 +297,10 @@ without cacheing." ;; seen-list. (if (and (not (eq dst-folder 'null)) (not (and unread-marks - (member - (cadr (assq (car messages) mark-alist)) - unread-marks)))) + (setq unseen + (member + (cadr (assq (car messages) mark-alist)) + unread-marks))))) (setq seen-list (cons message-id seen-list))) (unless (or (eq dst-folder 'null) done-copy) (if (and (elmo-folder-plugged-p src-folder) -- 1.7.10.4