* wl-summary.el (wl-summary-message-status): New macro.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a78429e..ebb31ec 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,7 @@
 2006-02-26  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+       * wl-summary.el (wl-summary-message-status): New macro.
+
        * wl-vars.el (wl-summary-persistent-mark-priority-list): Add `killed'.
        (wl-summary-killed-mark): New user option.
 

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 5d1f808..459e967 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -602,6 +602,10 @@ See also variable `wl-use-petname'."
       (setq wl-summary-buffer-message-ring
            (cdr wl-summary-buffer-message-ring)))))
 
+(defmacro wl-summary-message-status (&optional number)
+  `(elmo-message-status wl-summary-buffer-elmo-folder
+                       (or ,number (wl-summary-message-number))))
+
 (defun wl-summary-update-mark-and-highlight-window (&optional win beg)
   "A function to be called as window-scroll-functions."
   (with-current-buffer (window-buffer win)