Re: auto-fill in message mode filling with prefix "> "

[Emanuel Berg]

Here [1] is how I do it.

Some of the stuff (lines 1-2) in the hook
in unrelated.

(defun gnus-article-fill-cited-article-keep-point ()
  "Fill the article and restore point."
  (interactive)
  (save-excursion (gnus-article-fill-cited-article)) )

(defun gnus-article-show-filled-citation ()
  "Fill the citation opened on a hidden-citation-button-press."
  (interactive)
  (let*((pos    (point))
        (button (get-char-property pos 'button)) )
    (when button
      (widget-button-press pos)
      (gnus-article-fill-cited-article-keep-point) )))

;; (setq gnus-article-prepare-hook nil)
(defun gnus-article-prepare-hook-f ()
  (gnus-with-article-buffer (gnus-article-wash-more))
  (gnus-article-hide-signature nil 1)
  (gnus-article-fill-cited-article) )
(add-hook 'gnus-article-prepare-hook #'gnus-article-prepare-hook-f)

[1] http://user.it.uu.se/~embe8573/emacs-init/gnus/article.el

-- 
underground experts united
http://user.it.uu.se/~embe8573