mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(mh-read-msg-list): Add space to message-number regexp.

Browse source
This commit is contained in:
Richard M. Stallman 1993-07-20 04:35:00 +00:00
parent 44cdca98f7
commit 2aefa7fb46
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mh-e.el
View file

@ -48,7 +48,7 @@
;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu
;;; Modified by Stephen Gildea 1988. gildea@bbn.com
(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 $")
(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 $")
;;; Code:
@ -2334,7 +2334,7 @@ Use \\[kill-buffer] if you don't want to delete the draft message file."
(match-end 0))))
(cond ((looking-at "-") ; Message range
(forward-char 1)
(re-search-forward "[0-9]+" end-of-line t)
(re-search-forward " [0-9]+" end-of-line t)
(let ((num2 (string-to-int (buffer-substring (match-beginning 0)
(match-end 0)))))
(if (< num2 num)