diff options
author | David Maus <dmaus@ictsoc.de> | 2010-09-20 21:49:08 +0200 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2010-09-20 21:49:08 +0200 |
commit | 7fc897de7096daa7b7392443072c983aaf75d71c (patch) | |
tree | 965182ff49d1f87c9654385bdf8b0d5a16ac7bd5 | |
parent | 8a8fbbd415940326b89680130aa438f1320235e5 (diff) | |
download | org-mode-7fc897de7096daa7b7392443072c983aaf75d71c.tar.gz |
New function: Open nntp: links with Gnus
* org-gnus.el (org-gnus-open-nntp): New function.
-rw-r--r-- | lisp/org-gnus.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index 80cc156..3503cfb 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) |