From 4dc7e43ba1b154caebdaeafa07e9b8f0835209fe Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 22 Sep 1994 06:55:11 +0000 Subject: [PATCH] (rmail-summary-goto-msg): Simply the regexp for finding the message number. Check that a non-digit follows it. --- lisp/mail/rmailsum.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index cf9d6bbd200..67a4f72c02a 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -807,7 +807,7 @@ Commands for sorting the summary: (goto-char (point-max)) (rmail-summary-goto-msg))) (goto-char (point-min)) - (if (not (re-search-forward (concat "^ *" (int-to-string n)) nil t)) + (if (not (re-search-forward (format "^%4d[^0-9]" n) nil t)) (progn (or nowarn (message "Message %d not found" n)) (setq n curmsg) (setq message-not-found t) -- 2.39.5