mu4e: when in-reply-to: is removed, remove references: too

When user removes the In-Reply-To header, also remove the (hidden)
References header when sending the message, effectively making the
message appear at the top-level.

Mention in the doc, NEWS.
This commit is contained in:
djcb
2015-11-22 12:17:36 +02:00
parent b43b701aa9
commit a2409b62ca
3 changed files with 26 additions and 5 deletions

View File

@ -264,6 +264,14 @@ Ie. either 'name <email>' or 'email')."
(add-hook 'completion-at-point-functions
'mu4e~compose-complete-contact nil t))
(defun mu4e~remove-refs-maybe ()
"Remove the References: header if the In-Reply-To header is
missing. This allows the user to effectively start a new
message-thread by removing the In-Reply-To header."
(unless (message-fetch-field "in-reply-to")
(message-remove-header "References")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar mu4e-compose-mode-map nil
"Keymap for \"*mu4e-compose*\" buffers.")
@ -303,6 +311,8 @@ Ie. either 'name <email>' or 'email')."
;; setup the fcc-stuff, if needed
(add-hook 'message-send-hook
(lambda () ;; mu4e~compose-save-before-sending
;; when in-reply-to was removed, remove references as well.
(mu4e~remove-refs-maybe)
;; for safety, always save the draft before sending
(set-buffer-modified-p t)
(save-buffer)
@ -621,6 +631,8 @@ end of the buffer."
(define-key mu4e-compose-mode-map
(vector 'remap 'end-of-buffer) 'mu4e-compose-goto-bottom)
(provide 'mu4e-compose)
;; Load mu4e completely even when this file was loaded through