From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/54503
Path: main.gmane.org!not-for-mail
From: sigurd@12move.de (Karl =?iso-8859-1?q?Pfl=E4sterer?=)
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Missing washing function
Date: Wed, 29 Oct 2003 02:50:00 +0100
Organization: Lemis World
Sender: ding-owner@lists.math.uh.edu
Message-ID: <m3znfkg6jv.fsf@hamster.pflaesterer.de>
References: <shvfqdjjqg.fsf@tux.gnu.franken.de> <m37k2q426m.fsf@hamster.pflaesterer.de>
 <sh4qxtrwh0.fsf@tux.gnu.franken.de>
 <m3brs1f5ii.fsf@hamster.pflaesterer.de> <m3ptghxbre.fsf@defun.localdomain>
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: sea.gmane.org 1067392500 20939 80.91.224.253 (29 Oct 2003 01:55:00 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Wed, 29 Oct 2003 01:55:00 +0000 (UTC)
Original-X-From: ding-owner+M3044@lists.math.uh.edu Wed Oct 29 02:54:58 2003
Return-path: <ding-owner+M3044@lists.math.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1AEfY1-0000m5-00
	for <ding-account@gmane.org>; Wed, 29 Oct 2003 02:54:58 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu)
	by malifon.math.uh.edu with smtp (Exim 3.20 #1)
	id 1AEfX6-0000te-00; Tue, 28 Oct 2003 19:54:00 -0600
Original-Received: from justine.libertine.org ([66.139.78.221])
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 1AEfWx-0000tW-00
	for ding@lists.math.uh.edu; Tue, 28 Oct 2003 19:53:51 -0600
Original-Received: from quimby.gnus.org (quimby.gnus.org [80.91.224.244])
	by justine.libertine.org (Postfix) with ESMTP id F1AEA3A0057
	for <ding@gnus.org>; Tue, 28 Oct 2003 19:53:50 -0600 (CST)
Original-Received: from news by quimby.gnus.org with local (Exim 3.35 #1 (Debian))
	id 1AEfWv-00020f-00
	for <ding@gnus.org>; Wed, 29 Oct 2003 02:53:49 +0100
Original-To: ding@gnus.org
Original-Path: wintendo.pflaesterer.de!not-for-mail
Original-Newsgroups: gnus.ding
Original-Lines: 43
Original-NNTP-Posting-Host: p62.246.7.101.tisdip.tiscali.de
Original-X-Trace: quimby.gnus.org 1067392429 7728 62.246.7.101 (29 Oct 2003 01:53:49 GMT)
Original-X-Complaints-To: usenet@quimby.gnus.org
Original-NNTP-Posting-Date: Wed, 29 Oct 2003 01:53:49 +0000 (UTC)
X-Face: #iIcL\6>Qj/G*F@AL9T*v/R$j@7Q`6#FU&Flg6u6aVsLdWf(H$U5>:;&*>oy>jOIWgA%8w*
 A!V7X`\fEGoQ[@D'@i^*p3FCC6&Rg~JT/H_*MOX;"o~flADb8^
Mail-Copies-To: never
User-Agent: Gnus/5.1003 (Gnus v5.10.3) Hamster/2.0.3.0
Cancel-Lock: sha1:9efoqa4zK5fEXKhzgfBYUnXcqlY=
Precedence: bulk
Xref: main.gmane.org gmane.emacs.gnus.general:54503
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:54503

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

> sigurd@12move.de (Karl Pfl=E4sterer) 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

--=20
      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"