# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1288664392 0
# Node ID bdfd83386e2d9136252a920e487a29746ef9c059
# Parent  c133fe92297f7090ca6cabe5eb601d91a65c2643
gnus-cite.el (gnus-article-fill-cited-article): Make fill work properly for XEmacs as well.
gnus-cite.el (gnus-article-fill-cited-article, gnus-article-foldable-buffer, gnus-article-natural-long-line-p): Use window-width rather than frame-width.

diff -r c133fe92297f -r bdfd83386e2d lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Mon Nov 01 21:50:26 2010 -0400
+++ b/lisp/gnus/ChangeLog	Tue Nov 02 02:19:52 2010 +0000
@@ -1,3 +1,11 @@
+2010-11-02  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-cite.el (gnus-article-fill-cited-article): Make fill work
+	properly for XEmacs as well.
+	(gnus-article-fill-cited-article, gnus-article-foldable-buffer)
+	(gnus-article-natural-long-line-p): Use window-width rather than
+	frame-width.
+
 2010-11-01  Andrew Cohen  <cohen@andy.bu.edu>
 
 	* nnir.el (nnir-run-gmane): inhibit demon. return nil if no messages.
diff -r c133fe92297f -r bdfd83386e2d lisp/gnus/gnus-cite.el
--- a/lisp/gnus/gnus-cite.el	Mon Nov 01 21:50:26 2010 -0400
+++ b/lisp/gnus/gnus-cite.el	Tue Nov 02 02:19:52 2010 +0000
@@ -544,17 +544,20 @@
 		use-hard-newlines)
 	    (unless do-fill
 	      (setq do-fill (gnus-article-foldable-buffer (cdar marks))))
+	    ;; Note: the XEmacs version of `fill-region' inserts a newline
+	    ;; unless the region ends with a newline.
 	    (when do-fill
 	      (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))
+		  (when (prog1
+			    (> (current-column) (window-width))
+			  (forward-line 1))
 		    (save-restriction
-		      (narrow-to-region (line-beginning-position) (point))
-		      (fill-region (point-min) (point-max))))
-		  (forward-line 1)))))
+		      (narrow-to-region (line-beginning-position 0) (point))
+		      (fill-region (point-min) (point-max))))))))
 	  (set-marker (caar marks) nil)
 	  (setq marks (cdr marks)))
 	(when marks
@@ -581,7 +584,7 @@
 	    (push elem columns))
 	  (setcdr elem (1+ (cdr elem)))))
       (end-of-line)
-      (when (> (current-column) (frame-width))
+      (when (> (current-column) (window-width))
 	(setq do-fill t))
       (forward-line 1))
     (and do-fill
@@ -596,7 +599,7 @@
     (and
      ;; The line is long.
      (> (- (line-end-position) (line-beginning-position))
-	(frame-width))
+	(window-width))
      ;; It doesn't start with spaces.
      (not (looking-at "    "))
      ;; Not cited text.