From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 22 Sep 1994 06:55:11 +0000 (+0000)
Subject: (rmail-summary-goto-msg): Simply the regexp
X-Git-Tag: emacs-19.34~6857
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4dc7e43ba1b154caebdaeafa07e9b8f0835209fe;p=emacs.git

(rmail-summary-goto-msg): Simply the regexp
for finding the message number.  Check that a non-digit follows it.
---

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)