From: teranisi <teranisi>
Date: Fri, 3 May 2002 06:17:10 +0000 (+0000)
Subject: (wl-summary-prev): Fixed regexp.
X-Git-Tag: elmo-mark-root~159
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7658ddf1bd86928d1d96e0032c0601c33b1d2192;p=elisp%2Fwanderlust.git

(wl-summary-prev): Fixed regexp.
(wl-summary-next): Ditto.
---

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  <teranisi@ns.templewest.net>
+
+	* wl-summary.el (wl-summary-prev): Fixed regexp.
+	(wl-summary-next): Ditto.
+
 2002-05-02  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* 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)