diff options
| author | Richard M. Stallman | 1994-09-22 06:55:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-22 06:55:11 +0000 |
| commit | 4dc7e43ba1b154caebdaeafa07e9b8f0835209fe (patch) | |
| tree | d2c7fdeef8b83a63bf3e1b2ea321c05d1a0308ec | |
| parent | 6696af6580eea3a04f6459758b78817ee0f9d216 (diff) | |
| download | emacs-4dc7e43ba1b154caebdaeafa07e9b8f0835209fe.tar.gz emacs-4dc7e43ba1b154caebdaeafa07e9b8f0835209fe.zip | |
(rmail-summary-goto-msg): Simply the regexp
for finding the message number. Check that a non-digit follows it.
| -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 cf9d6bbd200..67a4f72c02a 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el | |||
| @@ -807,7 +807,7 @@ Commands for sorting the summary: | |||
| 807 | (goto-char (point-max)) | 807 | (goto-char (point-max)) |
| 808 | (rmail-summary-goto-msg))) | 808 | (rmail-summary-goto-msg))) |
| 809 | (goto-char (point-min)) | 809 | (goto-char (point-min)) |
| 810 | (if (not (re-search-forward (concat "^ *" (int-to-string n)) nil t)) | 810 | (if (not (re-search-forward (format "^%4d[^0-9]" n) nil t)) |
| 811 | (progn (or nowarn (message "Message %d not found" n)) | 811 | (progn (or nowarn (message "Message %d not found" n)) |
| 812 | (setq n curmsg) | 812 | (setq n curmsg) |
| 813 | (setq message-not-found t) | 813 | (setq message-not-found t) |