.HEADmain

1 files changed, 47 insertions, 19 deletions

diff --git a/home/dots/.emacs b/home/dots/.emacs
index aee55ea..0d04e89 100644
--- a/home/dots/.emacs
+++ b/home/dots/.emacs
@@ -507,6 +507,17 @@
    ("p" . git-gutter:previous-hunk))
   :ensure t)
 
+;; (use-package gnus
+;;   :custom
+;;   (gnus-select-method
+;;    '(nnimap "imap.fastmail.com"
+;; 	    (nnimap-expunge t)))
+;;   (mail-sources '((file)))
+;;   (gnus-secondary-select-methods '((nnml "")))
+;;   (gnus-asynchronous t)
+;;   (gnus-use-article-prefetch t)
+;;   (gnus-agent t))
+
 
 (use-package git-gutter-fringe
   :ensure t)
@@ -882,8 +893,9 @@
   (org-tags-column 0)
   (org-pretty-entities t)
   (org-todo-keywords
-           '((sequence "TODO(t)" "|" "DONE(d)")
-             (sequence "UNREAD(u)" "READING(e)" "|" "READ(r)")))
+   '((sequence "TODO(t)" "|" "DONE(d)")
+     (sequence "UNREAD(u)" "READING(e)" "|" "READ(r)")
+     (sequence "|" "CANCELED(c)")))
   (org-agenda-custom-commands
    '(("t" todo "TODO")
      ("p" tags-todo "+piva")))
@@ -969,7 +981,7 @@
       :empty-lines 1)
      ("g" "Log Coffee"
       entry (file+headline "~/personal-db/notes/notes.org" "Log")
-      "* Brewed pour-over :coffee:cyprus:paramytha:\n:PROPERTIES:\n:WATER: 320g\n:COFFEE: 25g\n:TYPE: [[id:815450d3-d772-4207-9eb4-e1e185fd8356][La Pastora]] | [[id:9d136656-2965-4be9-87cf-4ecafcf62707][Alemayehu]]\n:TEMP: 90\n:RATING:\n:PREHEAT: YES\n:TOTALBREWTIME:\n:END:\n%T\n*** Observations "
+      "* Brewed pour-over :coffee:cyprus:paramytha:\n:PROPERTIES:\n:WATER: 320g\n:COFFEE: 25g\n:TYPE: [[id:815450d3-d772-4207-9eb4-e1e185fd8356][La Pastora]]  | [[id:9d136656-2965-4be9-87cf-4ecafcf62707][Alemayehu]] | [[id:73a92627-f076-4090-a78c-ef8204191611][Los Chorros]]\n:TEMP: 90\n:RATING:\n:PREHEAT: YES\n:TOTALBREWTIME:\n:END:\n%T\n*** Observations "
       :empty-lines 0
       :prepend t)
      ("r" "Reference"
@@ -1045,7 +1057,7 @@
       :body msg
       :urgency 'critical)))
   :config
-   (define-advice appt-activate (:after (&optional _arg) hold-your-horses)
+  (define-advice appt-activate (:after (&optional _arg) hold-your-horses)
     "`appt-activate' is too eager, rein it in."
     (remove-hook 'write-file-functions #'appt-update-list)
     (when (timerp appt-timer)
@@ -1106,34 +1118,50 @@
                ((string-match "marc@mccd.space" from) "home"))))
           (setq message-sendmail-extra-arguments (list '"-a" account))))))
 
+(use-package message
+  :custom
+  (message-expand-name-standard-ui t)
+  (message-wide-reply-confirm-recipients t)
+  (message-interactive t)
+  (message-fcc-handler-function 'rmail-output)
+  (message-citation-line-function 'message-insert-formatted-citation-line)
+  (message-mail-alias-type 'ecomplete)
+  (message-self-insert-commands nil)
+  (message-send-mail-function 'sendmail-send-it)
+  (message-kill-buffer-on-exit t)
+  (message-sendmail-envelope-from 'header))
+
 (use-package sendmail
   :defer t
   :hook
   (message-send-mail . marc/set-msmtp-account)
   (message-send-mail . flyspell-mode)
-  (message-setup-hook . mail-abbrevs-setup)
+  (message-setup . mail-abbrevs-setup)
   :custom
-  (message-kill-buffer-on-exit t)
+
   (send-mail-function 'sendmail-send-it)
   (sendmail-program (executable-find "msmtp"))
-  (message-sendmail-envelope-from 'header)
-  (message-mail-alias-type 'ecomplete)
-  (message-fcc-handler-function 'rmail-output)
-  (message-interactive t)
-  (message-wide-reply-confirm-recipients t)
-  (mail-user-agent 'message-user-agent)
-  (message-self-insert-commands nil)
-  (message-expand-name-standard-ui t)
-  (message-send-mail-function 'sendmail-send-it))
+  (mail-user-agent 'message-user-agent))
+
+
+(defun rmail-reply-t ()
+  "Reply only to the sender of the current message. (See rmail-reply.)"
+  (interactive)
+  (rmail-reply t))
+
 
 (use-package rmail
+  :init
+  (defvar selected-rmail-account "")
   :bind
-  (("C-c m" . rmail-open))
+  (("C-c m" . rmail-open)
+   :map rmail-mode-map
+   ("r" . rmail-reply-t)
+   ("R" . rmail-reply))
   :config
-  (defvar selected-rmail-account "")
   (defun rmail-no-check ()
-      (interactive)
-      (rmail-input rmail-file-name))
+    (interactive)
+    (rmail-input rmail-file-name))
   
   (defun mail-work ()
     (interactive)