From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: Better links to usenet articles Date: Sun, 16 Nov 2008 22:30:52 +0100 Message-ID: <8C5EB8F8-785F-408A-A54B-5911FFBD68D7@uva.nl> References: <87ej1fz9o9.fsf@thinkpad.tsdh.de> <89AB52E4-C245-4BE8-BBAC-C11EF2347CA2@uva.nl> <87wsf6he6u.fsf@thinkpad.tsdh.de> <87skpuhdxn.fsf@thinkpad.tsdh.de> Mime-Version: 1.0 (Apple Message framework v929.2) Content-Type: text/plain; charset=US-ASCII; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1L1pCz-0002wq-BU for emacs-orgmode@gnu.org; Sun, 16 Nov 2008 16:31:05 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1L1pCx-0002vi-Bc for emacs-orgmode@gnu.org; Sun, 16 Nov 2008 16:31:04 -0500 Received: from [199.232.76.173] (port=42958 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1L1pCw-0002vZ-UA for emacs-orgmode@gnu.org; Sun, 16 Nov 2008 16:31:02 -0500 Received: from nf-out-0910.google.com ([64.233.182.189]:43270) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1L1pCs-00065P-8U for emacs-orgmode@gnu.org; Sun, 16 Nov 2008 16:30:58 -0500 Received: by nf-out-0910.google.com with SMTP id c7so1222977nfi.26 for ; Sun, 16 Nov 2008 13:30:54 -0800 (PST) In-Reply-To: <87skpuhdxn.fsf@thinkpad.tsdh.de> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Tassilo Horn Cc: emacs-orgmode@gnu.org 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 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