From mboxrd@z Thu Jan  1 00:00:00 1970
From: Tassilo Horn <tassilo@member.fsf.org>
Subject: Re: Better links to usenet articles
Date: Fri, 14 Nov 2008 10:09:08 +0100
Message-ID: <87skpuhdxn.fsf@thinkpad.tsdh.de>
References: <87ej1fz9o9.fsf@thinkpad.tsdh.de>
	<89AB52E4-C245-4BE8-BBAC-C11EF2347CA2@uva.nl>
	<87wsf6he6u.fsf@thinkpad.tsdh.de>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1L0ufy-0007RK-DR
	for emacs-orgmode@gnu.org; Fri, 14 Nov 2008 04:09:14 -0500
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1L0ufx-0007Q8-NY
	for emacs-orgmode@gnu.org; Fri, 14 Nov 2008 04:09:14 -0500
Received: from [199.232.76.173] (port=52456 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1L0ufx-0007Q5-J4
	for emacs-orgmode@gnu.org; Fri, 14 Nov 2008 04:09:13 -0500
Received: from out1.smtp.messagingengine.com ([66.111.4.25]:60105)
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <tassilo@member.fsf.org>) id 1L0ufx-0005XG-8p
	for emacs-orgmode@gnu.org; Fri, 14 Nov 2008 04:09:13 -0500
In-Reply-To: <87wsf6he6u.fsf@thinkpad.tsdh.de> (Tassilo Horn's message of
	"Fri, 14 Nov 2008 10:03:37 +0100")
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Carsten Dominik <dominik@science.uva.nl>
Cc: emacs-orgmode@gnu.org

Tassilo Horn <tassilo@member.fsf.org> writes:

Ups, please correct that one line.

> --8<---------------cut here---------------start------------->8---
> (with-current-buffer gnus-article-buffer
>   (save-excursion
>     (gnus-summary-toggle-header 1)
                                 ^^^
>     (goto-char (point-min))
>     (let ((str (mail-header 'x-no-archive (mail-header-extract))))
>       (when str
> 	(with-temp-buffer
> 	  (insert str)
> 	  (buffer-substring-no-properties (point-min) (point-max)))))))
> --8<---------------cut here---------------end--------------->8---

Bye,
Tassilo