gnus: remember to auto-tangle gnus.org when needed

2 files changed, 7 insertions, 0 deletions

diff --git a/email.org b/email.org
index 8dec9ac..48eded8 100644
--- a/email.org
+++ b/email.org
@@ -334,6 +334,12 @@
             gnus-home-directory "~/.emacs.d/gnus"
             gnus-directory 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))))
+
     #+end_src
 *** Notifications
     #+begin_src emacs-lisp
diff --git a/gnus.org b/gnus.org
index e9296da..554fece 100644
--- a/gnus.org
+++ b/gnus.org
@@ -119,6 +119,7 @@
     #+end_src
 * Search
   [[info:gnus#Searching][info:gnus#Searching]]
+
   #+begin_src emacs-lisp
     (setq gnus-search-use-parsed-queries t
           gnus-search-notmuch-raw-queries-p nil)