Mercurial > emacs

changeset 8997:6616ea991c4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-summary-goto-msg): Simply the regexp for finding the message number. Check that a non-digit follows it.
author Richard M. Stallman <rms@gnu.org>
date Thu, 22 Sep 1994 06:55:11 +0000
parents 06a5ceb0fb21
children 25406f41c336
files lisp/mail/rmailsum.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el	Thu Sep 22 06:42:30 1994 +0000
+++ b/lisp/mail/rmailsum.el	Thu Sep 22 06:55:11 1994 +0000
@@ -807,7 +807,7 @@
 		 (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)