From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/30137
Path: main.gmane.org!not-for-mail
From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: message-do-auto-fill, to not fill some things
Date: 22 Apr 2000 01:39:57 +0200
Organization: Programmerer Ingebrigtsen
Sender: owner-ding@hpc.uh.edu
Message-ID: <m3hfcvqb02.fsf@quimbies.gnus.org>
References: <87yabdcbdu.fsf@zip.com.au>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035166708 6892 80.91.224.250 (21 Oct 2002 02:18:28 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 02:18:28 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from lisa.math.uh.edu (lisa.math.uh.edu [129.7.128.49])
	by mailhost.sclp.com (Postfix) with ESMTP id 058D2D051E
	for <jason@mailhost.sclp.com>; Fri, 21 Apr 2000 19:27:48 -0400 (EDT)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by lisa.math.uh.edu (8.9.1/8.9.1) with ESMTP id SAB27414;
	Fri, 21 Apr 2000 18:27:46 -0500 (CDT)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 21 Apr 2000 18:27:16 -0500 (CDT)
Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id SAA09510
	for <ding@hpc.uh.edu>; Fri, 21 Apr 2000 18:27:05 -0500 (CDT)
Original-Received: from quimby.gnus.org (quimby.gnus.org [193.69.4.139])
	by mailhost.sclp.com (Postfix) with ESMTP id 5D209D051E
	for <ding@gnus.org>; Fri, 21 Apr 2000 19:27:23 -0400 (EDT)
Original-Received: (from news@localhost)
	by quimby.gnus.org (8.9.3/8.9.3) id BAA16456
	for ding@gnus.org; Sat, 22 Apr 2000 01:29:17 +0200 (CEST)
Original-To: ding@gnus.org
Original-Path: not-for-mail
Original-Newsgroups: gnus.ding
Original-Lines: 26
Original-NNTP-Posting-Host: quimbies.gnus.org
Original-X-Trace: quimby.gnus.org 956359756 2787 193.69.4.148 (21 Apr 2000 23:29:16 GMT)
Original-X-Complaints-To: usenet@quimby.gnus.org
Original-NNTP-Posting-Date: 21 Apr 2000 23:29:16 GMT
Mail-Copies-To: never
X-Now-Playing: Jim O'Rourke's _Eureka_: "Movie On The Way Down"
User-Agent: Gnus/5.0805 (Gnus v5.8.5) Emacs/20.6
X-Face: &w!^oO<W.WBH]FsTP:P0f9X6M-ygaADlA_)eF$<UwQzj7:C=Gi<a?/_4$LX^@$Qq7-O&XHp
 lDARi8e8iT<(A$LWAZD*xjk^')/wI5nG;1cNB>~dS|}-P0~ge{$c!h\<y
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:30137
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:30137

Kevin Ryde <user42@zip.com.au> writes:

> ;; as per message-goto-body
> (defun message-body-pos ()
>   (save-excursion
>     (goto-char (point-min))
>     (or (search-forward (concat "\n" mail-header-separator "\n") nil t)
> 	(search-forward "\n\n" nil t)
> 	(point-max))))
> 
> (defun message-do-auto-fill ()
>   (if (not (or (< (point) (message-body-pos))
> 	       (save-excursion (beginning-of-line) (looking-at "<#part"))))
>       (funcall (default-value 'normal-auto-fill-function))))

[...]

> 	     (if auto-fill-function
> 		 (setq auto-fill-function 'message-do-auto-fill))

Can one do this kind of predicate thing with the normal fill commands
as well?

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