* gnus-art.el (article-fill-long-lines): Fill-paragraph properly.

	Trivial patch from Urban Engberg <ue@ccieurope.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44d6ba8..bfbab05 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,11 @@
 2002-09-13  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-art.el (article-fill-long-lines): Fill-paragraph properly.
+       Trivial patch from Urban Engberg <ue@ccieurope.com>.
+
        * rfc2047.el (message-posting-charset): Defvar it.
-       (rfc2047-charset-encoding-alist): Use B for iso-8859-7 and iso-8859-8. Fix doc.
-       Suggested by Dave Love <fx@gnu.org>.
+       (rfc2047-charset-encoding-alist): Use B for iso-8859-7 and
+       iso-8859-8. Fix doc.  Suggested by Dave Love <fx@gnu.org>.
 
        * mail-source.el (mail-source-fetch): Hide password.
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index e4398f5..8040e7b 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1795,9 +1795,10 @@ unfolded."
          (while (not (eobp))
            (end-of-line)
            (when (>= (current-column) (min fill-column width))
-             (narrow-to-region (point) (gnus-point-at-bol))
-             (fill-paragraph nil)
-             (goto-char (point-max))
+             (narrow-to-region (min (1+ (point)) (point-max)) (gnus-point-at-bol))
+              (let ((goback (point-marker)))
+                (fill-paragraph nil)
+                (goto-char (marker-position goback)))
              (widen))
            (forward-line 1)))))))