From c447cd75b54ef9b78b2fea68ddf22685fb8125ea Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Wed, 21 Dec 2005 07:23:02 +0000
Subject: [PATCH] Synch to No Gnus 200512210722.

---
 lisp/ChangeLog |    5 +++++
 lisp/nnrss.el  |   22 ++++++++++++++++++++--
 2 files changed, 25 insertions(+), 2 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8331dd2..2a5a304 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-21  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* nnrss.el (nnrss-request-article): Fix last change; fill
+	text/plain parts.
+
 2005-12-20  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* nnrss.el (nnrss-request-article): Replace <br />s with newlines
diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index f8ce3f8..73ce663 100644
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -250,8 +250,26 @@ The return value will be `html' or `text'."
 		  (insert "</body></html>\n"))
 	      (mime-edit-insert-text "plain")
 	      (when text
-		;; See `nnrss-check-group', which inserts <br />s.
-		(insert (gnus-replace-in-string text "<br />" "\n") "\n")
+		(goto-char (prog1
+			       (point)
+			     (insert text)))
+		;; See `nnrss-check-group', which inserts "<br /><br />".
+		(if (search-forward "<br /><br />" nil t)
+		    (if (eobp)
+			(replace-match "\n")
+		      (replace-match "\n\n")
+		      (let ((fill-column default-fill-column)
+			    (window (get-buffer-window nntp-server-buffer)))
+			(when window
+			  (setq fill-column
+				(max 1 (/ (* (window-width window) 7) 8))))
+			(fill-region (point) (point-max))
+			(goto-char (point-max))
+			;; XEmacs version of `fill-column' inserts newline.
+			(unless (bolp)
+			  (insert "\n"))))
+		  (goto-char (point-max))
+		  (insert "\n"))
 		(when (or link enclosure)
 		  (insert "\n")))
 	      (when link
-- 
1.7.10.4