From aa8a057b2603d2987d2e6d3513739d6faade23b6 Mon Sep 17 00:00:00 2001 From: hmurata Date: Sun, 26 Feb 2006 06:06:21 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-message-status): New macro. --- wl/ChangeLog | 2 ++ wl/wl-summary.el | 4 ++++ 2 files changed, 6 insertions(+) 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 + * 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) -- 1.7.10.4