Re: Alterative to tc-indent-region?

[Svend Tollak Munkejord <stm-direct_reply@pvv.org>]

On 2007-07-11, Reiner Steib wrote:

> On Tue, Jul 10 2007, David Z Maze wrote:
>
>> Svend Tollak Munkejord <stm-direct_reply@pvv.org> writes:
>>
>>> Is there a function in standard No Gnus that resembles
>>> tc-indent-region from Trivial Cite? (I didn't find any.)
>>> tc-indent-region inserts ">" in front of each line, and it is
>>> practical if you want to fix replies to replies made e.g. using
>>> Outlook.
>
> ,----[ `<f1> k M-;' ]
> | M-; runs the command comment-region
> |   which is an interactive compiled Lisp function in `newcomment'.
> | It is bound to M-;.
> | (comment-region beg end &optional arg)
> | 
> | Comment or uncomment each line in the region.
> | With just C-u prefix arg, uncomment each line in region beg .. end.
> | Numeric prefix arg means use arg comment characters.
> | If arg is negative, delete that many comment characters instead.
> | By default, comments start at the left margin, are terminated on each line,
> | even for syntax in which newline does not end the comment and blank lines
> | do not get comments.  This can be changed with `comment-style'.
> | 
> | The strings used as comment starts are built from
> | `comment-start' without trailing spaces and `comment-padding'.
> `----

Ah, I didn't know that comment-region was this clever. However, this
produces citations with "> > " in front of them. To have ">> "
instead, I set

(add-hook 'message-mode-hook
	  (lambda ()
	    (setq comment-start ">")))

in ~/.gnus

Does that seem to be an OK solution?

Regards,
-- 
Svend Tollak Munkejord