pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 04:11:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Mail stuff

Browse source
This commit is contained in:
Benson Chu 2026-05-24 15:56:05 -05:00
parent 1aa2d5012b
commit 624cb7db3b
2 changed files with 32 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
lisp/mail/mu4e-configuration.el
View file

@ -43,12 +43,34 @@
("/fastmail/important.Development" . ?d) ("/fastmail/important.Development" . ?d)
("/fastmail/important.Puppet" . ?p) ("/fastmail/important.Puppet" . ?p)
("/fastmail/important.VIPs" . ?v) ("/fastmail/important.VIPs" . ?v)
("/fastmail/Archive" . ?a))) ("/fastmail/important.unsorted" . ?u)
("/fastmail/important.tracking" . ?t)
("/fastmail/important.tracking.receipts" . ?r)
("/fastmail/corpo" . ?c)
("/fastmail/Archive" . ?a)
("/fastmail/Unnecessary.mailing_lists.emacs.emacs-devel" . ?e)
("/fastmail/Unnecessary.mailing_lists.emacs.emacs-devel.kept" . ?k)
("/fastmail/Unnecessary.mailing_lists.emacs.emacs-orgmode" . ?O)
("/fastmail/Unnecessary.mailing_lists.emacs.bug-gnu-emacs" . ?b)
("/fastmail/Unnecessary.mailing_lists.emacs.help-gnu-emacs" . ?h)
("/fastmail/Unnecessary.mailing_lists.notmuch" . ?n)))
(setq mu4e-bookmarks (setq mu4e-bookmarks
'(( :name "Inbox" '(( :name "Inbox"
:query "maildir:/fastmail/INBOX AND NOT flag:trashed" :query "maildir:/fastmail/INBOX AND NOT flag:trashed"
:key ?i) :key ?i)
( :name "Unsorted"
:query "(maildir:/fastmail/important.unsorted OR maildir:/fastmail/corpo)"
:key ?u)
( :name "New emacs-devel"
:query "maildir:/fastmail/Unnecessary.mailing_lists.emacs.emacs-devel AND flag:unread AND date:2026/03/01.."
:key ?e)
( :name "All emacs-devel"
:query "maildir:/fastmail/Unnecessary.mailing_lists.emacs.emacs-devel AND flag:unread"
:key ?E)
( :name "Kept emacs-devel"
:query "maildir:/fastmail/Unnecessary.mailing_lists.emacs.emacs-devel.kept"
:key ?k)
( :name "Today's messages" ( :name "Today's messages"
:query "date:today..now" :query "date:today..now"
:key ?t) :key ?t)
@ -57,15 +79,6 @@
:hide-unread t :hide-unread t
:key ?w))) :key ?w)))
(setq mu4e-bookmarks
(mapcar (lambda (x)
(let ((str (plist-get x :query)))
(when (not (string-match-p "Unnecessary/mailing_lists" str))
(setf (plist-get x :query)
(concat str " AND NOT maildir:/Unnecessary/mailing_lists*"))))
x)
mu4e-bookmarks))
(defvar my/email-accounts (defvar my/email-accounts
'("bensonchu457@fastmail.com" '("bensonchu457@fastmail.com"
"bensonchu@fastmail.com" "bensonchu@fastmail.com"

10
lisp/mail/mu4e-generic.el
View file

@ -26,7 +26,15 @@
(require 'mu4e) (require 'mu4e)
(require 'mu4e-contrib) (require 'mu4e-contrib)
(define-key mu4e-headers-mode-map (kbd "M") #'mu4e-headers-mark-all) (defun my/mu4e-headers-mark-all ()
"Mark all headers for some action.
Ask user what action to execute."
(interactive)
(mu4e-headers-mark-for-each-if
(cons 'something nil)
(lambda (_msg _param) t)))
(define-key mu4e-headers-mode-map (kbd "M") #'my/mu4e-headers-mark-all)
(defun mu4e-print-path () (defun mu4e-print-path ()
(interactive) (interactive)