From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/36193 Path: main.gmane.org!not-for-mail From: Josh Huber Newsgroups: gmane.emacs.gnus.general Subject: Re: letting split rules have access to the message body... Date: 11 May 2001 09:20:20 -0400 Organization: Mind your own business, you silly arthur king! Message-ID: <87heysja3v.fsf@mclinux.com> References: <87pudg99j9.fsf@mclinux.com> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035171819 7244 80.91.224.250 (21 Oct 2002 03:43:39 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 03:43:39 +0000 (UTC) Return-Path: Original-Received: (qmail 11875 invoked by alias); 11 May 2001 13:20:23 -0000 Original-Received: (qmail 11870 invoked from network); 11 May 2001 13:20:22 -0000 Original-Received: from quimby.gnus.org (195.204.10.139) by gnus.org with SMTP; 11 May 2001 13:20:22 -0000 Original-Received: (from news@localhost) by quimby.gnus.org (8.9.3/8.9.3) id PAA07268 for ding@gnus.org; Fri, 11 May 2001 15:20:15 +0200 (CEST) Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-NNTP-Posting-Host: h000094c5efff.ne.mediaone.net Original-X-Trace: quimby.gnus.org 989587215 8134 65.96.252.84 (11 May 2001 13:20:15 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: 11 May 2001 13:20:15 GMT X-Go-Away: or I shall taunt you a second time! X-PGP-KeyID: 6B21489A X-PGP-CertKey: 61F0 6138 BE7B FEBF A223 E9D1 BFE1 2065 6B21 489A X-Request-PGP: finger:huber@db.debian.org Mail-Copies-To: nobody User-Agent: Gnus/5.090004 (Oort Gnus v0.04) XEmacs/21.1 (Cuyahoga Valley) Original-Lines: 36 Xref: main.gmane.org gmane.emacs.gnus.general:36193 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:36193 Josh Huber writes: > This seems sane to me, but I'm looking for comments. I don't want my > mail to blow up due to this small change :) Well, it blew up for spool files, but I think this is a fixed diff. Anyone have comments? I'm using this now, and it seems to work well for my setup: Index: nnmail.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/nnmail.el,v retrieving revision 6.13 diff -u -r6.13 nnmail.el --- nnmail.el 2001/04/29 12:36:09 6.13 +++ nnmail.el 2001/05/11 13:05:20 @@ -938,11 +938,13 @@ (save-excursion ;; Find headers. (goto-char beg) + (setq max (point-max)) (setq end (if (search-forward "\n\n" nil t) (point) (point-max))) (set-buffer nntp-server-buffer) (erase-buffer) - ;; Copy the headers into the work buffer. - (insert-buffer-substring obuf beg end) + ;; Copy the whole buffer in, and narrow to the headers... + (insert-buffer-substring obuf beg max) + (narrow-to-region (point-min) (- end beg)) ;; Fold continuation lines. (goto-char (point-min)) (while (re-search-forward "\\(\r?\n[ \t]+\\)+" nil t) -- Josh Huber