emenel/dot-doom
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

minor

Browse source
This commit is contained in:
Matt Nish-Lapidus 2025-03-26 16:56:37 -04:00
parent c25d932193
commit 1a3d7a4c55
2 changed files with 21 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

1
bindings.el
View file

@ -427,6 +427,7 @@
(map! :map mu4e-compose-mode-map (map! :map mu4e-compose-mode-map
:localleader :localleader
:desc "Reply to open message" "r" #'mu4e-compose-from-view
:desc "Send message and exit" "s" #'message-send-and-exit) :desc "Send message and exit" "s" #'message-send-and-exit)
;; make esc close completion from corfu ;; make esc close completion from corfu

25
mu4e-config.el
View file

@ -28,6 +28,17 @@
(smtpmail-local-domain . "fastmail.com")) (smtpmail-local-domain . "fastmail.com"))
t) 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 () (defun message-insert-signature-at-point ()
"Insert signature at point." "Insert signature at point."
(interactive) (interactive)
@ -38,6 +49,13 @@
(newline)) (newline))
(setq message-signature nil)) (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) (defun mu4e-view-save-all-attachments (&optional arg)
"Save all MIME parts from currsent mu4e gnus view buffer." "Save all MIME parts from currsent mu4e gnus view buffer."
;; Copied from mu4e-view-save-attachments ;; Copied from mu4e-view-save-attachments
@ -157,8 +175,8 @@
(setq message-signature nil) (setq message-signature nil)
(add-hook! 'mu4e-compose-mode-hook (add-hook! 'mu4e-compose-mode-hook
(ws-butler-mode -1)
(use-hard-newlines -1) (use-hard-newlines -1)
;; (message-add-header "CC:")
(message-goto-body) (message-goto-body)
(message-insert-signature-at-point) (message-insert-signature-at-point)
(message-goto-body)) (message-goto-body))
@ -223,7 +241,4 @@
(:maildir "/admin@studyoftime.org/Sent" :key ?8 :name "Sent/admin@studyoftime.org") (:maildir "/admin@studyoftime.org/Sent" :key ?8 :name "Sent/admin@studyoftime.org")
(:maildir "/admin@studyoftime.org/Spam" :key ?9 :name "Spam/admin@studyoftime.org"))) (:maildir "/admin@studyoftime.org/Spam" :key ?9 :name "Spam/admin@studyoftime.org")))
(setq mu4e-alert-email-notification-types '(count)) (setq mu4e-alert-email-notification-types '(count)))
(add-hook! mu4e-compose-mode
(ws-butler-mode -1)))