(elmo-move-msgs): Set value of `unseen'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index edd1930..d2c144c 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2000-08-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo2.el (elmo-move-msgs): Set value of `unseen'.
+
 2000-08-06  OKAZAKI Tetsurou  <okazaki@be.to>
 
        * elmo-imap4.el (elmo-imap4-parse-overview-string): In regexps

diff --git a/elmo/elmo2.el b/elmo/elmo2.el
index 8799947..7a0373c 100644 (file)
--- 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)