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 1cf46f0..cbbb483 100644 (file)
--- 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-11  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * wl-fldmgr.el (wl-fldmgr-make-group): Check folder name only

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 4083720..016da9e 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2242,15 +2242,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