diff options
author | jao <jao@gnu.org> | 2022-02-27 20:26:18 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-02-27 20:26:18 +0000 |
commit | ef74b59a8642e73b7fa15bc4003b6a45dd8265d0 (patch) | |
tree | 42b150b1fd274d9cc7ee706e961aab0076aa98e6 /email.org | |
parent | a0c179f036e923007dda13f19a92c8c025e7badc (diff) | |
download | elibs-ef74b59a8642e73b7fa15bc4003b6a45dd8265d0.tar.gz elibs-ef74b59a8642e73b7fa15bc4003b6a45dd8265d0.tar.bz2 |
gnus is a cat
Diffstat (limited to 'email.org')
-rw-r--r-- | email.org | 39 |
1 files changed, 13 insertions, 26 deletions
@@ -9,33 +9,20 @@ (defvar jao-notmuch-enabled (eq jao-afio-mail-function 'notmuch)) #+end_src * gnus -*** directories - #+begin_src emacs-lisp - (setq gnus-init-file "~/.emacs.d/gnus.el" - gnus-home-directory "~/.emacs.d/gnus" - gnus-directory gnus-home-directory - gnus-cache-directory (expand-file-name "cache" gnus-home-directory) - gnus-kill-files-directory (expand-file-name "News" gnus-home-directory) - message-directory (expand-file-name "Mail" gnus-home-directory) - mail-source-directory (expand-file-name "Mail" gnus-home-directory)) - - (when (eq jao-afio-mail-function 'gnus) - (let ((org-file (expand-file-name "gnus.org" jao-emacs-dir))) - (when (file-newer-than-file-p org-file gnus-init-file) - (org-babel-tangle-file org-file)))) + #+begin_src emacs-lisp + (setq gnus-init-file "~/.emacs.d/gnus.el" + gnus-home-directory "~/.emacs.d/gnus" + gnus-directory gnus-home-directory + gnus-cache-directory (expand-file-name "cache" gnus-home-directory) + gnus-kill-files-directory (expand-file-name "News" gnus-home-directory) + message-directory (expand-file-name "Mail" gnus-home-directory) + mail-source-directory (expand-file-name "Mail" gnus-home-directory)) + + (let ((org-file (expand-file-name "gnus.org" jao-emacs-dir))) + (when (file-newer-than-file-p org-file gnus-init-file) + (org-babel-tangle-file org-file))) - #+end_src -*** notifications - #+begin_src emacs-lisp - (defun jao-gnus-notify () - (interactive) - (when (fboundp 'jao-gnus--notify) - (unless (derived-mode-p 'gnus-summary-mode - 'gnus-article-mode - 'gnus-group-mode) - (let ((inhibit-message t)) - (gnus-demon-scan-news))))) - #+end_src + #+end_src * message mode *** Customization #+begin_src emacs-lisp |