• 曇っていて気温が低い。
  • オムレツ。
  • 昼は焼きそば。
  • 先日購入した仏壇が到着する。四十九日が終わっていないから、まだ拝むものではないらしい。
  • 妻は娘宅へ。
  • 夕食は鶏もも肉の白ワイン煮。オリーブやニンニクが効いてうまい。

  • 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") ;未読メールを表示する
  )