From: hmurata <hmurata>
Date: Thu, 17 Jul 2003 07:44:27 +0000 (+0000)
Subject: * elmo.el (elmo-generic-folder-append-messages): Set flag as nil
X-Git-Tag: elmo-mark-restart~40
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a5bcb1f0eb41b558a6b4ed277047adc6b8676a2a;p=elisp%2Fwanderlust.git

* elmo.el (elmo-generic-folder-append-messages): Set flag as nil
if mark is nil.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index fc10def..b30ab8d 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-17  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo.el (elmo-generic-folder-append-messages): Set flag as nil
+	if mark is nil.
+
 2003-07-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo.el (elmo-folder-list-message-entities): Define as inline
diff --git a/elmo/elmo.el b/elmo/elmo.el
index 752717d..f3396fa 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1014,6 +1014,7 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).")
 	(setq failure nil
 	      mark (elmo-message-mark src-folder (car numbers))
 	      flag (cond
+		    ((null mark) nil)
 		    ((member mark (elmo-msgdb-answered-marks))
 		     'answered)
 		    ;;