From 3a4e0ede6f7ecdb73d3c636c5a2fef6d64e8b00a Mon Sep 17 00:00:00 2001 From: kaoru Date: Mon, 15 Oct 2001 04:37:10 +0000 Subject: [PATCH] 2001-10-15 NAKAJIMA Mikio * wl-summary.el (wl-summary-jump-to-msg): Search before calibration point by `beginning-of-line'. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 14 +++++--------- 2 files changed, 10 insertions(+), 9 deletions(-) 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 + + * wl-summary.el (wl-summary-jump-to-msg): Search before + calibration point by `beginning-of-line'. + 2001-10-05 Yoichi NAKAYAMA * 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 -- 1.7.10.4