basic skeleton
This commit is contained in:
parent
8c8aa2a11d
commit
af61004319
30
nnmu.el
30
nnmu.el
|
@ -26,13 +26,43 @@
|
||||||
;; This package provides an `nnmu' backend for Gnus as an alternative
|
;; This package provides an `nnmu' backend for Gnus as an alternative
|
||||||
;; to `nnmaildir' or `nnnotmuch' which is also not a part of GNU Emacs.
|
;; 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:
|
;;; Code:
|
||||||
|
|
||||||
(require 'nnheader)
|
(require 'nnheader)
|
||||||
(require 'nnmaildir)
|
(require 'nnmaildir)
|
||||||
(require 'nnoo)
|
(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-declare nnmu nnmaildir)
|
||||||
(nnoo-define-basics nnmu)
|
(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)
|
(provide 'nnmu)
|
||||||
|
|
Loading…
Reference in New Issue