X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-msgdb.el;h=d9dbdbf599a0e4a1a655675dc666e9134c82b4da;hb=c2738fdc4e616fb55973a7e285432f60af6c1c57;hp=939f4187cd776caee55fc26c258774f54902e1df;hpb=bb80c1a8578abe6d0d2c89fcb1010e4218f34502;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index 939f418..d9dbdbf 100644
--- a/elmo/elmo-msgdb.el
+++ b/elmo/elmo-msgdb.el
@@ -40,27 +40,6 @@
 (require 'modb)
 (require 'modb-entity)
 
-(defconst elmo-msgdb-new-mark "N"
-  "Mark for new message.")
-
-(defconst elmo-msgdb-unread-uncached-mark "U"
-  "Mark for unread and uncached message.")
-
-(defconst elmo-msgdb-unread-cached-mark "!"
-  "Mark for unread but already cached message.")
-
-(defconst elmo-msgdb-read-uncached-mark "u"
-  "Mark for read but uncached message.")
-
-(defconst elmo-msgdb-answered-cached-mark "&"
-  "Mark for answered and cached message.")
-
-(defconst elmo-msgdb-answered-uncached-mark "A"
-  "Mark for answered but cached message.")
-
-(defconst elmo-msgdb-important-mark "$"
-  "Mark for important message.")
-
 ;;; MSGDB interface.
 ;;
 ;; MSGDB elmo-load-msgdb PATH
@@ -209,11 +188,9 @@
   (let ((flags (elmo-get-hash-val msg-id flag-table)))
     (if flags
 	(append
-	 (and (elmo-msgdb-global-mark-get msg-id)
-	      '(important))
 	 (and (elmo-file-cache-exists-p msg-id)
 	      '(cached))
-	 (elmo-list-delete '(important cached read)
+	 (elmo-list-delete '(cached read)
 			   (copy-sequence flags)
 			   #'delq))
       '(new unread))))