From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/51249
Path: main.gmane.org!not-for-mail
From: Reiner Steib <4.uce.03.r.s@nurfuerspam.de>
Newsgroups: gmane.emacs.gnus.general
Subject: gnus-narrow-to-head, message-narrow-to-body?
Date: Mon, 07 Apr 2003 15:55:34 +0200
Organization: Dept. of Theoretical Physics, University of Ulm
Sender: owner-ding@hpc.uh.edu
Message-ID: <v9of3i5s4p.fsf@marauder.physik.uni-ulm.de>
Reply-To: reiner.steib@gmx.de
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1049723912 7053 80.91.224.249 (7 Apr 2003 13:58:32 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 7 Apr 2003 13:58:32 +0000 (UTC)
Original-X-From: owner-ding@hpc.uh.edu Mon Apr 07 15:58:26 2003
Return-path: <owner-ding@hpc.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 192X8E-0001mn-00
	for <ding-account@gmane.org>; Mon, 07 Apr 2003 15:57:54 +0200
Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists)
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 192X7U-0003xJ-00; Mon, 07 Apr 2003 08:57:08 -0500
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 07 Apr 2003 08:58:14 -0500 (CDT)
Original-Received: from main.gmane.org (main.gmane.org [80.91.224.249])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id IAA02834
	for <ding@hpc.uh.edu>; Mon, 7 Apr 2003 08:58:02 -0500 (CDT)
Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian))
	id 192X6H-0001bP-00
	for <ding@hpc.uh.edu>; Mon, 07 Apr 2003 15:55:53 +0200
Mail-Followup-To: ding@hpc.uh.edu
X-Injected-Via-Gmane: http://gmane.org/
Original-To: ding@hpc.uh.edu
Original-Received: from news by main.gmane.org with local (Exim 3.35 #1 (Debian))
	id 192X5f-0001Xp-00
	for <gmane-emacs-gnus-general@m.gmane.org>; Mon, 07 Apr 2003 15:55:15 +0200
Original-Lines: 27
Original-X-Complaints-To: usenet@main.gmane.org
X-Face: <g1&X-,m)K3j>mtjf/D:es1T0wHO:&CJ'ZXe"l;3C--rw\z!{`eFwL){|]RpI+4{u25L=5C
 /0>KuGeTsk<~<&NE-AKV1560e!+RJeyWmSskkrJm?[vUV#66{T_m|Ae<||Ku#Mk5`y&O`n~z2;n8eP
 J5#2h@2eQgV@E70IY_0WlEx!"&giy{+\%h1LJox$zv@/l%ZmU4^tZA>xQpnkUBVC5.jpg#0'(+2?Rs
 )NAr:>3<=WxHE$ktbLysDIM5TbmHu*3<U=Uk"ijkMX84~dvxckX
Mail-Copies-To: nobody
User-Agent: Gnus/5.090018 (Oort Gnus v0.18) Emacs/21.3 (gnu/linux)
Cancel-Lock: sha1:mSxgjIPc0RqHgFvtL5UyMFxiLJo=
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:51249
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:51249

Hi,

we have `message-narrow-to-head*' and `gnus-narrow-to-body'.
What about `gnus-narrow-to-head' and `message-narrow-to-body'?

(defun gnus-narrow-to-head ()
  "Narrow to the head of an article."
  (goto-char (point-min))
  (narrow-to-region
   (point-min)
   (cond ((search-forward "\n\n" nil t)
	  (1+ (match-beginning 0)))
	 (t (point-max)))))

(defun message-narrow-to-body ()
  "Narrow the buffer to the body of the message."
  (widen)
  (narrow-to-region (message-goto-body) (point-max))
  (goto-char (point-min)))

Opinions?  Corrections?  Objections?

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/