Re: auto-fill in body after "^[A-Za-z]: "

[Oliver Scholz <epameinondas@gmx.de>]

* "Simon" == Simon Josefsson <jas@extundo.com> writes:

> Oliver Scholz <epameinondas@gmx.de> writes:
>> This is the offspring from a discussion on gnu.emacs.gnus about the
>> fact that something like "Suggestion: bla bla ..." breaks auto-fill
>> in message buffer. I have added the following to my .emacs to
>> correct that behaviour while still inhibiting auto-fill in the
>> header. Kai suggested that I should mail my code to this list.
>> 
>> (defun os-header-set-text-property () "Put a text-property
>> \"field\" with value \"header\" to the header lines."
>> (save-excursion (put-text-property (point-min) (re-search-forward
>> (concat "^" mail-header-separator) nil nil 1) 'field 'header)))
>> 
>> 
>> (defun message-do-auto-fill () "Test if point is in message-header
>> before auto-filling."  (unless (text-property-any
>> (line-beginning-position) (point) 'field 'header) (do-auto-fill)))

> This doesn't work if I manually add a header, right?  It wouldn't
> have the proper text property.

Oh, it does. In the header the character at point inherits the text
property in question from the preceding one. This is at least true of
GNU Emacs 21. As soon as I know how to use cvs I will test it with
Emacs 20.7 and XEmacs 21.1.14

> Maybe the above be replaced by something such as the following?

> (defun message-do-auto-fill () (when (> (point) (save-excursion
> (rfc822-goto-eoh))) (do-auto-fill)))

> (Btw, use `gnus-point-at-bol' instead of `line-beginning-position'
> to make it works in XEmacs as well.)

Ah, thank you for that information.

    'oliver

-- 
Oliver Scholz
Taunusstr. 25
60329 Frankfurt am Main
Tel. 069  97 40 99 42