diff options
| author | Richard M. Stallman <[email protected]> | 1994-09-22 06:55:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-09-22 06:55:11 +0000 |
| commit | 4dc7e43ba1b154caebdaeafa07e9b8f0835209fe (patch) | |
| tree | d2c7fdeef8b83a63bf3e1b2ea321c05d1a0308ec /lisp/mail | |
| parent | 6696af6580eea3a04f6459758b78817ee0f9d216 (diff) | |
(rmail-summary-goto-msg): Simply the regexp
for finding the message number. Check that a non-digit follows it.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailsum.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index cf9d6bbd20..67a4f72c02 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) |