email: Add personal headers to outgoing email.

1 files changed, 8 insertions, 0 deletions

diff --git a/init.org b/init.org
index b0066c9..097a33d 100644
--- a/init.org
+++ b/init.org
@@ -1149,6 +1149,14 @@ TODO: this is a big blob of email configuration.  Document this properly!
                                    (mu4e-message-field msg :body-txt))))
         (mml-secure-message-sign-encrypt)))))
 
+ (add-hook 'mu4e-compose-mode-hook
+   (defun my/mu4e-add-headers ()
+     "Add some personal headers."
+     (save-excursion
+       (message-add-header "X-URL: https://elephly.net\n")
+       (message-add-header "X-PGP-Key: https://elephly.net/rekado.pubkey\n")
+       (message-add-header "X-PGP-Fingerprint: BCA6 89B6 3655 3801 C3C6  2150 197A 5888 235F ACAC"))))
+
 ;; Don't open a new window to show the results of signature validation
 (setq epa-popup-info-window nil)