From: kaoru <kaoru>
Date: Mon, 15 Oct 2001 04:37:10 +0000 (+0000)
Subject: 2001-10-15  NAKAJIMA Mikio  <minakaji@osaka.email.ne.jp>
X-Git-Tag: wl-2_6_1~10
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3a4e0ede6f7ecdb73d3c636c5a2fef6d64e8b00a;p=elisp%2Fwanderlust.git

2001-10-15  NAKAJIMA Mikio  <minakaji@osaka.email.ne.jp>

	* wl-summary.el (wl-summary-jump-to-msg): Search before
	calibration point by `beginning-of-line'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a90629b..51be457 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-15  NAKAJIMA Mikio  <minakaji@osaka.email.ne.jp>
+
+	* wl-summary.el (wl-summary-jump-to-msg): Search before
+	calibration point by `beginning-of-line'.
+
 2001-10-05  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-draft.el (wl-draft): Make truncate-partial-width-windows
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 1296ba6..0d429a3 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2425,15 +2425,11 @@ If ARG is non-nil, checking is omitted."
 		 (string-to-int
 		  (read-from-minibuffer "Jump to Message(No.): ")))))
     (setq num (int-to-string num))
-    (if (re-search-forward (concat "^[ \t]*" num "[^0-9]") nil t)
-	(progn
-	  (beginning-of-line)
-	  t)
-      (if (re-search-backward (concat "^[ \t]*" num "[^0-9]") nil t)
-	  (progn
-	    (beginning-of-line)
-	    t)
-	nil))))
+    (beginning-of-line)
+    (if (or (re-search-forward (concat "^[ \t]*" num "[^0-9]") nil t)
+	    (re-search-backward (concat "^[ \t]*" num "[^0-9]") nil t))
+	(progn (beginning-of-line) t)
+      nil)))
 
 (defun wl-summary-highlight-msgs (msgs)
   (save-excursion