Teemu Likonen [2016-02-04 07:18:24+02] wrote:

> I've noticed the same but it's probably easy to fix. One could 
> add a
> function to gnus-message-setup-hook variable. The function would 
> look
> for any "^>" lines (as in regexp) in the message body, go to the 
> end of
> line and add text property HARD to value T. I haven't tested 
> this idea,
> though.

I meant code like this:

    (add-hook 'gnus-message-setup-hook #'tl-format-flowed)

    (defun tl-format-flowed ()
      (use-hard-newlines nil 'always)
      (save-excursion
        (message-goto-body)
        (save-match-data
          (while (re-search-forward "^>.*$" nil t)
            (put-text-property (point) (1+ (point)) 'hard t)))))