* 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 (file)
--- 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 (file)
--- 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)
                    ;;