From af61004319df986e52cb54369fb4eb7666d4e6ec Mon Sep 17 00:00:00 2001 From: Jai Flack Date: Thu, 1 Oct 2020 19:45:32 +1000 Subject: [PATCH] basic skeleton --- nnmu.el | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) diff --git a/nnmu.el b/nnmu.el index b3865c2..3fa06aa 100644 --- a/nnmu.el +++ b/nnmu.el @@ -26,13 +26,43 @@ ;; This package provides an `nnmu' backend for Gnus as an alternative ;; to `nnmaildir' or `nnnotmuch' which is also not a part of GNU Emacs. +;; The documentation for most functions and variables has been +;; intentionally left blank, instead refer to the Gnus manual. + ;;; Code: (require 'nnheader) (require 'nnmaildir) (require 'nnoo) + +(defcustom nnmu-program + (or (executable-find "mu") + (cond + ((file-exists-p "/usr/sbin/mu") "/usr/sbin/mu") + ((file-exists-p "/usr/lib/mu") "/usr/lib/mu") + ((file-exists-p "/usr/ucblib/mu") "/usr/ucblib/mu") + (t "mu"))) + "Path to the mu program." + :type 'file) + +(defcustom nnmu-muhome "" + "Path to the mu database" + :type 'directory) + + (nnoo-declare nnmu nnmaildir) (nnoo-define-basics nnmu) + +(defvar nnmu--current-group nil) +(defvar nnmu--current-server nil) + +(deffoo nnmu-retrieve-headers (articles &optional group server fetch-old) + (or group (setq group nnmu--current-group)) + ) + + +(gnus-declare-backend "nnmu" 'post-mail 'address) + (provide 'nnmu)