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
