diff options
| author | David Maus <dmaus@ictsoc.de> | 2010-09-20 21:25:18 +0200 |
|---|---|---|
| committer | David Maus <dmaus@ictsoc.de> | 2010-09-20 21:27:17 +0200 |
| commit | 8a8fbbd415940326b89680130aa438f1320235e5 (patch) | |
| tree | d1e6ebf1e7519a8c287bbff374525f06f2f32669 | |
| parent | 9e6b09874734157d58f7762c06d8174e48dbdaf4 (diff) | |
| download | org-mode-8a8fbbd415940326b89680130aa438f1320235e5.tar.gz | |
New function: Open nntp: links with Wanderlust
* org-wl.el (org-wl-open-nntp): New function.
| -rw-r--r-- | lisp/org-wl.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lisp/org-wl.el b/lisp/org-wl.el index a801e19..b6ea5f6 100644 --- a/lisp/org-wl.el +++ b/lisp/org-wl.el @@ -240,6 +240,21 @@ ENTITY is a message entity." (org-add-link-props :link link :description desc))) (or link xref))))))) +(defun org-wl-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-wl-open + (concat "-" group ":" (if (cdr server) + (car (split-string (car server) ":")) + "") + (if (string= elmo-nntp-default-server (nth 2 spec)) + "" + (concat "@" (or (cdr server) (car server)))) + (if article (concat "#" article) ""))))) + (defun org-wl-open (path) "Follow the WL message link specified by PATH. When called with one prefix, open message in namazu search folder |