attic: sample mu4e config

1 files changed, 81 insertions, 0 deletions

diff --git a/attic/misc.el b/attic/misc.el
index 7fb45c9..9c3488f 100644
--- a/attic/misc.el
+++ b/attic/misc.el
@@ -1,3 +1,4 @@
+;;;  -*- lexical-binding: t; -*-
 ;;; ace window
 (use-package ace-window
   :ensure t
@@ -203,3 +204,83 @@
                  (shr-render-region begin (1- (point))))))))))
 
 (add-hook 'gnus-part-display-hook 'jao-gnus-remove-anchors)
+
+;;; mu4e
+(jao-load-path "mu4e")
+(use-package mu4e
+  :init
+  (setq mu4e-attachment-dir (expand-file-name "~/var/download/attachments")
+        mu4e-change-filenames-when-moving nil
+        mu4e-completing-read-function 'completing-read
+        mu4e-display-update-status-in-modeline nil
+        mu4e-get-mail-command nil ;; "run-mb.sh || [ $? -eq 1 ]"
+        mu4e-headers-show-threads t
+        mu4e-headers-sort-direction 'ascending
+        mu4e-headers-visible-columns 100
+        mu4e-headers-visible-lines 12
+        mu4e-hide-index-messages t
+        mu4e-index-cleanup t  ;; don't do a full cleanup check
+        mu4e-index-lazy-check t ;; don't consider up-to-date dirs
+        mu4e-maildir "~/tmp/mail.notmuch/"
+        mu4e-split-view 'horizontal ;; 'vertical
+        mu4e-update-interval 300
+        mu4e-use-fancy-chars nil
+        mu4e-user-mail-address-list jao-mails
+        mu4e-view-show-addresses t
+        mu4e-view-show-images t
+        mu4e-maildir-shortcuts '((:maildir "/jao/inbox" :key ?j)
+                                 (:maildir "/bigml/inbox" :key ?b))
+        jao-mu4e-uninteresting-mail-query
+        (concat
+         "flag:unread AND NOT flag:trashed"
+         " AND NOT (maildir:/bigml/inbox OR maildir:/bigml/bugs OR"
+         " maildir:/bigml/support OR maildir:/jao/inbox)")
+        jao-mu4e-interesting-mail-query
+        (concat
+         "flag:unread AND NOT flag:trashed"
+         " AND (maildir:/bigml/inbox OR maildir:/bigml/bugs OR"
+         " maildir:/bigml/support OR maildir:/jao/inbox)")
+        mu4e-bookmarks
+        `((:name "Inbox" :query ,jao-mu4e-interesting-mail-query :key ?i)
+          (:name "Other messages"
+                 :query ,jao-mu4e-uninteresting-mail-query
+                 :key 117)
+          (:name "Today's messages" :query "date:today..now"
+                 :key 116)
+          (:name "Last 7 days" :query "date:7d..now" :hide-unread t
+                 :key 119)
+          (:name "Messages with PDFs"
+                 :query "mime:application/pdf OR mime:x-application/pdf"
+                 :key 112)))
+
+  :config
+  (defun jao-mu4e--maildir (msg)
+    (when msg
+      (let ((md (mu4e-message-field msg :maildir)))
+        (when (string-match "/\\([^/]+\\)/.*" md)
+          (match-string 1 md)))))
+
+  (defun jao-mu4e--refile-folder (name)
+    (lambda (msg)
+      (let ((md (jao-mu4e--maildir msg)))
+        (if (string= md name)
+            (concat "/jao/" name)
+          (format "/%s/%s" md name)))))
+
+  (setq mu4e-sent-folder (jao-mu4e--refile-folder "sent"))
+  (setq mu4e-drafts-folder (jao-mu4e--refile-folder "drafts"))
+  (setq mu4e-trash-folder (jao-mu4e--refile-folder "trash"))
+  (setq mu4e-refile-folder (jao-mu4e--refile-folder "folder"))
+
+  (setq mu4e-contexts nil)
+
+  (setq mu4e-view-show-images t)
+  (when (fboundp 'imagemagick-register-types)
+    (imagemagick-register-types))
+
+  (define-key mu4e-view-mode-map [remap mu4e-view-verify-msg-popup]
+    'epa-mail-verify)
+
+  ;; View html message in browser (type aV)
+  (add-to-list 'mu4e-view-actions
+               '("ViewInBrowser" . mu4e-action-view-in-browser) t))