日記

October 25, 2024 (Fri)

October 24, 2024 (Thu)

October 23, 2024 (Wed)

October 22, 2024 (Tue)

October 21, 2024 (Mon)

October 20, 2024 (Sun)

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

October 19, 2024 (Sat)