Carsten Dominik <[EMAIL PROTECTED]> 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.


_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Reply via email to