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

[Oliver Scholz <epameinondas@gmx.de>]

Many Greetings to the Gnus Towers!

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.

(add-hook 'message-mode-hook (lambda ()
			       (setq auto-fill-function
				     'message-do-auto-fill)))

(add-hook 'message-setup-hook (lambda ()
				(os-header-set-text-property)
				(setq auto-fill-inhibit-regexp nil)))


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



    'oliver

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