[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] Better links to usenet articles
From: |
Tassilo Horn |
Subject: |
Re: [Orgmode] Better links to usenet articles |
Date: |
Fri, 14 Nov 2008 10:03:37 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux) |
Carsten Dominik <address@hidden> 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.