(wl-summary-prev): Fixed regexp.

(wl-summary-next): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 65b8fb3..e66a7cf 100644 (file)
--- 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 (file)
--- 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)