diff options
| author | Thomas Schneider <qsx@chaotikum.eu> | 2022-02-18 18:12:58 +0100 |
|---|---|---|
| committer | Thomas Schneider <qsx@chaotikum.eu> | 2022-02-18 19:05:17 +0100 |
| commit | b817515621178f72be4e5c5017bd65b66e7aaa4d (patch) | |
| tree | 6c32ec58f3e8ea69881c69e609e9db3db6662628 /dot.emacs.d/init.el | |
| parent | b70cd547a7a41f29e83b6e49bfbeaebf4cb9a452 (diff) | |
Emacs/Gnus: Dynamic notmuch path configuration
Diffstat (limited to 'dot.emacs.d/init.el')
| -rw-r--r-- | dot.emacs.d/init.el | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/dot.emacs.d/init.el b/dot.emacs.d/init.el index c758232..441b922 100644 --- a/dot.emacs.d/init.el +++ b/dot.emacs.d/init.el @@ -296,25 +296,27 @@ smime-CA-directory "/etc/ssl/certs" gnus-select-method '(nntp "news.cis.dfn.de" (nntp-open-connection-function nntp-open-ssl-stream) - (nntp-port-number 563)) - nnir-notmuch-program (let ((notmuch-gnus "/home/qsx/.local/bin/notmuch-gnus")) - (if (file-executable-p notmuch-gnus) - notmuch-gnus - "notmuch"))) + (nntp-port-number 563))) (let ((maildir (cl-find-if #'file-directory-p (mapcar (lambda (x) (concat (getenv "HOME") x)) '("/.nnmaildir" "/.maildir" - "/Maildir"))))) + "/Maildir")))) + (notmuch (let ((notmuch-gnus (concat (getenv "HOME") "/.local/bin/notmuch-gnus"))) + (if (file-executable-p notmuch-gnus) + notmuch-gnus + "notmuch"))) + (notmuch-database-path (car (process-lines "notmuch" "config" "get" "database.path")))) (setq - gnus-secondary-select-methods `((nnmaildir - "mail" - (directory ,maildir) - (nnir-search-engine notmuch))) - nnir-notmuch-remove-prefix (concat maildir "/"))) - + gnus-secondary-select-methods + `((nnmaildir + "mail" + (directory ,maildir) + (gnus-search-engine gnus-search-notmuch + (program ,notmuch) + (remove-prefix ,(concat notmuch-database-path "/"))))))) (add-hook 'message-setup-hook (defun qsx-message-add-my-headers () - (message-add-header "Openpgp: id=E384009D3B54DCD321BF953295EE94A432583DB1; url=https://pgp.mit.edu/pks/lookup?op=get&search=0x95EE94A432583DB1; preference=signencrypt")))) + (message-add-header "Openpgp: id=E384009D3B54DCD321BF953295EE94A432583DB1; url=https://pgp.mit.edu/pks/lookup?op=get&search=0x95EE94A432583DB1; preference=signencrypt")))) (use-package gnus-alias :ensure t |