* wl-summary.el (wl-summary-jump-to-msg): Fix.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4cedfb7..84b9120 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-05-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-summary.el (wl-summary-jump-to-msg): Fix.
+
 2002-05-09  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-draft.el (wl-draft-create-contents): Treat 'Body field as draft

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 6251367..68f3da1 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2111,8 +2111,9 @@ If ARG is non-nil, checking is omitted."
                  (read-from-minibuffer "Jump to Message(No.): ")))))
     (setq num (int-to-string num))
     (beginning-of-line)
-    (if (or (re-search-forward (concat "\r" num) nil t)
-           (re-search-backward (concat "\r" num) nil t))
+    (if (or (and (re-search-forward (concat "\r" num "[^0-9]") nil t)
+                (progn (backward-char 1) t))
+           (re-search-backward (concat "\r" num "[^0-9]") nil t))
        (progn (beginning-of-line) t)
       nil)))