Gnus development mailing list
 help / color / mirror / Atom feed
From: Nelson Ferreira <nelson.ferreira@ieee.org>
To: ding@gnus.org
Subject: gnus-article-treat-body-boundary is always one more than needed in (S)Xemacs
Date: Tue, 08 Mar 2011 01:17:14 -0500	[thread overview]
Message-ID: <m2aah6uoet.fsf@neumann.in.inware.org> (raw)


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)))))
 




             reply	other threads:[~2011-03-08  6:17 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2011-03-08  6:17 Nelson Ferreira [this message]
2011-03-15 16:31 ` Lars Magne Ingebrigtsen

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=m2aah6uoet.fsf@neumann.in.inware.org \
    --to=nelson.ferreira@ieee.org \
    --cc=ding@gnus.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).