dotfiles/emacs-lisp/email.org
Magic_RB a8983f85bb
Don't include related messages in mu4e views
Signed-off-by: Magic_RB <magic_rb@redalder.org>
2023-02-19 01:10:30 +01:00

79 lines
2.4 KiB
Org Mode

:PROPERTIES:
:ID: b9c06fb0-a985-4649-8133-14eeeaa708bc
:ROAM_REFS: https://jherrlin.github.io/posts/emacs-mu4e/
:END:
#+title: Email
#+filetags: emacs-load
# SPDX-FileCopyrightText: 2022 Richard Brežák <richard@brezak.sk>
#
# SPDX-License-Identifier: LGPL-3.0-or-later
Email is a complicated beast, I decided to use *mu4e* and *mbsync*.
* smtpmail
#+BEGIN_SRC emacs-lisp :results none
(require 'smtpmail)
(with-eval-after-load 'smtpmail
(setq smtpmail-debug-info t
message-send-mail-function 'smtpmail-send-it
smtpmail-stream-type 'starttls))
#+END_SRC
* mu4e
:PROPERTIES:
:ID: 9958efaf-51b2-4cee-bf37-c363d1c56055
:END:
#+BEGIN_SRC emacs-lisp :results none
(let*
((mu-path
(file-name-directory (directory-file-name (file-name-directory (executable-find "mu")))))
(mu-load-path (concat mu-path "share/emacs/site-lisp/mu4e/")))
(add-to-list 'load-path mu-load-path))
(require 'mu4e)
(setq auth-sources '((:source "~/.password-store/.authinfo.gpg")))
(setq auth-source-debug t)
(with-eval-after-load 'mu4e
(setq mu4e-get-mail-command "mbsync -a"
mu4e-update-interval 300
message-kill-buffer-on-exit t)
(defun magic_rb/eval-file (file)
"Execute FILE and return the result of the last expression."
(eval
(ignore-errors
(read-from-whole-string
(with-temp-buffer
(insert-file-contents file)
(buffer-string))))))
(setq mu4e-contexts (magic_rb/eval-file "~/.emacs.d/mu4e-contexts")
;; When Emacs is loading, mu4e will ask for which context to use. Set a default.
mu4e-context-policy 'pick-first)
(add-hook 'after-init-hook (lambda () (mu4e t))))
#+END_SRC
By default, when mu4e is asking for messages (be it unread or inbox) it'll ask for related as well, which means if you have a very long thread in your emails, say 100 message long, then that thread will eat up a 100 message spots in the 500 fetched from the mailbox, that is quite annoying. Change the behavior.
#+begin_src emacs-lisp
(setq mu4e-headers-include-related nil)
#+end_src
* mu4e-alert
#+BEGIN_SRC emacs-lisp
(use-package mu4e-alert
:straight t
:after mu4e
:config
(mu4e-alert-set-default-style 'notifications)
(mu4e-alert-enable-mode-line-display)
(mu4e-alert-enable-notifications))
#+END_SRC