From 8a8fbbd415940326b89680130aa438f1320235e5 Mon Sep 17 00:00:00 2001 From: David Maus Date: Mon, 20 Sep 2010 21:25:18 +0200 Subject: [PATCH] New function: Open nntp: links with Wanderlust * org-wl.el (org-wl-open-nntp): New function. --- lisp/org-wl.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/lisp/org-wl.el b/lisp/org-wl.el index a801e19fe..b6ea5f6cc 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