mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

(fill-individual-paragraphs): Avoid infinite loop

Browse Source 
if mailp is set and no message was yanked.
This commit is contained in:
Richard M. Stallman 1994-10-26 09:32:04 +00:00
parent ed0cae0592
commit a461b8e01e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/textmodes/fill.el
View File

@ -358,8 +358,11 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
(save-excursion
(goto-char min)
(beginning-of-line)
(narrow-to-region (point) max)
(if mailp
(while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$"))
(while (and (not (eobp))
(or (looking-at "[ \t]*[^ \t\n]*:")
(looking-at "[ \t]*$")))
(if (looking-at "[ \t]*[^ \t\n]*:")
(search-forward "\n\n" nil 'move)
(forward-line 1))))