* gnus-art.el (gnus-article-treat-body-boundary): Fix boundary width on

XEmacs, which was one character too wide.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97d427f..8908666 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-15  Nelson Ferreira  <nelson.ferreira@ieee.org>  (tiny change)
+
+       * gnus-art.el (gnus-article-treat-body-boundary): Fix boundary width on
+       XEmacs, which was one character too wide.
+
 2011-03-09  Antoine Levitt  <antoine.levitt@gmail.com>
 
        * gnus-sum.el (gnus-articles-to-read): Use gnus-large-newsgroup as

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index c64138b..20ffa8e 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2337,10 +2337,12 @@ long lines if and only if arg is positive."
       (let ((start (point)))
        (insert "X-Boundary: ")
        (gnus-add-text-properties start (point) '(invisible t intangible t))
-       (insert (let (str)
-                 (while (>= (window-width) (length str))
+       (insert (let (str (max (window-width)))
+                 (if (featurep 'xemacs)
+                     (setq max (1- max)))
+                 (while (>= max (length str))
                    (setq str (concat str gnus-body-boundary-delimiter)))
-                 (substring str 0 (window-width)))
+                 (substring str 0 max))
                "\n")
        (gnus-put-text-property start (point) 'gnus-decoration 'header)))))