notmuchの整備はほぼ終了。 mbsync
でメールを取ってきて、 notmuch new
でインデックスを付け、受信箱を表示するという手順を毎回やるのは面倒なので、そこを自動化する関数を書く。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; my_fetch_and_show_mail ;; (defun my_fetch_and_show_mail () "execute mbsync -a, notmuch new, and show unread messages in notmuch" (interactive) (shell-command-to-string "mbsync -a") ;メールを取ってきて (shell-command-to-string "notmuch new") ;tagを付けて ;; (message "%s" (shell-command-to-string "notmuch count tag:unread")) ;未読数をミニバッファに表示 (notmuch-search "tag:unread") ;未読メールを表示する )