Re: fill long lines in article

[yamaoka]

>>>>> William Xu wrote:
> Hi,

> Suppose there is one long line in the article buffer:

>>> In 2007, Wired ran another article about GTD and Allen,[15] quoting him as 
>>> saying "the workings of an automatictransmission are more complicated than 
>>> a manual transmission,

> Now, try `W Q' (or M-x gnus-article-fill-long-lines), it will filled as:

>>> In 2007, Wired ran another article about GTD and
> Allen,[15] quoting him as saying "the workings of an
> automatictransmission are more complicated than a manual
> transmission,

> This doesn't look beautiful, right? Especially when there are other
> following replies.  It would be better to format it like this:

>>> In 2007, Wired ran another article about GTD and
>>> Allen,[15] quoting him as saying "the workings of an
>>> automatictransmission are more complicated than a manual
>>> transmission,

> What do you think?

> Patch:

[...]

That's very good!  But it should be done after the Emacs 23.1
release, I think.

BTW, I tried another one:

(defadvice article-fill-long-lines (around fill-cited-lines activate)
  "Use `fill-cited-region' instead of `fill-paragraph'."
  (let ((fp (symbol-function 'fill-paragraph)))
    (fset 'fill-paragraph
          (lambda (&rest args)
            (fill-cited-region (point-min) (point-max))))
    (unwind-protect
        ad-do-it
      (fset 'fill-paragraph fp))))

Where `fill-cited-region' is the function that the MU-CITE package
provides.  It will fill long lines cited with a name as follows

    Name> In 2007, Wired ran another article about GTD and Allen,[15]
quoting him as saying "the workings of an automatictransmission are
more complicated than a manual transmission,

into:

    Name> In 2007, Wired ran another article about GTD and Allen,[15]
    Name> quoting him as saying "the workings of an
    Name> automatictransmission are more complicated than a manual
    Name> transmission,

Though MU-CITE[1] requires APEL[2] and FLIM[3].  Those are too
wasteful only for the use of that function. :<

[1] ftp://ftp.jpl.org/pub/elisp/mu/snapshots/mu-cite-200905142258.tar.gz
[2] ftp://ftp.jpl.org/pub/elisp/apel/snapshots/apel-200809061531.tar.gz
[3] ftp://ftp.jpl.org/pub/m17n/flim-1_14-200811252332.tar.gz