message-newline-and-reformat and supercite

[Vladimir Volovich <vvv@vvv.vsu.ru>]

Lars,

message-newline-and-reformat (M-RET) does not work with supercited
messages, which is very inconvenient: i find this function VERY useful
in general, so it would be great to make it SC-aware.

i modified it as follows, and it "works for me" (c):

(defun message-newline-and-reformat ()
  "Insert four newlines, and then reformat if inside quoted text."
  (interactive)
  (let ((point (point))
	quoted)
    (save-excursion
      (beginning-of-line)
      (if (looking-at (sc-cite-regexp))
	  (setq quoted (buffer-substring (match-beginning 0) (match-end 0)))))
    (insert "\n\n\n\n")
    (delete-region (point) (re-search-forward "[ \t]*"))
    (when quoted
      (insert quoted))
    (fill-paragraph nil)
    (goto-char point)
    (forward-line 2)))

The line (delete-region (point) (re-search-forward "[ \t]*"))
is in general useful (not only for SC), as it removes extra spaces at
the beginning of the recited message, preserving good indentation.

Could you please merge something like the above into the mainstream
gnus?

	Best regards, -- Vladimir.