From 7fc897de7096daa7b7392443072c983aaf75d71c Mon Sep 17 00:00:00 2001 From: David Maus Date: Mon, 20 Sep 2010 21:49:08 +0200 Subject: [PATCH] New function: Open nntp: links with Gnus * org-gnus.el (org-gnus-open-nntp): New function. --- lisp/org-gnus.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index 80cc156e8..3503cfbd8 100644 --- a/lisp/org-gnus.el +++ b/lisp/org-gnus.el @@ -175,6 +175,16 @@ If `org-store-link' was called with a prefix arg the meaning of (org-add-link-props :link link :description desc) link)))) +(defun org-gnus-open-nntp (path) + "Follow the nntp: link specified by PATH." + (let* ((spec (split-string path "/")) + (server (split-string (nth 2 spec) "@")) + (group (nth 3 spec)) + (article (nth 4 spec))) + (org-gnus-follow-link + (format "nntp+%s:%s" (or (cdr server) (car server)) group) + article))) + (defun org-gnus-open (path) "Follow the Gnus message or folder link specified by PATH." (let (group article)