mail: do not fail if mail profile is unavailable

This commit is contained in:
Pavel Korytov 2024-01-18 02:43:43 +03:00
parent dcfe763093
commit 6562efaebb
2 changed files with 8 additions and 7 deletions

View file

@ -1,8 +1,10 @@
(setq user-mail-address "thexcloud@gmail.com")
(setq user-full-name "Pavel Korytov")
(let ((default-directory "/home/pavel/.guix-extra-profiles/mail/mail/share/emacs/site-lisp"))
(normal-top-level-add-subdirs-to-load-path))
(let ((dir "/home/pavel/.guix-extra-profiles/mail/mail/share/emacs/site-lisp"))
(when (file-directory-p dir)
(let ((default-directory dir))
(normal-top-level-add-subdirs-to-load-path))))
(defun my/notmuch-toggle-trash ()
(interactive)

View file

@ -85,9 +85,6 @@ I would use =password-store-get= from password-store.el, but I want this to be a
pass show Job/Digital/Email/pvkorytov@etu.ru | sed -n 's/username: //;2p'
#+end_src
#+RESULTS: mail-username
: pvkorytov
#+NAME: mail-password
#+begin_src bash
pass show Job/Digital/Email/pvkorytov@etu.ru | head -n 1
@ -379,8 +376,10 @@ Finally, Emacs configuration. Let's start with some variables:
Then, the problem with my Guix setup is that Emacs by default doesn't see the elisp files of notmuch, so here is a small workaround:
#+begin_src emacs-lisp
(let ((default-directory "/home/pavel/.guix-extra-profiles/mail/mail/share/emacs/site-lisp"))
(normal-top-level-add-subdirs-to-load-path))
(let ((dir "/home/pavel/.guix-extra-profiles/mail/mail/share/emacs/site-lisp"))
(when (file-directory-p dir)
(let ((default-directory dir))
(normal-top-level-add-subdirs-to-load-path))))
#+end_src
Some functions to toggle tags: