From 0dcd8d2b99aca514733408c9ea4769d5e87af42a Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 27 Apr 2021 00:50:47 +0100
Subject: unused code
---
email.org | 90 ---------------------------------------------------------------
1 file changed, 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
--
cgit v1.2.3