Multiple accounts now working in mu4e. Adding some more spacemacs
layers. Misc spacemacs conf updates.master
Dustin Swan
10 years ago
parent
842492dd93
commit
97336db31d
@ -0,0 +1,240 @@
|
||||
;;; mu4e-multi.el --- Multiple account facilities for mu4e
|
||||
|
||||
;; Copyright (C) 2013 Free Software Foundation, Inc.
|
||||
|
||||
;; Authors: Fabián Ezequiel Gallina <fgallina@gnu.org>
|
||||
|
||||
;; This file is NOT part of mu4e.
|
||||
|
||||
;; mu4e-multi.el is free software; you can redistribute it
|
||||
;; and/or modify it under the terms of the GNU General Public License
|
||||
;; as published by the Free Software Foundation; either version 3, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; mu4e-multi.el is distributed in the hope that it will be
|
||||
;; useful, but WITHOUT ANY WARRANTY; without even the implied warranty
|
||||
;; of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with mu4e-multi.el; see the file COPYING. If not,
|
||||
;; write to the Free Software Foundation, Inc., 51 Franklin St, Fifth
|
||||
;; Floor, Boston, MA 02110-1301, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; See the README.md file for details on how to install and use this
|
||||
;; package.
|
||||
|
||||
;;; Code:
|
||||
(require 'cl-lib)
|
||||
(require 'message)
|
||||
(require 'mu4e-actions)
|
||||
(require 'mu4e-headers)
|
||||
(require 'thingatpt)
|
||||
|
||||
|
||||
(defvar mu4e-multi-last-read-account ""
|
||||
"Holds the last selected account from minibuffer.
|
||||
This is just for `mu4e-multi-minibuffer-read-account' to prompt
|
||||
always the latest used account as default.")
|
||||
|
||||
(defvar mu4e-multi-account-alist nil
|
||||
"Alist containing all information of email accounts.
|
||||
Here's an example for two accounts:
|
||||
|
||||
'((\"account-1\"
|
||||
(user-mail-address . \"user1@server.com\")
|
||||
(mu4e-sent-folder . \"/account-1/Sent Mail\")
|
||||
(mu4e-drafts-folder . \"/account-1/Drafts\")
|
||||
(mu4e-refile-folder . \"/account-1/Archive\")
|
||||
(mu4e-trash-folder . \"/account-1/Trash\"))
|
||||
(\"account-2\"
|
||||
(user-mail-address . \"user2@server.com\")
|
||||
(mu4e-sent-folder . \"/account-2/Sent Mail\")
|
||||
(mu4e-drafts-folder . \"/account-2/Drafts\")
|
||||
(mu4e-refile-folder . \"/account-2/Archive\")
|
||||
(mu4e-trash-folder . \"/account-2/Trash\")))
|
||||
|
||||
The names \"account-1\" and \"account-2\" are used as identifiers
|
||||
to access an account's data. IMPORTANT: maildirs must match
|
||||
their prefix with the identifier given, as in the example
|
||||
above.")
|
||||
|
||||
(defvar mu4e-multi-standard-folders '(mu4e-drafts-folder
|
||||
mu4e-refile-folder
|
||||
mu4e-sent-folder
|
||||
mu4e-trash-folder)
|
||||
"List of standard mu4e folders.")
|
||||
|
||||
(defun mu4e-multi-account-name-list (&optional account-alist)
|
||||
"Return account names from ACCOUNT-ALIST.
|
||||
When ACCOUNT-ALIST is nil, the value of
|
||||
`mu4e-multi-account-alist' is used."
|
||||
(mapcar #'car (or account-alist mu4e-multi-account-alist)))
|
||||
|
||||
(defun mu4e-multi-minibuffer-read-account ()
|
||||
"Read account name from minibuffer."
|
||||
(let ((account-list (mu4e-multi-account-name-list)))
|
||||
(setq
|
||||
mu4e-multi-last-read-account
|
||||
(completing-read
|
||||
(format "Compose with account: (%s) "
|
||||
(mapconcat
|
||||
#'(lambda (acc)
|
||||
(if (string= acc mu4e-multi-last-read-account)
|
||||
(format "[%s]" acc)
|
||||
acc))
|
||||
account-list "/"))
|
||||
account-list nil t nil nil mu4e-multi-last-read-account))))
|
||||
|
||||
(defun mu4e-multi-get-msg-account (msg &optional account)
|
||||
"Get account from MSG.
|
||||
If no account can be found from MSG then use ACCOUNT as default."
|
||||
(let ((maildir (when msg (mu4e-msg-field msg :maildir)))
|
||||
(account-list (mu4e-multi-account-name-list)))
|
||||
(cond ((and maildir
|
||||
(string-match
|
||||
(concat
|
||||
"/\\("
|
||||
(regexp-opt account-list)
|
||||
"\\)/?")
|
||||
maildir))
|
||||
(match-string-no-properties 1 maildir))
|
||||
((and account (car (member account account-list)))))))
|
||||
|
||||
(defun mu4e-multi-set-folder (folder msg)
|
||||
"Set FOLDER using MSG as detection element."
|
||||
(let ((varval (assoc
|
||||
folder
|
||||
(cdr
|
||||
(assoc (or (mu4e-multi-get-msg-account msg)
|
||||
mu4e-multi-last-read-account)
|
||||
mu4e-multi-account-alist)))))
|
||||
(if varval
|
||||
(set (make-local-variable folder) (cdr varval))
|
||||
(mu4e-error "Cannot set folder %s, account for MSG %s not detected"
|
||||
folder msg))))
|
||||
|
||||
(defmacro mu4e-multi-make-set-folder-fn (folder)
|
||||
"Make a setter for FOLDER.
|
||||
This is just a wrapper over `mu4e-multi-set-folder' and can be
|
||||
used to set you mu4e-*-folder vars. Example:
|
||||
|
||||
(setq mu4e-sent-folder
|
||||
(mu4e-multi-make-folder-fn mu4e-sent-folder))
|
||||
|
||||
Normally used to set `mu4e-sent-folder', `mu4e-drafts-folder',
|
||||
`mu4e-trash-folder' and `mu4e-refile-folder'."
|
||||
`(apply-partially #'mu4e-multi-set-folder ',folder))
|
||||
|
||||
(defmacro mu4e-multi-make-mark-for-command (folder)
|
||||
"Generate command to mark current message to move to FOLDER.
|
||||
The command is named after the prefix \"mu4e-multi-mark-for-\"
|
||||
and what's in between of \"mu4e-\" and \"-folder\" parts of the
|
||||
FOLDER symbol. Here's an example on how to use this:
|
||||
|
||||
(mu4e-multi-make-mark-for-command mu4e-hold-folder)
|
||||
(define-key 'mu4e-headers-mode-map \"h\" 'mu4e-multi-mark-for-hold)
|
||||
|
||||
OR:
|
||||
|
||||
(define-key 'mu4e-headers-mode-map \"h\"
|
||||
(mu4e-multi-make-mark-for-command mu4e-hold-folder))"
|
||||
(let ((name (mapconcat
|
||||
'identity
|
||||
(butlast
|
||||
(cdr (split-string
|
||||
(symbol-name folder) "-")))
|
||||
"-")))
|
||||
`(defun ,(intern (format "mu4e-multi-mark-for-%s" name)) ()
|
||||
,(format "Mark message to be moved to `%s'." ',folder)
|
||||
(interactive)
|
||||
(mu4e-mark-set
|
||||
'move
|
||||
(cdr (assoc ',folder
|
||||
(cdr (assoc (mu4e-multi-get-msg-account
|
||||
(mu4e-message-at-point))
|
||||
mu4e-multi-account-alist)))))
|
||||
(mu4e-headers-next))))
|
||||
|
||||
(defun mu4e-multi-compose-set-account (&optional account)
|
||||
"Set the ACCOUNT for composing.
|
||||
With Optional Argument ACCOUNT, set all variables for that given
|
||||
identifier, else it tries to retrieve the message in context and
|
||||
detect ACCOUNT from it."
|
||||
(interactive)
|
||||
(let* ((msg (or mu4e-compose-parent-message
|
||||
(ignore-errors (mu4e-message-at-point))))
|
||||
(account (or account
|
||||
(mu4e-multi-get-msg-account msg)))
|
||||
(account-vars (cdr (assoc account mu4e-multi-account-alist))))
|
||||
(when account-vars
|
||||
(mapc #'(lambda (var)
|
||||
(set (make-local-variable (car var)) (cdr var)))
|
||||
account-vars))
|
||||
(when (memq major-mode '(mu4e-compose-mode message-mode))
|
||||
(message-remove-header "from")
|
||||
(message-add-header (format "From: %s\n" (message-make-from)))
|
||||
(message "Using account %s" account))))
|
||||
|
||||
;;;###autoload
|
||||
(defun mu4e-multi-compose-new ()
|
||||
"Start writing a new message.
|
||||
This is a simple wrapper over `mu4e-compose-new' that asks for an
|
||||
account to be used to compose the new message."
|
||||
(interactive)
|
||||
(let ((account (mu4e-multi-minibuffer-read-account)))
|
||||
(mu4e-compose-new)
|
||||
(mu4e-multi-compose-set-account account)))
|
||||
|
||||
(defun mu4e-multi-smtpmail-set-msmtp-account ()
|
||||
"Set the account for msmtp.
|
||||
This function is intended to added in the
|
||||
`message-send-mail-hook'. Searches for the account in the
|
||||
`mu4e-multi-account-alist' variable by matching the email given
|
||||
in the \"from\" field. Note that all msmtp accounts should
|
||||
defined in the ~/.msmtprc file and names should be matching the
|
||||
keys of the `mu4e-multi-account-alist'."
|
||||
(setq message-sendmail-extra-arguments
|
||||
(list
|
||||
"-a"
|
||||
(catch 'exit
|
||||
(let* ((from (message-fetch-field "from"))
|
||||
(email (and from
|
||||
(string-match thing-at-point-email-regexp from)
|
||||
(match-string-no-properties 0 from))))
|
||||
(if email
|
||||
(cl-dolist (alist mu4e-multi-account-alist)
|
||||
(when (string= email (cdr (assoc 'user-mail-address (cdr alist))))
|
||||
(throw 'exit (car alist))))
|
||||
(catch 'exit (mu4e-multi-minibuffer-read-account))))))))
|
||||
|
||||
(defun mu4e-multi-enable ()
|
||||
"Enable mu4e multiple account setup."
|
||||
(setq mu4e-sent-folder (mu4e-multi-make-set-folder-fn mu4e-sent-folder)
|
||||
mu4e-drafts-folder (mu4e-multi-make-set-folder-fn mu4e-drafts-folder)
|
||||
mu4e-trash-folder (mu4e-multi-make-set-folder-fn mu4e-trash-folder)
|
||||
mu4e-refile-folder (mu4e-multi-make-set-folder-fn mu4e-refile-folder))
|
||||
(add-hook 'message-mode-hook 'mu4e-multi-compose-set-account))
|
||||
|
||||
(defun mu4e-multi-disable ()
|
||||
"Disable mu4e multiple account setup."
|
||||
(cl-dolist (variable mu4e-multi-standard-folders)
|
||||
(let* ((sv (get variable 'standard-value))
|
||||
(origval (and (consp sv)
|
||||
(condition-case nil
|
||||
(eval (car sv))
|
||||
(error :help-eval-error)))))
|
||||
(when (not (equal (symbol-value variable) origval))
|
||||
(set variable origval))))
|
||||
(remove-hook 'message-mode-hook 'mu4e-multi-compose-set-account))
|
||||
|
||||
(provide 'mu4e-multi)
|
||||
|
||||
;; Local Variables:
|
||||
;; coding: utf-8
|
||||
;; indent-tabs-mode: nil
|
||||
;; End:
|
||||
|
||||
;;; mu4e-multi.el ends here
|
||||
@ -1,51 +1,111 @@
|
||||
(eval-after-load 'mu4e
|
||||
'(progn
|
||||
|
||||
(require 'mu4e-multi)
|
||||
(require 'mu4e-contrib)
|
||||
|
||||
(setq mu4e-multi-account-alist
|
||||
'(("Gmail"
|
||||
(user-mail-address . "dustinswan@gmail.com")
|
||||
(mu4e-drafts-folder . "/Gmail/[Gmail].Drafts")
|
||||
(mu4e-refile-folder . "/Gmail/[Gmail].All Mail")
|
||||
(mu4e-sent-folder . "/Gmail/[Gmail].Sent Mail")
|
||||
(mu4e-trash-folder . "/Gmail/[Gmail].Trash"))
|
||||
("IOCOM"
|
||||
(user-mail-address . "dswan@iocom.com")
|
||||
(mu4e-drafts-folder . "/IOCOM/INBOX.Drafts")
|
||||
(mu4e-refile-folder . "/IOCOM/INBOX.Archive")
|
||||
(mu4e-sent-folder . "/IOCOM/INBOX.Sent")
|
||||
(mu4e-trash-folder . "/IOCOM/INBOX.Trash"))))
|
||||
|
||||
(mu4e-multi-enable)
|
||||
|
||||
;; (add-hook 'message-send-mail-hook 'mu4e-multi-smtpmail-set-msmtp-account)
|
||||
|
||||
(setq
|
||||
user-mail-address "dustinswan@gmail.com"
|
||||
|
||||
mu4e-maildir "~/Mail" ;; top-level Maildir
|
||||
mu4e-sent-folder "/Gmail/[Gmail].Sent Mail" ;; folder for sent messages
|
||||
mu4e-drafts-folder "/Gmail/[Gmail].Drafts" ;; unfinished messages
|
||||
mu4e-trash-folder "/Gmail/[Gmail].Trash" ;; trashed messages
|
||||
mu4e-refile-folder "/Gmail/[Gmail].All Mail" ;; saved messages
|
||||
mu4e-sent-messages-behavior 'delete
|
||||
mu4e-maildir "~/Mail"
|
||||
mu4e-user-mail-address-list '("dustinswan@gmail.com"
|
||||
"dswan@iocom.com"
|
||||
"dswan@insors.com"
|
||||
"dustin@dustinswan.com")
|
||||
|
||||
smtpmail-default-smtp-server "smtp.gmail.com"
|
||||
smtpmail-local-domain "gmail.com" ;; what the fuck is this
|
||||
smtpmail-smtp-server "smtp.gmail.com"
|
||||
smtpmail-smtp-service 25
|
||||
user-full-name "Dustin Swan"
|
||||
mu4e-attachment-dir "~/Downloads"
|
||||
message-signature "Dustin Swan"
|
||||
mu4e-compose-signature "Dustin Swan"
|
||||
mail-host-address "gmail.com"
|
||||
|
||||
mu4e-get-mail-command "offlineimap -q"
|
||||
mu4e-update-interval 120
|
||||
|
||||
;; mu4e-use-fancy-chars t
|
||||
|
||||
;; mu4e-html2text-command "html2text -nobs"
|
||||
;; mu4e-html2text-command "w3m -T text/html"
|
||||
mu4e-html2text-command 'mu4e-shr2text
|
||||
mu4e-view-prefer-html 't ;; sorryboutit
|
||||
mu4e-view-show-images t ;; doesn't work with shr2text
|
||||
|
||||
message-send-mail-function 'message-send-mail-with-sendmail
|
||||
message-sendmail-extra-arguments '("--read-envelope-from")
|
||||
message-sendmail-f-is-evil 't
|
||||
sendmail-program "/usr/local/bin/msmtp"
|
||||
|
||||
;; just Gmail at first
|
||||
;; user-mail-address "dustinswan@gmail.com"
|
||||
;; mu4e-sent-folder "/Gmail/[Gmail].Sent Mail"
|
||||
;; mu4e-drafts-folder "/Gmail/[Gmail].Drafts"
|
||||
;; mu4e-trash-folder "/Gmail/[Gmail].Trash"
|
||||
;; mu4e-refile-folder "/Gmail/[Gmail].All Mail"
|
||||
;; mu4e-sent-messages-behavior 'delete
|
||||
;; mail-host-address "gmail.com"
|
||||
|
||||
)
|
||||
|
||||
; multiple accounts
|
||||
;; (defvar my-mu4e-account-alist
|
||||
;; '(("Gmail"
|
||||
;; (mu4e-sent-folder "/Account1/Saved Items")
|
||||
;; (mu4e-drafts-folder "/Account1/Drafts")
|
||||
;; (user-mail-address "my.address@account1.tld")
|
||||
;; (smtpmail-default-smtp-server "smtp.account1.tld")
|
||||
;; (smtpmail-local-domain "account1.tld")
|
||||
;; (smtpmail-smtp-user "username1")
|
||||
;; (smtpmail-smtp-server "smtp.account1.tld")
|
||||
;; (smtpmail-stream-type starttls)
|
||||
;; (smtpmail-smtp-service 25))
|
||||
;; (user-mail-address "dustinswan@gmail.com")
|
||||
;; (mu4e-sent-folder "/Gmail/[Gmail].Sent Mail")
|
||||
;; (mu4e-drafts-folder "/Gmail/[Gmail].Drafts")
|
||||
;; (mu4e-trash-folder "/Gmail/[Gmail].Trash")
|
||||
;; ;; (mu4e-refile-folder "/Gmail/[Gmail].All Mail")
|
||||
;; (mu4e-sent-messages-behavior 'delete)
|
||||
;; (mail-host-address "gmail.com")
|
||||
|
||||
;; ("IOCOM"
|
||||
;; (mu4e-sent-folder "/Account2/Saved Items")
|
||||
;; (mu4e-drafts-folder "/Account2/Drafts")
|
||||
;; (user-mail-address "my.address@account2.tld")
|
||||
;; (smtpmail-default-smtp-server "smtp.account2.tld")
|
||||
;; (smtpmail-local-domain "account2.tld")
|
||||
;; (smtpmail-smtp-user "username2")
|
||||
;; (smtpmail-smtp-server "smtp.account2.tld")
|
||||
;; (smtpmail-stream-type starttls)
|
||||
;; (smtpmail-smtp-service 587))))
|
||||
;; (user-mail-address "dswan@iocom.com")
|
||||
;; (mu4e-sent-folder "/IOCOM/INBOX.Sent")
|
||||
;; (mu4e-drafts-folder "/IOCOM/INBOX.Drafts")
|
||||
;; (mu4e-trash-folder "/IOCOM/INBOX.Trash")
|
||||
;; ;; (mu4e-refile-folder "/IOCOM/INBOX.Archive")
|
||||
;; (mu4e-sent-messages-behavior 'sent)
|
||||
;; (mail-host-address "iocom.com")))))
|
||||
|
||||
(add-to-list 'mu4e-bookmarks '("maildir:/IOCOM/INBOX OR maildir:/Gmail/INBOX" "All Inboxes" ?I))
|
||||
(add-to-list 'mu4e-bookmarks '("maildir:/IOCOM/INBOX" "IOCOM Inbox" ?i))
|
||||
(add-to-list 'mu4e-bookmarks '("maildir:/Gmail/INBOX" "Gmail Inbox" ?g))
|
||||
|
||||
(setq mu4e-attachment-dir "~/Downloads")
|
||||
;; refile
|
||||
;; (setq mu4e-refile-folder
|
||||
;; (lambda (msg)
|
||||
;; (cond
|
||||
;; ((mu4e-message-contact-field-matches msg :to "dustinswan@gmail.com")
|
||||
;; "/Gmail/[Gmail].All Mail")
|
||||
;; ((mu4e-message-contact-field-matches msg :to "dswan@iocom.com")
|
||||
;; "/IOCOM/INBOX.Archive")
|
||||
;; ;; messages sent by me go to the sent folder
|
||||
;; ;; ((find-if
|
||||
;; ;; (lambda (addr)
|
||||
;; ;; (mu4e-message-contact-field-matches msg :from addr))
|
||||
;; ;; mu4e-user-mail-address-list)
|
||||
;; ;; mu4e-sent-folder)
|
||||
;; (t "/Gmail/[Gmail].All Mail"))))
|
||||
|
||||
(setq mu4e-view-show-images t) ;; enable inline images
|
||||
(add-to-list 'mu4e-view-actions '("ViewInBrowser" . mu4e-action-view-in-browser) t)
|
||||
|
||||
;; use imagemagick, if available
|
||||
(when (fboundp 'imagemagick-register-types)
|
||||
(imagemagick-register-types))))
|
||||
|
||||
|
||||
Loading…
Reference in New Issue