Hi Tassilo,
is there no way to do this without having to show the headers? Seems
to be unnecessary overhead...
Sorry for being picky, thanks for looking into this.
- Carsten
On Nov 14, 2008, at 10:09 AM, Tassilo Horn wrote:
Tassilo Horn <[EMAIL PROTECTED]> 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
_______________________________________________
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
