dotfiles/emacs-lisp/email.org

Email

• smtpmail
• mu4e
• mu4e meow
• mu4e-alert

#

Email is a complicated beast, I decided to use mu4e and mbsync.

smtpmail

  (require 'smtpmail)

  (with-eval-after-load 'smtpmail
    (setq smtpmail-debug-info        t
          message-send-mail-function 'smtpmail-send-it
          smtpmail-stream-type       'starttls))

mu4e

  (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))))

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.

  (setq mu4e-headers-include-related nil)

When in the main screen, it is undesirable to quit mu4e completely as that stops the background email fetching. Make the default behaviour to just close the buffer.

  (bind-key "q" #'meow-quit mu4e-main-mode-map)

mu4e meow

Use meow motion state in mu4e-view-mode.

  (use-package mu4e-meow
    :no-require t
    :after (mu4e meow)
    :config
    (add-to-list 'meow-mode-state-list '(mu4e-view-mode . motion)))

mu4e-alert

  (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))