dotfiles

config files and scripts at HOME.
git clone git://git.ricketyspace.net/dotfiles.git
Log | Files | Refs

commit cd6efc39dcb5a4a1e07f52e0e7b48a25ff0f29b3
parent 091332bd4b0618e0dd52d6779fcb88bbf74cd4a0
Author: rsiddharth <s@ricketyspace.net>
Date:   Sat, 24 Feb 2018 02:36:58 +0000

.gnus.el: Remove mail header tampering.

Diffstat:
.gnus.el | 19-------------------
1 file changed, 0 insertions(+), 19 deletions(-)

diff --git a/.gnus.el b/.gnus.el @@ -110,25 +110,6 @@ be 587. (add-hook 'message-send-hook 'rsd/gnus/gpg-setup) -;; headers -(defun rsd/ignored-mail-headers () - "Return regex for headers to be ignored before sending message. - -This function adds 'User-Agent' to the existing regex stored at -`message-ignored-mail-headers'. -" - (let* ((ignored message-ignored-mail-headers) - (ignored-start (substring ignored 0 -3)) - (ignored-end (substring ignored -3))) - (concat ignored-start "\\|User-Agent" ignored-end))) - -;; remove the vanity header for outgoing messages. -(setq message-ignored-mail-headers (rsd/ignored-mail-headers)) - -;; duh, add the vanity header when reading messages. -(require 'gnus-art) -(setq gnus-visible-headers (concat gnus-visible-headers "\\|^User-Agent:")) - ;; reading emails (with-eval-after-load 'mm-decode (add-to-list 'mm-discouraged-alternatives "text/html")