mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

message: Comment that GitHub fix does not work

master
Pierre Neidhardt 2019-03-18 18:50:47 +01:00
parent b1ff0a417c
commit 7f7599c685
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.emacs.d/lisp/init-message.el
View File

@ -62,12 +62,12 @@ systematically send encrypted emails when possible."
(add-hook 'message-send-hook #'message-sign-encrypt-if-all-keys-trusted)
;; Fix replying to GitHub. TODO: Test!
;; Fix replying to GitHub. TODO: Does not work.
(defun ambrevar/message-alter-bogus-github-recipients (addrcell)
"Discard @reply.github.com mail addresses.
ADDRCELL is a cons cell where the car is the mail address and the
cdr is the complete address (full name and mail address)."
(unless (string-match (rx "@reply.github.com" string-end)
(unless (string-match (rx "@noreply.github.com" string-end)
(cdr addrcell))
addrcell))
(setq message-alter-recipients-function 'ambrevar/message-alter-bogus-github-recipients)