Last modified: 2024-10-21 20:38:57 (Asia/Tokyo)

Monday, 21st of October 2024

Sunday, 20th of October 2024

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; my/mailcheck.el
;;
(defun my/mailcheck ()
  "show unread mails if any"
  (interactive)
  (shell-command-to-string "mbsync sakura")
  (shell-command-to-string "notmuch new")
  (setq mails (substring (shell-command-to-string "notmuch count tag:unread") 0 -1))
  (if (equal "0" mails)
      (message "No mail")
    (notmuch-search "tag:unread")
    (message "%s unread" mails)
    )
  )

Saturday, 19th of October 2024

Friday, 18th of October 2024

Thursday, 17th of October 2024

Wednesday, 16th of October 2024

Tuesday, 15th of October 2024