# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 753147339 0
# Node ID 8a3293abe1ba353b023c17c79451d9c4205849a3
# Parent  9da6c6c24dddba8b601eb26237b6612418014183
(fill-individual-paragraphs): Fix skipping headers of yanked message.

diff -r 9da6c6c24ddd -r 8a3293abe1ba lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Fri Nov 12 22:31:12 1993 +0000
+++ b/lisp/textmodes/fill.el	Fri Nov 12 23:35:39 1993 +0000
@@ -327,7 +327,9 @@
       (beginning-of-line)
       (if mailp 
 	  (while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$"))
-	    (search-forward "\n\n" nil 'move)))
+	    (if (looking-at "[ \t]*[^ \t\n]*:")
+		(search-forward "\n\n" nil 'move)
+	      (forward-line 1))))
       (narrow-to-region (point) max)
       ;; Loop over paragraphs.
       (while (progn (skip-chars-forward " \t\n") (not (eobp)))