Re: Missing washing function

[sigurd@12move.de (Karl Pflästerer)]

On 28 Oct 2003, Karl Eichwalder <- ke@gnu.franken.de wrote:

> sigurd@12move.de (Karl Pflästerer) writes:

>> I wrote some time ago about the same problem in the german gnus NG.  I
>> had first written a new washing function which treated an article as
>> format=flowed; afterwards I saw that `W Q'
>> (`gnus-article-fill-long-lines') does a good job there.  Try it first.

> In this case `W Q' does nothing.  Maybe, it's time to update gnus; I'm
> using a CVS version older than 2003-05-19.

Maybe.  If it doesn't work try the following function.  I use it
sometimes and it works.  The keybindings are (still) free.  Reiner
proposed in that thread that if that function should make it in Gnus
some keybindings should be changed.

here is his proposal 
,----[ Message-ID: <v9adenikkj.fsf@marauder.physik.uni-ulm.de> ]
| Bisher:
| 
| W Q		gnus-article-fill-long-lines
| W w		gnus-article-fill-cited-article
| 
| Nachher (nur als Beispiel):
| 
| W Q		gnus-article-fill-long-lines
| W w		gnus-article-fill-cited-article
| (Diese sollte man aus Komptibilitätsgründen wohl nicht wegnehmen.)
| W F L		gnus-article-fill-long-lines
| W F l		gnus-article-fill-cited-article
| W F F		gnus-article-fill-flowed
`----


(defun gnus-article-fill-flowed ()
  (interactive)
  (save-excursion
    (set-buffer gnus-article-buffer)
    (save-restriction
      (let ((buffer-read-only nil))
	(gnus-narrow-to-body)
	(fill-flowed)))))

(define-key gnus-summary-wash-map "WF" 'gnus-article-fill-flowed)
(define-key gnus-summary-mode-map "WF" 'gnus-article-fill-flowed)


Does this help?

   KP

-- 
You know you've been sitting in front of your Lisp machine too long
when you go out to the junk food machine and start wondering how to
make it give you the CADR of Item H so you can get that yummie
chocolate cupcake that's stuck behind the disgusting vanilla one.