From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/5480 Path: main.gmane.org!not-for-mail From: Kai Grossjohann Newsgroups: gmane.emacs.gnus.general Subject: Re: Removing headers from mail.. Date: 07 Mar 1996 22:29:50 +0100 Organization: Universitaet Dortmund, CS Dept, Chair 6 Sender: grossjoh@buster.informatik.uni-dortmund.de Message-ID: References: <199603050814.JAA06029@ariel.pt.hk-r.se> Reply-To: Kai Grossjohann NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.41) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035146078 481 80.91.224.250 (20 Oct 2002 20:34:38 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:34:38 +0000 (UTC) Cc: ding@ifi.uio.no Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.3/8.6.9) with SMTP id OAA29299 for ; Thu, 7 Mar 1996 14:40:35 -0800 Original-Received: from floyd.informatik.uni-dortmund.de (floyd.informatik.uni-dortmund.de [129.217.4.40]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Thu, 7 Mar 1996 22:29:55 +0100 Original-Received: from buster.informatik.uni-dortmund.de by floyd.informatik.uni-dortmund.de with SMTP (Sendmail 8.7.3/UniDo 3.7) id WAA24210; Thu, 7 Mar 1996 22:29:53 +0100 (MET) Original-Received: by buster.informatik.uni-dortmund.de id AA18318; Thu, 7 Mar 96 22:29:52 +0100 Original-To: mpt95aes@pt.hk-r.se In-Reply-To: Andy Eskilsson's message of 05 Mar 1996 21:57:13 +0100 Original-Lines: 35 Xref: main.gmane.org gmane.emacs.gnus.general:5480 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:5480 >>>>> On 05 Mar 1996 21:57:13 +0100, Andy Eskilsson >>>>> said: Andy> The second problem is that I could do a hook that deletes one Andy> line, but the Received lines often span a couple of lines, is Andy> there any small function that can take care of this? This should kinda give you the idea: (defun kill-long-line () ; kill a region between (A) and (B) (kill-region ; (A) is the spot where the cursor currently is (point) ; don't move point while determining (B) (save-excursion ; (B) is at least at the beginning of the next line ; (note that forward-line moves to beginning of next line) (forward-line 1) ; if we're looking at a continuation line (which begins with ; whitespace followed by non-whitespace), ... (while (looking-at "^[ \t]+[^ \t]+") ; move another line (forward-line 1)) ; (B) is where we have moved now (point)))) I don't know if you want to restrict the whole thing to the header section only, or something. The code is untested!! kai -- ~/.signature