From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/77624 Path: news.gmane.org!not-for-mail From: Nelson Ferreira Newsgroups: gmane.emacs.gnus.general Subject: gnus-article-treat-body-boundary is always one more than needed in (S)Xemacs Date: Tue, 08 Mar 2011 01:17:14 -0500 Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1299596433 25880 80.91.229.12 (8 Mar 2011 15:00:33 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 8 Mar 2011 15:00:33 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M25947@lists.math.uh.edu Tue Mar 08 16:00:28 2011 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PwyOf-0005oQ-QL for ding-account@gmane.org; Tue, 08 Mar 2011 16:00:26 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1PwyOZ-0002zP-AO; Tue, 08 Mar 2011 09:00:19 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1PwqEe-0000H6-7X for ding@lists.math.uh.edu; Tue, 08 Mar 2011 00:17:32 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1PwqEb-0004ZS-Vh for ding@lists.math.uh.edu; Tue, 08 Mar 2011 00:17:31 -0600 Original-Received: from lo.gmane.org ([80.91.229.12]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1PwqEZ-0004Cd-Ph for ding@gnus.org; Tue, 08 Mar 2011 07:17:27 +0100 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1PwqEY-0000qH-1J for ding@gnus.org; Tue, 08 Mar 2011 07:17:26 +0100 Original-Received: from ool-182caa3e.dyn.optonline.net ([24.44.170.62]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 08 Mar 2011 07:17:26 +0100 Original-Received: from nelson.ferreira by ool-182caa3e.dyn.optonline.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 08 Mar 2011 07:17:26 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 30 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: ool-182caa3e.dyn.optonline.net User-Agent: Gnus/5.110014 (No Gnus v0.14) SXEmacs/22.1.13 (darwin) Cancel-Lock: sha1:3aacWnHwgkGLKymvpfte3ygHUxY= X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:77624 Archived-At: 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)))))