From: teranisi <teranisi>
Date: Fri, 10 May 2002 06:21:22 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-jump-to-msg): Fix.
X-Git-Tag: elmo-mark-root~141
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=36583bba58403d7c57aac38c2c0fdc0eb39ea445;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4cedfb7..84b9120 100644
--- 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
--- 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)))