From mboxrd@z Thu Jan 1 00:00:00 1970 From: Andreas Rottmann Subject: Small fix for Gnus integration Date: Fri, 03 Jul 2009 23:00:35 +0200 Message-ID: <87zlblscr0.fsf@delenn.lan> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MMpsH-0005XQ-IH for emacs-orgmode@gnu.org; Fri, 03 Jul 2009 17:00:49 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MMpsD-0005XE-30 for emacs-orgmode@gnu.org; Fri, 03 Jul 2009 17:00:49 -0400 Received: from [199.232.76.173] (port=34831 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MMpsD-0005XB-08 for emacs-orgmode@gnu.org; Fri, 03 Jul 2009 17:00:45 -0400 Received: from mail.gmx.net ([213.165.64.20]:39210) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1MMpsC-00087r-2v for emacs-orgmode@gnu.org; Fri, 03 Jul 2009 17:00:44 -0400 Received: from delenn.lan (delenn.lan [192.168.1.11]) by nathot.lan (Postfix) with ESMTPS id 79B733A672 for ; Fri, 3 Jul 2009 23:00:36 +0200 (CEST) Received: from rotty by delenn.lan with local (Exim 4.69) (envelope-from ) id 1MMps3-0008SJ-U2 for emacs-orgmode@gnu.org; Fri, 03 Jul 2009 23:00:35 +0200 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: org-mode mailing list --=-=-= Without the following patch, storing links to Gnus Article buffers fails on CVS Emacs, as they (at least in my setup -- IMAP) always contain a "From " line, which can't be parsed as an RFC822 header. --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=+gnus-tweak.patch From: Andreas Rottmann Subject: [PATCH] Fixes for the Gnus integration - `org-gnus-store-link': When the article buffer starts with "From ", ignore the first line. This is necessary at least on Gnus v5.13, as shipped with emacs23 (CVS 2009-06-18). --- lisp/org-gnus.el | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index 41b1be7..4cc5adb 100644 --- a/lisp/org-gnus.el +++ b/lisp/org-gnus.el @@ -128,6 +128,8 @@ If `org-store-link' was called with a prefix arg the meaning of (header (with-current-buffer gnus-article-buffer (gnus-summary-toggle-header 1) (goto-char (point-min)) + (when (looking-at "From ") + (next-line)) (mail-header-extract-no-properties))) (from (mail-header 'from header)) (message-id (org-remove-angle-brackets -- tg: (0795e42..) t/gnus-fixes (depends on: master) --=-=-= Regards, Rotty --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ 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 --=-=-=--