From ef74b59a8642e73b7fa15bc4003b6a45dd8265d0 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 27 Feb 2022 20:26:18 +0000 Subject: gnus is a cat --- email.org | 39 +++++++++++++-------------------------- 1 file changed, 13 insertions(+), 26 deletions(-) (limited to 'email.org') diff --git a/email.org b/email.org index 6aa1c11..4048b09 100644 --- a/email.org +++ b/email.org @@ -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 -- cgit v1.2.3