Abolish `seen-list'

diff --git a/MEMO-mark b/MEMO-mark
index 51f5e96..31d47aa 100644 (file)
--- a/MEMO-mark
+++ b/MEMO-mark
@@ -48,4 +48,16 @@ msgdb \e$B$X$NA`:n$O$J$k$Y$/Cj>]2=$9$k$3$H!#\e(B
  \e$B85\e(B message \e$B$,>C$($F$b!"\e(Belmo-marked-message-folder \e$B$K$O;D$k!#\e(B
  \e$B85\e(B message \e$B$,0\F0$7$F$b!"\e(Belmo-marked-message-folder \e$B$K$O;D$k!#\e(B
 
- update \e$B$7$?$H$-$K!"\e(Belmo-marked-message-folder \e$B$K$"$l$P%^!<%/$rIU$1$k!#\e(B
\ No newline at end of file
+ update \e$B$7$?$H$-$K!"\e(Belmo-marked-message-folder \e$B$K$"$l$P%^!<%/$rIU$1$k!#\e(B
+
+* seen-list \e$B$NGQ;_\e(B
+
+seen-list \e$B$OGQ;_$7!"\e(B{"<message-id>" => "mark"} \e$B$N%O%C%7%e%F!<%V%k$H$9$k!#\e(B
+
+elmo-msgdb-id-mark-table-load:
+
+id-mark-table \e$B$,$"$l$P;H$&!#\e(Bcons cell \e$B$N\e(B list \e$B$r\e(B hashtable \e$B$K$9$k!#\e(B
+\e$B$J$1$l$P!"\e(Bseen-list \e$B$r$5$,$9\e(B => seen-list \e$B%U%!%$%k$O>C$9\e(B
+
+elmo-msgdb-id-mark-table-save:
+(cons message-id mark) \e$B$N%j%9%H$H$7$F%;!<%V\e(B
\ No newline at end of file