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

[Simon Josefsson <jas@extundo.com>]

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.

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