Update rmail configuration

1 files changed, 9 insertions, 10 deletions

diff --git a/emacs/init.el b/emacs/init.el
index db85235..6e6408f 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -611,30 +611,29 @@ With prefix argument TIME, also add the current time."
 ;;; Email
 
 ;; I keep coming back to rmail, despite its many, many warts.
+;; Currently i fetch mail into Spool.mbox with fdm, then rmail moves it into Inbox.mbox.
 (use-package rmail
+  :commands (rmail)
   :custom
-  (rmail-primary-inbox-list
-   (directory-files "~/Documents/Library/Mail/inbox" t "^[^\.]"))
-  (rmail-file-name "~/Documents/Library/Mail/rmail.mbox")
+  (rmail-primary-inbox-list '("~/Documents/Library/Mail.new/Spool.mbox"))
+  (rmail-file-name "~/Documents/Library/Mail.new/Inbox.mbox")
   (rmail-user-mail-address-regexp
    (rx "noa@noa.pub"))
   (rmail-mime-prefer-html nil)
   (rmail-mime-attachment-dirs-alist '(("" "~/media")))
   (rmail-displayed-headers
    (rx bol (or "To" "Cc" "From" "Date" "Subject") ":"))
-  (rmail-secondary-file-directory "~/Documents/Library/Mail/archive/")
-  (rmail-secondary-file-regexp "\\.mbox\\'")
   (rmail-delete-after-output t)
-  (rmail-default-file "~/Documents/Library/Mail/archive/")
+  (rmail-default-file "~/Documents/Library/Mail/Archive.mbox")
   (mail-dont-reply-to-names rmail-user-mail-address-regexp)
 
   (rmail-display-summary nil)
-  (rmail-redisplay-redisplay-summary t)
+  (rmail-redisplay-summary t)
   (rmail-summary-line-count-flag nil)
-  (rmail-summary-window-size 12)
 
-  :hook
-  ((rmail-show-message . visual-line-fill-column-mode)))
+  ;; :hook
+  ;; ((rmail-show-message . visual-line-fill-column-mode))
+  )
 
 (use-package message
   :defer t