(gnus-article-foldable-buffer): Skip past the prefix when determining raggedness.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90855eb..0e15473 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,8 @@
        * gnus-cite.el (gnus-article-foldable-buffer): Refactor out.
        (gnus-article-foldable-buffer): Don't fold regions that have a ragged
        left edge.
+       (gnus-article-foldable-buffer): Skip past the prefix when determining
+       raggedness.
 
        * gnus-sum.el (gnus-summary-show-article): Add `C-u C-u g' for showing
        the raw article, and change `C-u g' to show the article without doing

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index 2afda44..a010a83 100644 (file)
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -543,7 +543,7 @@ longer than the frame width."
                (do-fill (not long-lines))
                use-hard-newlines)
            (unless do-fill
-             (setq do-fill (gnus-article-foldable-buffer)))
+             (setq do-fill (gnus-article-foldable-buffer (cdar marks))))
            (when do-fill
              (fill-region (point-min) (point-max))))
          (set-marker (caar marks) nil)
@@ -557,11 +557,12 @@ longer than the frame width."
              gnus-cite-loose-attribution-alist nil
              gnus-cite-article nil)))))
 
-(defun gnus-article-foldable-buffer ()
+(defun gnus-article-foldable-buffer (prefix)
   (let ((do-fill nil)
        columns)
     (goto-char (point-min))
     (while (not (eobp))
+      (forward-char (length prefix))
       (skip-chars-forward " \t")
       (unless (eolp)
        (let ((elem (assq (current-column) columns)))