unused code

1 files changed, 0 insertions, 90 deletions

diff --git a/email.org b/email.org
index 009a4f9..2d270ad 100644
--- a/email.org
+++ b/email.org
@@ -748,93 +748,3 @@
       notmuch new > $HOME/var/log/notmuch-expire.log 2>&1
       notmuch compact >> $HOME/var/log/notmuch-expire.log 2>&1
     #+end_src
-* mu4e
-  #+begin_src emacs-lisp
-    (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 "true" ;; "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 "~/var/mail/"
-            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
-            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 "Unread 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)))
-
-      (setq mu4e-maildir-shortcuts
-            '(("/bigml/inbox" . ?i)
-              ("/bigml/bugs" . ?b)
-              ("/bigml/support" . ?s)
-              ("/jao/lists" . ?l)
-              ("/feeds/emacs" . ?e)))
-
-      :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--maildir-folder (dir)
-        `(lambda (msg)
-           (format "/%s/%s" (jao-mu4e--maildir msg) ,dir)))
-
-      (defun jao-mu4e--refile-folder (msg)
-        (let ((md (jao-mu4e--maildir msg)))
-          (if (string= md "trove")
-              "/trove/jao"
-            (format "/trove/%" md))))
-
-      (setq mu4e-sent-folder (jao-mu4e--maildir-folder "sent"))
-      (setq mu4e-drafts-folder (jao-mu4e--maildir-folder "trash"))
-      (setq mu4e-trash-folder (jao-mu4e--maildir-folder "trash"))
-      (setq mu4e-refile-folder 'jao-mu4e--refile-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))
-
-    #+end_src