From: teranisi <teranisi>
Date: Mon, 24 Mar 2003 05:36:55 +0000 (+0000)
Subject: Fixed last change.
X-Git-Tag: elmo-mark-restart~68
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=35b0de148d6bebca5aadd8dda40780680f9b98d6;p=elisp%2Fwanderlust.git

Fixed last change.
---

diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index 2aa91cc..7fb5013 100644
--- a/elmo/elmo-msgdb.el
+++ b/elmo/elmo-msgdb.el
@@ -526,9 +526,13 @@ content of MSGDB is changed."
 (defun elmo-flag-table-save (dir flag-table)
   (elmo-object-save
    (expand-file-name elmo-flag-table-filename dir)
-   (mapatoms (lambda (atom)
-	       (cons (symbol-name atom) (symbol-value atom)))
-	     flag-table)))
+   (let (list)
+     (mapatoms (lambda (atom)
+		 (setq list (cons (cons (symbol-name atom)
+					(symbol-value atom))
+				  list)))
+	       flag-table)
+     list)))
 ;;;
 ;; persistent mark handling
 ;; (for each folder)