From 7658ddf1bd86928d1d96e0032c0601c33b1d2192 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 3 May 2002 06:17:10 +0000 Subject: [PATCH] (wl-summary-prev): Fixed regexp. (wl-summary-next): Ditto. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 65b8fb3..e66a7cf 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-05-03 Yuuichi Teranishi + + * wl-summary.el (wl-summary-prev): Fixed regexp. + (wl-summary-next): Ditto. + 2002-05-02 Yoichi NAKAYAMA * wl-summary.el (wl-summary-line-day-of-week): Ignore error. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index adfd087..9bbad65 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4918,10 +4918,10 @@ Use function list is `wl-summary-write-current-folder-functions'." (if (elmo-folder-plugged-p wl-summary-buffer-elmo-folder) (setq regex (format "%s[^%s]" wl-summary-message-regexp - skip-mark-regexp)) + (concat skip-mark-regexp "0-9"))) (setq regex (format "%s[^%s]\\(%s\\|%s\\| \\)" wl-summary-message-regexp - skip-mark-regexp + (concat skip-mark-regexp "0-9") (regexp-quote wl-summary-unread-cached-mark) (regexp-quote wl-summary-important-mark)))) (unless (re-search-backward regex nil t) @@ -4957,10 +4957,10 @@ Use function list is `wl-summary-write-current-folder-functions'." (if (elmo-folder-plugged-p wl-summary-buffer-elmo-folder) (setq regex (format "%s[^%s]" wl-summary-message-regexp - skip-mark-regexp)) + (concat skip-mark-regexp "0-9"))) (setq regex (format "%s[^%s]\\(%s\\|%s\\| \\)" wl-summary-message-regexp - skip-mark-regexp + (concat skip-mark-regexp "0-9") (regexp-quote wl-summary-unread-cached-mark) (regexp-quote wl-summary-important-mark)))) (unless (re-search-forward regex nil t) -- 1.7.10.4