diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-09-21 12:19:17 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-09-21 22:44:27 -0700 |
| commit | 0d45cef5fc5ce065c524221d51f020485ba92a50 (patch) | |
| tree | 6af667ba9add90cefa049f3a8485069c6721eee6 | |
| parent | b1b330b82a988b1edb195685361636f0e9bdd3ce (diff) | |
| download | dotfiles-0d45cef5fc5ce065c524221d51f020485ba92a50.tar.gz | |
switch to manually merging To: and Cc: for wide replies
| -rw-r--r-- | .emacs.d/init.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 203362ef..0be42448 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -2569,13 +2569,14 @@ mutt's review view, after exiting EDITOR." (advice-add 'gnus-summary-resend-message-edit :after #'spw/gnus-summary-resend-message-edit) -(defun spw/message-get-reply-headers (list) - (let ((cc (cdr (assq 'Cc list)))) - (if cc - (list (cons 'To (format "%s, %s" (cdr (assq 'To list)) cc))) - list))) -(advice-add #'message-get-reply-headers - :filter-return #'spw/message-get-reply-headers) +;; Also cf. `message-reduce-to-to-cc'. +(defun spw/message-merge-To-Cc () + (interactive) + (save-excursion + (message-replace-header + "To" (format "%s, %s" + (message-fetch-field "to") (message-fetch-field "cc"))) + (message-remove-header "Cc"))) (with-eval-after-load 'message (spw/when-library-available message-templ @@ -2589,6 +2590,7 @@ mutt's review view, after exiting EDITOR." (define-key message-mode-map [remap message-goto-body] #'spw/message-goto-body) (define-key message-mode-map "\C-c\C-s" #'message-goto-subject) + (define-key message-mode-map "\C-c\C-fm" #'spw/message-merge-To-Cc) (define-key message-mode-map [remap mml-attach-file] #'spw/message-add-attachment) |