From mboxrd@z Thu Jan 1 00:00:00 1970 From: Tassilo Horn Subject: Re: Better links to usenet articles Date: Sun, 16 Nov 2008 22:41:17 +0100 Message-ID: <878wrjmjr6.fsf@thinkpad.tsdh.de> References: <87ej1fz9o9.fsf@thinkpad.tsdh.de> <89AB52E4-C245-4BE8-BBAC-C11EF2347CA2@uva.nl> <87wsf6he6u.fsf@thinkpad.tsdh.de> <87skpuhdxn.fsf@thinkpad.tsdh.de> <8C5EB8F8-785F-408A-A54B-5911FFBD68D7@uva.nl> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1L1pN1-0007px-Si for emacs-orgmode@gnu.org; Sun, 16 Nov 2008 16:41:27 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1L1pN1-0007p6-2b for emacs-orgmode@gnu.org; Sun, 16 Nov 2008 16:41:27 -0500 Received: from [199.232.76.173] (port=48784 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1L1pN0-0007oo-LI for emacs-orgmode@gnu.org; Sun, 16 Nov 2008 16:41:26 -0500 Received: from out1.smtp.messagingengine.com ([66.111.4.25]:58190) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1L1pN0-0006lU-C7 for emacs-orgmode@gnu.org; Sun, 16 Nov 2008 16:41:26 -0500 In-Reply-To: <8C5EB8F8-785F-408A-A54B-5911FFBD68D7@uva.nl> (Carsten Dominik's message of "Sun, 16 Nov 2008 22:30:52 +0100") 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: Carsten Dominik Cc: emacs-orgmode@gnu.org Carsten Dominik writes: Hi Carsten, > is there no way to do this without having to show the headers? Seems > to be unnecessary overhead... I'm not sure. Could you please point me to the location where org creates the link, then I'll try to figure it out. > Sorry for being picky, thanks for looking into this. It was my wish, so I'm in a tight spot. Bye, Tassilo >>> --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---