new message: org link (and use it consistently: notmuch, recoll, etc.)

1 files changed, 28 insertions, 0 deletions

diff --git a/lib/net/jao-maildir.el b/lib/net/jao-maildir.el
index d68fbe0..d7cd4d6 100644
--- a/lib/net/jao-maildir.el
+++ b/lib/net/jao-maildir.el
@@ -34,6 +34,7 @@
 (defvar jao-maildir-echo-p t)
 (defvar jao-maildir-tracked-maildirs nil)
 (defvar jao-maildir-info-string "")
+(defvar jao-maildir-home (expand-file-name "~/var/mail"))
 
 (defgroup jao-maildir-faces nil "Faces"
   :group 'faces)
@@ -150,6 +151,33 @@
         (t (error "Invalid mode-line value")))
   (jao-maildir--setup-watches cb))
 
+;;;###autoload
+(defun jao-maildir-file-to-group (file)
+  "Calculate the Gnus group name from the given file name.
+Example:
+
+  IN: /home/jao/var/mail/jao/foo/cur/1259184569.M4818P3384.localhost,W=6921:2,S
+  OUT: nnimap:jao/foo
+
+  IN: /home/jao/var/mail/gmane/foo/bar/100
+  OUT: nntp+localhost:gmane.foo.bar
+
+  IN: /home/jao/var/mail/bigml/cur/1259176906.M17483P24679.localhost,W=2488:2,S
+  OUT:nnimap:bigml/inbox"
+  (let* ((g (directory-file-name (file-name-directory file)))
+         (g (replace-regexp-in-string (file-name-as-directory jao-maildir-home)
+                                      "" g))
+         (nntp (string-match-p "^\\(gmane\\|gwene\\)/" g))
+         (g (if nntp
+                (concat "nntp+localhost:" g)
+              (replace-regexp-in-string "^\\([^/]+\\)/" "nnimap:\\1/"
+                                        (file-name-directory g) t)))
+         (g (if nntp (replace-regexp-in-string "/" "." g) g))
+         (g (replace-regexp-in-string "[/.]$" "" g)))
+    (cond ((string-match ":$" g) (concat g "inbox"))
+          (nntp g)
+          (t (replace-regexp-in-string ":\\." ":" g)))))
+
 
 (provide 'jao-maildir)
 ;;; jao-maildir.el ends here