From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/54502
Path: main.gmane.org!not-for-mail
From: Jesper Harder <harder@ifa.au.dk>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: Missing washing function
Date: Tue, 28 Oct 2003 23:01:25 +0100
Sender: ding-owner@lists.math.uh.edu
Message-ID: <m3ptghxbre.fsf@defun.localdomain>
References: <shvfqdjjqg.fsf@tux.gnu.franken.de>
	<m37k2q426m.fsf@hamster.pflaesterer.de>
	<sh4qxtrwh0.fsf@tux.gnu.franken.de>
	<m3brs1f5ii.fsf@hamster.pflaesterer.de>
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 1067379212 16882 80.91.224.253 (28 Oct 2003 22:13:32 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 28 Oct 2003 22:13:32 +0000 (UTC)
Original-X-From: ding-owner+M3043@lists.math.uh.edu Tue Oct 28 23:13:30 2003
Return-path: <ding-owner+M3043@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 1AEc5i-0006Y7-00
	for <ding-account@gmane.org>; Tue, 28 Oct 2003 23:13:30 +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 1AEc4y-0000gm-00; Tue, 28 Oct 2003 16:12:44 -0600
Original-Received: from justine.libertine.org ([66.139.78.221])
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 1AEc4p-0000ge-00
	for ding@lists.math.uh.edu; Tue, 28 Oct 2003 16:12:35 -0600
Original-Received: from pfepb.post.tele.dk (pfepb.post.tele.dk [193.162.153.3])
	by justine.libertine.org (Postfix) with ESMTP id DDA153A0057
	for <ding@gnus.org>; Tue, 28 Oct 2003 16:12:34 -0600 (CST)
Original-Received: from [195.249.130.118] (0xc3f98276.esnxr3.ras.tele.dk [195.249.130.118])
	by pfepb.post.tele.dk (Postfix) with ESMTP id EDB045EE204
	for <ding@gnus.org>; Tue, 28 Oct 2003 23:12:30 +0100 (CET)
Original-To: ding@gnus.org
Mail-Followup-To: ding@gnus.org
In-Reply-To: <m3brs1f5ii.fsf@hamster.pflaesterer.de> (Karl
 =?iso-8859-1?q?Pfl=E4sterer's?= message of "Tue, 28 Oct 2003 21:58:18 +0100")
User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (gnu/linux)
Precedence: bulk
Xref: main.gmane.org gmane.emacs.gnus.general:54502
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:54502

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