From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bastien Subject: Re: Integration of Org mode and Gnus Date: Thu, 19 Jul 2007 17:41:26 +0200 Message-ID: <87myxsv1sp.fsf@bzg.ath.cx> References: <87r6n6ni2j.fsf@bzg.ath.cx> <87fy3lapkt.fsf@bzg.ath.cx> <87644hafg5.fsf@bzg.ath.cx> 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 1IBY8I-0002a4-4v for emacs-orgmode@gnu.org; Thu, 19 Jul 2007 11:41:38 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1IBY8E-0002W4-Ak for emacs-orgmode@gnu.org; Thu, 19 Jul 2007 11:41:36 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IBY8E-0002Vz-60 for emacs-orgmode@gnu.org; Thu, 19 Jul 2007 11:41:34 -0400 Received: from ug-out-1314.google.com ([66.249.92.168]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1IBY8D-00052j-Qe for emacs-orgmode@gnu.org; Thu, 19 Jul 2007 11:41:34 -0400 Received: by ug-out-1314.google.com with SMTP id 34so498738ugf for ; Thu, 19 Jul 2007 08:41:32 -0700 (PDT) In-Reply-To: (Carsten Dominik's message of "Wed\, 18 Jul 2007 23\:54\:17 +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: emacs-orgmode@gnu.org --=-=-= Hi Carsten, Carsten Dominik writes: > I'd like to accept a patch that does this and keeps the old links > working. After this discussion has converged, could you send me the > final patch against a 5.xx version or org-mode? Here it is. This patch is against Org 5.03. --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=org-gnus-link.patch --- org.el.orig 2007-07-13 15:10:47.000000000 +0200 +++ org.el 2007-07-18 17:33:21.000000000 +0200 @@ -10509,7 +10509,7 @@ (format "http://groups.google.com/groups?as_umsgid=%s" (org-fixup-message-id-for-http message-id)))) (setq link (org-make-link "gnus:" group - "#" (number-to-string article)))))) + "#" (org-remove-angle-brackets message-id)))))) ((eq major-mode 'w3-mode) (setq cpltxt (url-view-url t) @@ -11444,8 +11444,14 @@ (funcall (cdr (assq 'gnus org-link-frame-setup))) (if gnus-other-frame-object (select-frame gnus-other-frame-object)) (cond ((and group article) + (if (string-match "@" article) + (when (boundp 'gnus-registry-alist) + (gnus-registry-save) + (setq group (caddr (assoc (concat "<" article ">") + gnus-registry-alist)))) + (setq article (string-to-number article))) (gnus-group-read-group 1 nil group) - (gnus-summary-goto-article (string-to-number article) nil t)) + (gnus-summary-goto-article article nil t)) (group (gnus-group-jump-to-group group)))) (defun org-follow-vm-link (&optional folder article readonly) --=-=-= Regards, -- Bastien --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --=-=-=--