Minimize the long-lines fillling case by only filling the long lines.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 86eab42..74dc73e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-11-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-cite.el (gnus-article-fill-cited-article): Minimize the
+       long-lines case by only filling the long lines.
+
        * nnimap.el (nnimap-parse-line): Don't bug out oddly formed replies
        (bug #7311).
 

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index a010a83..2d44e36 100644 (file)
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -545,7 +545,16 @@ longer than the frame width."
            (unless do-fill
              (setq do-fill (gnus-article-foldable-buffer (cdar marks))))
            (when do-fill
-             (fill-region (point-min) (point-max))))
+             (if (not long-lines)
+                 (fill-region (point-min) (point-max))
+               (goto-char (point-min))
+               (while (not (eobp))
+                 (end-of-line)
+                 (when (> (current-column) (frame-width))
+                   (save-restriction
+                     (narrow-to-region (line-beginning-position) (point))
+                     (fill-region (point-min) (point-max))))
+                 (forward-line 1)))))
          (set-marker (caar marks) nil)
          (setq marks (cdr marks)))
        (when marks