From 4dbb45a9719394c9f17dbc1c2758bfd3459835b9 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 1 Nov 2025 15:13:11 +0000 Subject: notmuch activation in mac --- custom/jao-custom-email.el | 4 ++-- custom/jao-custom-notmuch.el | 2 +- lib/net/jao-notmuch.el | 4 ++-- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/custom/jao-custom-email.el b/custom/jao-custom-email.el index 2e886ff..aba3e21 100644 --- a/custom/jao-custom-email.el +++ b/custom/jao-custom-email.el @@ -2,7 +2,7 @@ ;;; main email system (require 'jao-afio) -(setq jao-afio-mail-function (jao-d-l 'gnus 'notmuch)) +(setq jao-afio-mail-function (jao-d-l 'notmuch 'notmuch)) (defvar jao-notmuch-enabled (eq jao-afio-mail-function 'notmuch)) @@ -10,7 +10,7 @@ (defvar jao-mails) (defvar jao-extra-mails nil) (defvar jao-mails-regexp (regexp-opt jao-mails)) -(defvar jao-maildir (jao-d-l "~/Documents/mail" "~/var/mail")) +(defvar jao-maildir (jao-d-l "~/Mail" "~/var/mail")) ;;; gnus (setq gnus-init-file "~/.emacs.d/gnus.el" gnus-home-directory "~/.emacs.d/gnus" diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index 1297284..96631fb 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -125,7 +125,7 @@ (jao-notmuch-def-searches prog (append (mapcar #'jao-notmuch--sq '("lobsters" "clojure" "lisp" "scheme" - "haskell" "idris" "erlang" "pharo")) + "haskell" "idris" "erlang" "pharo" "rust")) `(,(jao-notmuch--qn "feeds" "prog" "fp" '("tag:prog" "not tag:\"/emacs/\""))))) diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 75ee027..2471dc7 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -362,8 +362,8 @@ (defun jao-notmuch-mua--inherited-fcc () (let* ((fn (notmuch-show-get-filename)) - (dest (and (string-match ".*/var/mail/\\(.+?\\)/.+" fn) - (match-string 1 fn))) + (dest (and (string-match ".*/\\(var/mail\\|Mail\\)/\\(.+?\\)/.+" fn) + (match-string 2 fn))) (tags (seq-difference (notmuch-show-get-tags) '("attachment" "sent" "new" "flagged"))) (tagstr (mapconcat (lambda (s) (concat "+" s)) tags " ")) -- cgit v1.2.3