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:03:37 +0100
Message-ID: <87wsf6he6u.fsf@thinkpad.tsdh.de>
References: <87ej1fz9o9.fsf@thinkpad.tsdh.de>
	<89AB52E4-C245-4BE8-BBAC-C11EF2347CA2@uva.nl>
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 1L0uai-00059G-KY
	for emacs-orgmode@gnu.org; Fri, 14 Nov 2008 04:03:48 -0500
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1L0uag-00058Y-0P
	for emacs-orgmode@gnu.org; Fri, 14 Nov 2008 04:03:48 -0500
Received: from [199.232.76.173] (port=52483 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1L0uaf-00058U-JU
	for emacs-orgmode@gnu.org; Fri, 14 Nov 2008 04:03:45 -0500
Received: from out1.smtp.messagingengine.com ([66.111.4.25]:36475)
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <tassilo@member.fsf.org>) id 1L0uaf-0004o0-Bk
	for emacs-orgmode@gnu.org; Fri, 14 Nov 2008 04:03:45 -0500
In-Reply-To: <89AB52E4-C245-4BE8-BBAC-C11EF2347CA2@uva.nl> (Carsten Dominik's
	message of "Fri, 14 Nov 2008 08:23:19 +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

Carsten Dominik <dominik@science.uva.nl> writes:

Hi Carsten,

> Does anyone know the magic spell to check for this header field in a
> gnus article?

That works for me:

--8<---------------cut here---------------start------------->8---
(with-current-buffer gnus-article-buffer
  (save-excursion
    (gnus-summary-toggle-header)
    (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---

It returns the value of that header as string or nil if there's no such
header at all.

Bye,
Tassilo
-- 
The glass is neither half-full nor half-empty: it's twice as big as it
needs to be.