(fill-individual-paragraphs): If a no-prefix

line is followed by one that matches CITATION-REGEXP, end the
paragraph.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index f8eb668a83b251774eadabbffa4c9883f06f1e0d..6463c3b82c7b4b91e4b5afc71ea744839b7c6df1 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -1156,7 +1156,10 @@ Also, if CITATION-REGEXP is non-nil,  don't fill header lines."
                                 (not (progn (forward-char (length fill-prefix))
                                             (or (looking-at "[ \t]")
                                                 (looking-at paragraph-separate)
-                                                (looking-at paragraph-start))))))))))
+                                                (looking-at paragraph-start)))))
+                              (not (and (equal fill-prefix "")
+                                        citation-regexp
+                                        (looking-at citation-regexp))))))))
          ;; Fill this paragraph, but don't add a newline at the end.
          (let ((had-newline (bolp)))
            (fill-region-as-paragraph start (point) justify)