Update email configuration

1 files changed, 16 insertions, 6 deletions

diff --git a/config.org b/config.org
index ec1054d..5866bda 100644
--- a/config.org
+++ b/config.org
@@ -1802,26 +1802,36 @@ I have experimented with lots of different methods of reading mail, both in and
 
 #+begin_src elisp
   (setopt rmail-primary-inbox-list
-	  '("mbox://~/data/mail/spool.mbox"))
+          (directory-files "~/data/mail/inbox" t "^[^\.]"))
   (setopt rmail-file-name "~/data/mail/rmail.mbox")
   (setopt rmail-user-mail-address-regexp
-	  (rx "noa@noa.pub"))
+  	  (rx "noa@noa.pub"))
   (setopt rmail-mime-prefer-html nil)
   (setopt rmail-mime-attachment-dirs-alist '(("" "~/media")))
   (setopt rmail-displayed-headers
-	  (rx bol (or "To" "Cc" "From" "Date" "Subject") ":"))
-  (setopt rmail-secondary-file-directory "~/data/mail/archive.mbox")
+  	  (rx bol (or "To" "Cc" "From" "Date" "Subject") ":"))
+  (setopt rmail-secondary-file-directory "~/data/mail/archive/")
   (setopt rmail-secondary-file-regexp "\\.mbox\\'")
   (setopt rmail-delete-after-output t)
-  (setopt rmail-default-file "~/")
+  (setopt rmail-default-file "~/data/mail/archive/")
   (setopt mail-dont-reply-to-names rmail-user-mail-address-regexp)
 
   (add-hook 'rmail-show-message-hook #'visual-line-fill-column-mode)
 
-  (setopt rmail-display-summary t)
+  (setopt rmail-display-summary nil)
   (setopt rmail-redisplay-redisplay-summary t)
   (setopt rmail-summary-line-count-flag nil)
   (setopt rmail-summary-window-size 12)
+
+  (defun noa/message-default-headers ()
+    (format "Fcc: ~/data/mail/outbox/%s.mbox"
+            (format-time-string "%Y-%m")))
+  (setopt message-default-headers #'noa/message-default-headers)
+#+end_src
+
+#+begin_src elisp
+  (setopt mairix-file-path "~/data/mail/mairix/")
+  (setopt mairix-search-file "search.mbox")
 #+end_src
 
 ** Sending mail with msmtp