diff --git a/emacs/init.org b/emacs/init.org index d27da82..8d25313 100755 --- a/emacs/init.org +++ b/emacs/init.org @@ -3649,24 +3649,23 @@ Then configure it: mail-user-agent 'mu4e-user-agent ;; Custom actions mu4e-view-actions '(("capture message" . mu4e-action-capture-message) - ("view as pdf" . mu4e-action-view-as-pdf) - ("show this thread" . mu4e-action-show-thread) - ("View in browser" . mu4e-action-view-in-browser)) + ("view as pdf" . mu4e-action-view-as-pdf) + ("show this thread" . mu4e-action-show-thread) + ("View in browser" . mu4e-action-view-in-browser)) ;; Bookmarked searches mu4e-bookmarks '((:name "Inbox" - :query (concat "maildir:/jeremy-dormitzer-gmail-com/Inbox" - " OR maildir:/jeremydormitzer-lola-com/Inbox") - :key ?i) - (:name "Unread messages" - :query "flag:unread AND NOT flag:trashed" - :key ?u) - (:name "Today's messages" - :query "date:today..now" - :key ?t) - (:name "Last 7 days" - :query "date:7d..now" - :show-unread t - :key ?p)) + :query (concat "maildir:/jeremy-dormitzer-gmail-com/Inbox" + " OR maildir:/jeremydormitzer-lola-com/Inbox") + :key ?i) + (:name "Unread messages" + :query "flag:unread AND NOT flag:trashed" + :key ?u) + (:name "Today's messages" + :query "date:today..now" + :key ?t) + (:name "Last 7 days" + :query "date:7d..now" + :key ?p)) ;; Getting mail mu4e-get-mail-command "mbsync -a" ;; Sending mail @@ -3684,33 +3683,33 @@ Then configure it: mu4e-compose-context-policy 'ask mu4e-contexts `(,(make-mu4e-context - :name "Personal Gmail" - :match-func (lambda (msg) - (when msg - (string-match-p - "jeremy-dormitzer-gmail-com" - (mu4e-message-field msg :path)))) - :vars '((user-mail-address . "jeremy.dormitzer@gmail.com") - (mu4e-sent-folder . "/jeremy-dormitzer-gmail-com/Sent") - (mu4e-drafts-folder . "/jeremy-dormitzer-gmail-com/Drafts") - (mu4e-refile-folder . "/jeremy-dormitzer-gmail-com/Archive") - (mu4e-trash-folder . "/jeremy-dormitzer-gmail-com/Trash") - (message-sendmail-extra-arguments - . ("-a" "jeremy-dormitzer-gmail-com")))) + :name "Personal Gmail" + :match-func (lambda (msg) + (when msg + (string-match-p + "jeremy-dormitzer-gmail-com" + (mu4e-message-field msg :path)))) + :vars '((user-mail-address . "jeremy.dormitzer@gmail.com") + (mu4e-sent-folder . "/jeremy-dormitzer-gmail-com/Sent") + (mu4e-drafts-folder . "/jeremy-dormitzer-gmail-com/Drafts") + (mu4e-refile-folder . "/jeremy-dormitzer-gmail-com/Archive") + (mu4e-trash-folder . "/jeremy-dormitzer-gmail-com/Trash") + (message-sendmail-extra-arguments + . ("-a" "jeremy-dormitzer-gmail-com")))) ,(make-mu4e-context - :name "Lola Gmail" - :match-func (lambda (msg) - (when msg - (string-match-p - "jeremydormitzer-lola-com" - (mu4e-message-field msg :path)))) - :vars '((user-mail-address . "jeremydormitzer@lola.com") - (mu4e-sent-folder . "/jeremydormitzer-lola-com/Sent") - (mu4e-drafts-folder . "/jeremydormitzer-lola-com/Drafts") - (mu4e-refile-folder . "/jeremydormitzer-lola-com/Archive") - (mu4e-trash-folder . "/jeremydormitzer-lola-com/Trash") - (message-sendmail-extra-arguments - . ("-a" "jeremydormitzer-lola-com")))))) + :name "Lola Gmail" + :match-func (lambda (msg) + (when msg + (string-match-p + "jeremydormitzer-lola-com" + (mu4e-message-field msg :path)))) + :vars '((user-mail-address . "jeremydormitzer@lola.com") + (mu4e-sent-folder . "/jeremydormitzer-lola-com/Sent") + (mu4e-drafts-folder . "/jeremydormitzer-lola-com/Drafts") + (mu4e-refile-folder . "/jeremydormitzer-lola-com/Archive") + (mu4e-trash-folder . "/jeremydormitzer-lola-com/Trash") + (message-sendmail-extra-arguments + . ("-a" "jeremydormitzer-lola-com")))))) ;; Custom mark function to mark messages matching the current message (defun mu4e-mark-matching-pred (msg from) @@ -3718,42 +3717,42 @@ Then configure it: (defun mu4e-mark-matching-input () (let* ((msg (mu4e-message-at-point t))) - (if (not msg) - (error "No message at point") - (cdr (mu4e-message-field msg :from))))) + (if (not msg) + (error "No message at point") + (cdr (mu4e-message-field msg :from))))) (setq mu4e-headers-custom-markers - '(("Older than" - (lambda - (msg date) - (time-less-p - (mu4e-msg-field msg :date) - date)) - (lambda nil - (mu4e-get-time-date "Match messages before: "))) - ("Newer than" - (lambda - (msg date) - (time-less-p date - (mu4e-msg-field msg :date))) - (lambda nil - (mu4e-get-time-date "Match messages after: "))) - ("Bigger than" - (lambda - (msg bytes) - (> - (mu4e-msg-field msg :size) - (* 1024 bytes))) - (lambda nil - (read-number "Match messages bigger than (Kbytes): "))) - ("Matching current message from: field" - (lambda (msg from) - (mu4e-message-contact-field-matches msg :from from)) - (lambda () - (let* ((msg (mu4e-message-at-point t))) - (if (not msg) - (error "No message at point") - (cdar (mu4e-message-field msg :from))))))))) + '(("Older than" + (lambda + (msg date) + (time-less-p + (mu4e-msg-field msg :date) + date)) + (lambda nil + (mu4e-get-time-date "Match messages before: "))) + ("Newer than" + (lambda + (msg date) + (time-less-p date + (mu4e-msg-field msg :date))) + (lambda nil + (mu4e-get-time-date "Match messages after: "))) + ("Bigger than" + (lambda + (msg bytes) + (> + (mu4e-msg-field msg :size) + (* 1024 bytes))) + (lambda nil + (read-number "Match messages bigger than (Kbytes): "))) + ("Matching current message from: field" + (lambda (msg from) + (mu4e-message-contact-field-matches msg :from from)) + (lambda () + (let* ((msg (mu4e-message-at-point t))) + (if (not msg) + (error "No message at point") + (cdar (mu4e-message-field msg :from))))))))) #+end_src Support sending rich-text emails via Markdown: