MEMO-mark

   1 \e$B%^!<%/=hM}%a%b\e(B (elmo-mark \e$B;^\e(B) by teranisi
   2
   3 * wl-summary-*-mark => elmo-msgdb-*-mark \e$B$KJQ?tL>$rJQ99!#\e(B
   4
   5 * elmo-folder-list-messages \e$B$K0z?t\e(B in-msgdb \e$B$rDI2C!#\e(B
   6
   7 * answered \e$B%^!<%/$NDI2C\e(B
   8
   9 answered-uncached \e$B$J$i\e(B A
  10 answered-cached   \e$B$J$i\e(B &
  11 unread-uncached   \e$B$J$i\e(B U
  12 unread-cached     \e$B$J$i\e(B !
  13 new               \e$B$J$i\e(B N
  14 read-uncached     \e$B$J$i\e(B u
  15 read-cached       \e$B$J$i\e(B ' '
  16
  17 * filter, search \e$B$N8!:w>r7o\e(B
  18
  19 mark:unread
  20 mark:important
  21 mark:answered
  22 mark:any
  23
  24 \e$B$H$$$&>r7o$r$+$1$k$h$&$K$9$k!#\e(B
  25 /mark:any/ \e$B$,$$$o$f$k\e(B 'news letter' \e$B%b!<%I!#\e(B
  26
  27 * msgdb \e$B$N%^!<%/=hM}\e(B
  28
  29 \e$B%U%#%k%?%U%)%k%@\e(B, \e$B%^%k%A%U%)%k%@$G$O!"%*%j%8%J%k$N\e(B msgdb \e$B$bFI$_=q$-$9$k!#\e(B
  30 msgdb \e$B$H%5%^%j%S%e!<$O\e(B open \e$B;~$K\e(B sync \e$B$9$k!#\e(B
  31 elmo-folder-check \e$B$G%*%j%8%J%k%U%)%k%@$N\e(B msgdb \e$B$r\e(B sync \e$B$9$k!#\e(B
  32
  33 (elmo-folder-search-requires-msgdb-p folder condition)
  34
  35 \e$B$r@_$1!"\e(Bfilter \e$B%U%)%k%@$G\e(B t \e$B$J$i\e(B original msgdb \e$B$rMxMQ$9$k!#\e(B
  36 nil \e$B$J$i\e(B original \e$B$OMxMQ$7$J$$!#\e(B
  37 msgdb \e$B$X$NA`:n$O$J$k$Y$/Cj>]2=$9$k$3$H!#\e(B
  38
  39 * \e$B%^!<%/$N99?7\e(B
  40
  41 \e$B%^!<%/$O\e(B elmo-folder-mark-as-read\e$B!"\e(Belmo-message-set-cached \e$B$J$I$K$h$jJQ99$9$k!#\e(B
  42 \e$B99?7$5$l$?%^!<%/$O!"A`:n$N$"$H$G\e(B elmo-message-mark \e$B$r8F$S=P$9$3$H$K$h$j\e(B
  43 \e$BF@$k!#\e(B
  44
  45 * global mark \e$B$N4IM}\e(B
  46
  47  elmo-marked-message-folder \e$B$r:n$j!"$=$3$KCV$/$h$&$K$9$k!#\e(B
  48  \e$B%^!<%/$rIU$1$k$H!"\e(Belmo-marked-message-folder \e$B$K2C$($k!#\e(B
  49  \e$B%^!<%/$r>C$9$H!"\e(Belmo-marked-message-folder \e$B$+$i>C$($k!#\e(B
  50  elmo-marked-message-folder \e$B$+$i>C$9$H!"85\e(B message \e$B$N%^!<%/$,>C$($k!#\e(B
  51  \e$B85\e(B message \e$B$,$J$+$C$?$i!">C$($k$@$1!#\e(B
  52
  53  \e$B85\e(B message \e$B$N>pJs\e(B (folder, number, message-id \e$B$"$?$j\e(B) \e$B$rJ]B8$7$F$*$/!#\e(B
  54  \e$B85\e(B message \e$B$,>C$($F$b!"\e(Belmo-marked-message-folder \e$B$K$O;D$k!#\e(B
  55  \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
  56
  57  update \e$B$7$?$H$-$K!"\e(Belmo-marked-message-folder \e$B$K$"$l$P%^!<%/$rIU$1$k!#\e(B
  58
  59 * seen-list \e$B$NGQ;_\e(B
  60
  61 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
  62
  63 elmo-msgdb-id-mark-table-load:
  64 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
  65 \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
  66
  67 elmo-msgdb-id-mark-table-save:
  68 (cons message-id mark) \e$B$N%j%9%H$H$7$F%;!<%V\e(B