From: teranisi <teranisi>
Date: Tue, 8 Aug 2000 02:24:45 +0000 (+0000)
Subject: (elmo-move-msgs): Set value of `unseen'.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=79be1e48321097c370e5bc442fdce5784f57c92d;p=elisp%2Fwanderlust.git

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

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  <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
--- 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)