* wl-summary.el (wl-summary-sync-marks):

Use elmo-folder-list-global-flag-messages.

* elmo-flag.el (elmo-folder-list-global-flag-messages): New function.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a7cff0b..86592e5 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2003-09-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * elmo-flag.el (elmo-folder-list-global-flag-messages): New function.
+
        * elmo.el (elmo-folder-delete-messages): Added notice in docstring.
        (elmo-folder-move-messages): Call elmo-global-flag-detach-messages
        with argument `delete-if-none' when dst-folder is 'null.

diff --git a/elmo/elmo-flag.el b/elmo/elmo-flag.el
index 62590db..a093091 100644 (file)
--- a/elmo/elmo-flag.el
+++ b/elmo/elmo-flag.el
@@ -226,6 +226,19 @@ NUMBER is the number of the message."
       (setq flag-list (cdr flag-list)))
     matches))
 
+(defun elmo-folder-list-global-flag-messages (folder flag)
+  "List messages which have global flag.
+FOLDER is the elmo folder structure.
+FLAG is the symbol of the flag."
+  (when (elmo-global-flag-p flag)
+    (let ((flag-folder (elmo-flag-get-folder flag))
+         result entity)
+      (dolist (elem (elmo-flag-folder-minfo-internal flag-folder))
+       (if (setq entity (elmo-message-entity folder (nth 1 elem)))
+           (setq result (cons (elmo-message-entity-number entity)
+                              result))))
+      result)))
+
 ;;;
 ;; minfo is a list of following cell.
 ;; ((((FNAME . NUMBER)...(FNAME . NUMBER)) MESSAGE-ID NUMBER-IN-FLAG-FOLDER)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 32b02ed..cbae831 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -3,6 +3,7 @@
        * wl-summary.el (wl-summary-delete-all-msgs): Use
        elmo-folder-move-messages instead of elmo-folder-delete-messages
        and elmo-folder-detach-messages.
+       (wl-summary-sync-marks): Use elmo-folder-list-global-flag-messages.
 
        * wl-expire.el (wl-expire-delete): Ditto.
        (wl-expire-refile-with-copy-reserve-msg): Ditto.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 6c3f1bc..b2a0f02 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1670,8 +1670,15 @@ If ARG is non-nil, checking is omitted."
                    wl-summary-buffer-elmo-folder)
                   'internal))
       (message "Updating marks...")
-      (setq importants (elmo-folder-list-importants
-                       wl-summary-buffer-elmo-folder)
+      (setq importants (elmo-uniq-list
+                       (nconc (elmo-folder-list-importants
+                               wl-summary-buffer-elmo-folder)
+                              ;; XXX Temporal implementation.
+                              ;; It should be merged to the
+                              ;; elmo-folder-list-flagged.
+                              (elmo-folder-list-global-flag-messages
+                               wl-summary-buffer-elmo-folder
+                               'important)))
            unreads (elmo-folder-list-unreads
                     wl-summary-buffer-elmo-folder)
            answereds (elmo-folder-list-answereds
@@ -4605,6 +4612,7 @@ If ASK-CODING is non-nil, coding-system for the message is asked."
          (wl-message-header-narrowing-toggle)
          (and wpos (set-window-start mwin wpos)))))))
 
+(autoload 'elmo-folder-list-global-flag-messages "elmo-flag")
 
 (require 'product)
 (product-provide (provide 'wl-summary) (require 'wl-version))