Re: message-newline-and-reformat and supercite

[Francisco Solsona <flsc@hp.fciencias.unam.mx>]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> Vladimir Volovich <vvv@vvv.vsu.ru> writes:
> 
> >       (if (looking-at (sc-cite-regexp))
> 
> One potential problem with this is that it depends on Supercite.
> Supercite already offers C-c C-p o which I used to use a lot when I
> used Supercite.

        I don't use supercite either, though I found M-RET useful, so
what about this modified version (based on Vladimir's):

,--------------------
| (defun message-newline-and-reformat (&optional no-fill)
|   "Insert four newlines, and then reformat if inside quoted text. If
| called with a prefix argument it avoids filling the paragraph."
|   (interactive "P")
|   (let ((point (point))
|         (gnus-prefix "[]>»|:}+ \t]*") ;; gnus-cite-prefix-regexp is more than we need.
|         (gnus-supercite-thing "[-._a-zA-Z0-9]*[>]+[ \t]*")
|         quoted)
|     (save-excursion
|       (beginning-of-line)
|       (if (looking-at (concat gnus-prefix
|                               gnus-supercite-thing)) ;; (sc-cite-regexp)
|           (setq quoted (buffer-substring (match-beginning 0) (match-end 0)))))
|     (insert "\n\n\n\n")
|     (when (null no-fill) ;; No filling.
|       (delete-region (point) (re-search-forward "[ \t]*")))
|     (when quoted
|       (insert quoted))
|     (when (null no-fill) ;; I said: No filling!.. Thank you.
|       (setq fill-prefix quoted) ;; For me fill-paragraph sucks without this. :-(
|       (fill-paragraph nil))
|     (goto-char point)
|     (forward-line 2)))
`--------------------

which avoids using sc-cite-regexp (but mimics its functionality, of
course). It also tries to solve:

Laura Conrad <lconrad@world.std.com> writes:

[...]

>     Vladimir> 	(re-search-forward "[ \t]*")) Vladimir> (when quoted
>     Vladimir> 	Vladimir> (insert quoted)) Vladimir> (fill-paragraph
>     Vladimir> 	nil) Vladimir> (goto-char point) Vladimir>
>     Vladimir> 	(forward-line 2)))
> 
> 
> <end test 2>
> 
> This is a bad example, since you wouldn't really want the lisp code
> reformatted, but I frequently reply to correspondents who haven't
> filled their lines any better than the lisp code did.

        The new message-newline-and-reformat avoids filling the
paragraph if you pass it a prefix argument, like in: `C-u M-RET'.

works for me, so hth,
Francisco

P.S. Thank yuo Vladimir. :-)

-- 
Alcoholics Anonymous is when you get to drink under someone else's name.