From 36583bba58403d7c57aac38c2c0fdc0eb39ea445 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 10 May 2002 06:21:22 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-jump-to-msg): Fix. --- wl/ChangeLog | 4 ++++ wl/wl-summary.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * wl-summary.el (wl-summary-jump-to-msg): Fix. + 2002-05-09 Yuuichi Teranishi * 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))) -- 1.7.10.4