minor

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

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)))