dotfiles/emacs-lisp/email.org

: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
  (add-to-list 'load-path (concat user-emacs-directory "profile/share/emacs/site-lisp/mu4e"))
  (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       "usbs=$(for dev in /sys/bus/usb/devices/* ; do [ -f ${dev}/idVendor ] && [ -f ${dev}/idProduct ] && ( env cat ${dev}/idVendor | tr -d [:space:] ; printf : ; env cat ${dev}/idProduct ); done) ; yubi=0 ; for usb in $usbs ; do [ $usb = \"1050:0407\" ] && yubi=1 ; done ; [ $yubi = 1 ] && mbsync -a || exit 1"
           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