Merge pull request #96 from tarsius/autoload

* basic support for autoloading mu4e
This commit is contained in:
Dirk-Jan C. Binnema 2012-11-14 14:27:48 -08:00
commit 6390834355
3 changed files with 16 additions and 3 deletions

View File

@ -482,6 +482,7 @@ Ie. either 'name <email>' or 'email')."
;; mu4e-compose-func and mu4e-send-func are wrappers so we can set ourselves
;; as default emacs mailer (define-mail-user-agent etc.)
;;;###autoload
(defun mu4e~compose-mail (&optional to subject other-headers continue
switch-function yank-action send-actions return-action)
"This is mu4e's implementation of `compose-mail'."
@ -515,11 +516,19 @@ Ie. either 'name <email>' or 'email')."
(message-goto-body))))
;; happily, we can re-use most things from message mode
;;;###autoload
(define-mail-user-agent 'mu4e-user-agent
'mu4e~compose-mail
'message-send-and-exit
'message-kill-buffer
'message-send-hook)
;; Without this `mail-user-agent' cannot be set to `mu4e-user-agent'
;; through customize, as the custom type expects a function. Not
;; sure whether this function is actually ever used; if it is then
;; returning the symbol is probably the correct thing to do, as other
;; such functions suggest.
(defun mu4e-user-agent ()
'mu4e-user-agent)
(defun mu4e~compose-browse-url-mail (url &optional ignored)
"Adapter for `browse-url-mailto-function."
@ -540,3 +549,7 @@ Ie. either 'name <email>' or 'email')."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(provide 'mu4e-compose)
;; Load mu4e completely even when this file was loaded through
;; autoload.
(require 'mu4e)

View File

@ -1,7 +1,6 @@
;; auto-generated
(defconst mu4e-mu-version "@VERSION@"
"Required mu binary version; mu4e's version must agree with
this.")
"Required mu binary version; mu4e's version must agree with this.")
(defconst mu4e-builddir "@abs_top_builddir@"
"Top-level build directory.")

View File

@ -52,7 +52,7 @@
(setq mu4e-remove-func 'mu4e~headers-remove-handler)
(setq mu4e-erase-func 'mu4e~headers-clear)
;; these ones are define in mu4e-utils
;; these ones are defined in mu4e-utils
(setq mu4e-info-func 'mu4e-info-handler)
(setq mu4e-error-func 'mu4e-error-handler)
;; note: mu4e-utils also dynamically (temporarily)
@ -71,6 +71,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;###autoload
(defun mu4e ()
"Start mu4e."
(interactive)