From 1a3d7a4c5559c4b15a81aa1a816b5ceea74a6ea4 Mon Sep 17 00:00:00 2001
From: Matt Nish-Lapidus <matt@emenel.ca>
Date: Wed, 26 Mar 2025 16:56:37 -0400
Subject: [PATCH] minor

---
 bindings.el    |  1 +
 mu4e-config.el | 25 ++++++++++++++++++++-----
 2 files changed, 21 insertions(+), 5 deletions(-)

diff --git a/bindings.el b/bindings.el
index 256774a..7f860d6 100644
--- a/bindings.el
+++ b/bindings.el
@@ -427,6 +427,7 @@
 
 (map! :map mu4e-compose-mode-map
       :localleader
+      :desc "Reply to open message" "r" #'mu4e-compose-from-view
       :desc "Send message and exit" "s" #'message-send-and-exit)
 
 ;; make esc close completion from corfu
diff --git a/mu4e-config.el b/mu4e-config.el
index 0fda0af..e5dee3b 100644
--- a/mu4e-config.el
+++ b/mu4e-config.el
@@ -28,6 +28,17 @@
     (smtpmail-local-domain . "fastmail.com"))
   t)
 
+(defun supersede-or-compose-reply-ask-wide ()
+  "Supersede own messages or ask whether to reply-to-all."
+  (interactive)
+  (if (mu4e-message-contact-field-matches-me (mu4e-message-at-point) :from)
+      (mu4e-compose-supersede)
+    (let ((tos (length (mu4e-message-field-at-point :to)))
+          (ccs (length (mu4e-message-field-at-point :cc))))
+      (mu4e-compose-reply
+       (and (> (+ tos ccs) 1)
+            (yes-or-no-p "Reply to all?"))))))
+
 (defun message-insert-signature-at-point ()
   "Insert signature at point."
   (interactive)
@@ -38,6 +49,13 @@
     (newline))
   (setq message-signature nil))
 
+(defun mu4e-compose-from-view (&optional args)
+  (print args)
+  (kill-this-buffer))
+;;TODO close view window and open compose window in place
+;;
+
+
 (defun mu4e-view-save-all-attachments (&optional arg)
   "Save all MIME parts from currsent mu4e gnus view buffer."
   ;; Copied from mu4e-view-save-attachments
@@ -157,8 +175,8 @@
   (setq message-signature nil)
 
   (add-hook! 'mu4e-compose-mode-hook
+    (ws-butler-mode -1)
     (use-hard-newlines -1)
-    ;; (message-add-header "CC:")
     (message-goto-body)
     (message-insert-signature-at-point)
     (message-goto-body))
@@ -223,7 +241,4 @@
           (:maildir "/admin@studyoftime.org/Sent" :key ?8 :name "Sent/admin@studyoftime.org")
           (:maildir "/admin@studyoftime.org/Spam" :key ?9 :name "Spam/admin@studyoftime.org")))
 
-  (setq mu4e-alert-email-notification-types '(count))
-
-  (add-hook! mu4e-compose-mode
-    (ws-butler-mode -1)))
+  (setq mu4e-alert-email-notification-types '(count)))