Re: Better links to usenet articles

[Tassilo Horn <tassilo@member.fsf.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.