Re: Missing washing function

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

On 28 Oct 2003, Jesper Harder <- harder@ifa.au.dk wrote:

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

>> (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)))))

> I'm just nit-picking, but I think `with-current-buffer' is slightly
> cleaner than `save-excursion':

> (defun gnus-article-fill-flowed ()
>   (interactive)
>   (with-current-buffer gnus-article-buffer
>     (save-restriction
>       (let ((buffer-read-only nil))
> 	(gnus-narrow-to-body)
> 	(fill-flowed)))))

You are clearly right.  Or perhaps even better:

(defun gnus-article-fill-flowed ()
  (interactive)
  (gnus-with-article-buffer
    (save-restriction
      (gnus-narrow-to-body)
      (fill-flowed))))

[best would be to add a doctsring :-)]


   KP

-- 
      And has thou slain the Jabberwock?
          Come to my arms, my beamish boy!
      O frabjous day!  Callooh!  Callay!'
          He chortled in his joy.   "Lewis Carroll" "Jabberwocky"