X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo.el;h=1b7543447c4854b404804f7a5346cd629160b38d;hb=8ec27cbd353823f4e7e6fa0480bc796f943067b6;hp=b1fb544b1c65fe49fa0023483d37181f3478fe45;hpb=21f27bac7391dd60d5e54c2c4c5ef1e7b5557a54;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo.el b/elmo/elmo.el
index b1fb544..1b75434 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1232,17 +1232,7 @@ FOLDER is a ELMO folder structure.
 NUMBER is a number of the message.")
 
 (luna-define-method elmo-message-flags ((folder elmo-folder) number)
-  ;; This is a provisional implement.
-  (let ((mark (elmo-message-mark folder number)))
-    (append
-     (and (string= mark elmo-msgdb-new-mark)
-	  '(new))
-     (and (string= mark elmo-msgdb-important-mark)
-	  '(important))
-     (and (member mark (elmo-msgdb-unread-marks))
-	  '(unread))
-     (and (member mark (elmo-msgdb-answered-marks))
-	  '(answered)))))
+  (elmo-msgdb-flags (elmo-folder-msgdb folder) number))
 
 (defsubst elmo-message-flagged-p (folder number flag)
   "Return non-nil if the message is set FLAG.