gnus-article-treat-body-boundary is always one more than needed in (S)Xemacs

gnus-article-treat-body-boundary is always one more than needed in (S)Xemacs

[Nelson Ferreira]

Hi all,

I was taking the latest Gnus for a spin and I noticed that
gnus-article-treat-body-boundary is always one more than needed in any
XEmacsen (21.5b29, 21.4 and SXEmacs). It works fine in GNU Emacs (tested
with 23.2.1).

Not sure it is the best way, but this patch works for me, 


index c64138b..6e45542 100644
--- 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)))))
 

Re: gnus-article-treat-body-boundary is always one more than needed in (S)Xemacs

[Lars Magne Ingebrigtsen]

Nelson Ferreira <nelson.ferreira@ieee.org> writes:

> I was taking the latest Gnus for a spin and I noticed that
> gnus-article-treat-body-boundary is always one more than needed in any
> XEmacsen (21.5b29, 21.4 and SXEmacs). It works fine in GNU Emacs (tested
> with 23.2.1).

Thanks; applied.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen