Mercurial > emacs
comparison lisp/=mh-e.el @ 4174:3736ceccd7c1
(mh-read-msg-list): Add space to message-number regexp.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 20 Jul 1993 04:35:00 +0000 |
parents | 93d42767e2ec |
children | 8e8321e76af5 |
comparison
equal
deleted
inserted
replaced
4173:2b3fb8d12918 | 4174:3736ceccd7c1 |
---|---|
46 | 46 |
47 ;;; Original version for Gosling emacs by Brian Reid, Stanford, 1982. | 47 ;;; Original version for Gosling emacs by Brian Reid, Stanford, 1982. |
48 ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. | 48 ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. |
49 ;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu | 49 ;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu |
50 ;;; Modified by Stephen Gildea 1988. gildea@bbn.com | 50 ;;; Modified by Stephen Gildea 1988. gildea@bbn.com |
51 (defconst mh-e-RCS-id "$Header: /home/fsf/rms/e19/lisp/RCS/mh-e.el,v 1.13 1993/06/20 22:45:13 rms Exp rms $") | 51 (defconst mh-e-RCS-id "$Header: /home/fsf/rms/e19/lisp/RCS/mh-e.el,v 1.14 1993/07/17 00:18:04 rms Exp rms $") |
52 | 52 |
53 ;;; Code: | 53 ;;; Code: |
54 | 54 |
55 | 55 |
56 | 56 |
2332 (while (re-search-forward "[0-9]+" end-of-line t) | 2332 (while (re-search-forward "[0-9]+" end-of-line t) |
2333 (setq num (string-to-int (buffer-substring (match-beginning 0) | 2333 (setq num (string-to-int (buffer-substring (match-beginning 0) |
2334 (match-end 0)))) | 2334 (match-end 0)))) |
2335 (cond ((looking-at "-") ; Message range | 2335 (cond ((looking-at "-") ; Message range |
2336 (forward-char 1) | 2336 (forward-char 1) |
2337 (re-search-forward "[0-9]+" end-of-line t) | 2337 (re-search-forward " [0-9]+" end-of-line t) |
2338 (let ((num2 (string-to-int (buffer-substring (match-beginning 0) | 2338 (let ((num2 (string-to-int (buffer-substring (match-beginning 0) |
2339 (match-end 0))))) | 2339 (match-end 0))))) |
2340 (if (< num2 num) | 2340 (if (< num2 num) |
2341 (error "Bad message range: %d-%d" num num2)) | 2341 (error "Bad message range: %d-%d" num num2)) |
2342 (while (<= num num2) | 2342 (while (<= num num2) |