Re: message-newline-and-reformat and supercite

[Laura Conrad <lconrad@world.std.com>]

>>>>> "Vladimir" == Vladimir Volovich <vvv@vvv.vsu.ru> writes:

       CC> Do you have a workaround ?

    Vladimir> the current message-newline-and-reformat in gnus 0.97
    Vladimir> behaves like you said. i already posted the corrected
    Vladimir> function. here is it again:
...
    Vladimir> does it work for you, or is *the above* function behaving buggy?

It seems to work some of the time, for instance, on the above,
correctly filled text, I can do:

<begin test 1>
    Vladimir> the current message-newline-and-reformat in gnus 0.97
    Vladimir> behaves like you said. 

Here I have inserted a break, and the next paragraph displays correctly.

    Vladimir> i already posted the corrected function. here is it
    Vladimir> again:
<end test 1>

However, if there are spaces at the ends of lines, the attributions
don't get removed:

<begin test 2>


    Vladimir> (defun message-newline-and-reformat ()
    Vladimir>   "Insert four newlines, and then reformat if inside quoted text."
    Vladimir>   (interactive)
    Vladimir>   (let ((point (point))

Here's where I inserted the break.

    Vladimir>   
    Vladimir> 	quoted) Vladimir> (save-excursion Vladimir>
    Vladimir> 	(beginning-of-line) Vladimir> (if (looking-at
    Vladimir> 	(sc-cite-regexp)) (setq quoted (buffer-substring
    Vladimir> 	(match-beginning 0) (match-end 0))))) Vladimir>
    Vladimir> 	(insert "\n\n\n\n") Vladimir> (delete-region (point)
    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.

-- 
Laura (mailto:lconrad@world.std.com , http://www.world.std.com/~lconrad/ )
(617) 661-8097	fax: (801) 365-6574 
233 Broadway, Cambridge, MA 02139