jdormit/dotfiles
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix mu4e matching from field custom marker

Browse Source
This commit is contained in:
Jeremy Dormitzer 2022-08-08 12:09:31 -04:00
parent 86eb32a306
commit 4efd701fcc
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
emacs/.emacs.d/config/init-email.el
View File

@ -84,14 +84,18 @@
(message-sendmail-extra-arguments
. ("-a" "jdormitzer-spotify-com"))))))
;; Custom mark function to mark messages matching the current message
(defun mu4e-mark-matching-pred (msg from)
(defun mu4e-mark-matching-from-pred (msg from)
(mu4e-message-contact-field-matches msg :from from))
(defun mu4e-mark-matching-input ()
(defun mu4e-mark-matching-from-input ()
(let* ((msg (mu4e-message-at-point t)))
(if (not msg)
(error "No message at point")
(cdr (mu4e-message-field msg :from)))))
(-non-nil
(funcall
(-juxt (lambda (v) (plist-get v :name))
(lambda (v) (plist-get v :email)))
(car (mu4e-message-field msg :from)))))))
(setq mu4e-headers-custom-markers
'(("Older than"
@ -118,13 +122,8 @@
(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))))))))
mu4e-mark-matching-from-pred
mu4e-mark-matching-from-input)))
(add-hook 'mu4e-compose-pre-hook
(lambda ()
(set