emacs: Remove some mu4e settings

.emacs.d/site-lisp/oni.el

@@ -27,22 +27,6 @@
 (autoload 'notifications-notify "notifications")
 (autoload 'jabber-send-message "jabber-chat")
 
-(defmacro oni:define-mailbox (name email &optional signature longname)
-  "Define a mailbox function for mailbox NAME with address EMAIL.
-Optionally set signature to SIGNATURE and use LONGNAME as the
-actual account name."
-  `(defun ,(make-symbol (concat "oni:" name "-mailbox")) ()
-     ,(concat "Settings for " name " mailbox")
-     (setq mu4e-mu-home ,(expand-file-name (concat "~/.mu/" name))
-           mu4e-maildir ,(expand-file-name (concat "~/documents/mail/"
-                                                   (or longname name)))
-           mu4e-get-mail-command ,(concat "offlineimap -oa " (or longname
-                                                                 name))
-           mu4e~main-buffer-name ,(concat "*mu4e-" name "*")
-           user-mail-address ,email
-           message-sendmail-extra-arguments '("-a" ,name)
-           message-signature-file ,signature)))
-
 (defmacro oni:email (user at host dot com)
   "Turn arguments into an email address.
 The resulting email address will look like: USER@HOST.COM, AT and
@@ -606,20 +590,6 @@ If no direction is given, don't split."
   (setq-local comment-auto-fill-only-comments nil)
   (auto-fill-mode))
 
-(defun oni:view-mail (inbox)
-  "Show a menu with all mailbox options from `oni:mailbox-map'
-for easy selection."
-  (interactive
-   (list (progn
-           (require 'tmm)
-           (let ((tmm-completion-prompt "Choose a mailbox\n"))
-             (tmm-prompt oni:mailbox-map)))))
-  (if inbox
-      (progn
-        (require 'mu4e)
-        (funcall (intern (concat "oni:" inbox "-mailbox")))
-        (mu4e))))
-
 (defun oni:write-file-func ()
   "Function for `write-file-hooks'."
   (time-stamp))