From: hmurata <hmurata>
Date: Sun, 26 Feb 2006 06:06:21 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-message-status): New macro.
X-Git-Tag: wl-2_15_4~54
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aa8a057b2603d2987d2e6d3513739d6faade23b6;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a78429e..ebb31ec 100644
--- 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
--- 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)