[Emacs-diffs] /srv/bzr/emacs/trunk r102218: gnus-cite.el (gnus-article-fill-cited-article): Make fill work properly for XEmacs as well.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102218
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2010-11-02 02:19:52 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-cite.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-11-01 23:47:38 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-02 02:19:52 +0000
@@ -1,3 +1,11 @@
+2010-11-02  Katsumi Yamaoka  <address@hidden>
+
+       * 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  <address@hidden>
 
        * nnir.el (nnir-run-gmane): inhibit demon. return nil if no messages.

=== modified file 'lisp/gnus/gnus-cite.el'
--- a/lisp/gnus/gnus-cite.el    2010-11-01 23:11:37 +0000
+++ b/lisp/gnus/gnus-cite.el    2010-11-02 02:19:52 +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.