diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-26 19:45:53 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-26 19:47:48 +0200 |
| commit | 5a5e4eb76a3e9bfc7d4eeec06f874b524d4df450 (patch) | |
| tree | 0d4e77f20eb150f7f74152d01c05bceb2cd75212 /lisp/gnus | |
| parent | 4ee0919abf9421e12f29e123b00e29d72daf07c0 (diff) | |
| download | emacs-5a5e4eb76a3e9bfc7d4eeec06f874b524d4df450.tar.gz | |
Strip most headers when forwarding messages
* lisp/gnus/message.el (message-forward-included-headers): Change
the default to exclude most messages.
(message-remove-ignored-headers): Make
message-forward-included-headers actually work -- it's a list of
regexps, not a list of strings.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/message.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 33c5e2cedbf..867c3d271b6 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -625,11 +625,12 @@ This may also be a list of regexps." (widget-editable-list-match widget value))) regexp)) -(defcustom message-forward-included-headers nil +(defcustom message-forward-included-headers + '("^From:" "^Subject:" "^Date:") "If non-nil, delete non-matching headers when forwarding a message. Only headers that match this regexp will be included. This variable should be a regexp or a list of regexps." - :version "25.1" + :version "27.1" :group 'message-forwarding :type '(repeat :value-to-internal (lambda (widget value) (custom-split-regexp-maybe value)) @@ -7436,7 +7437,8 @@ Optional DIGEST will use digest to forward." (when message-forward-included-headers (message-remove-header (if (listp message-forward-included-headers) - (regexp-opt message-forward-included-headers) + (mapconcat #'identity (cons "^$" message-forward-included-headers) + "\\|") message-forward-included-headers) t nil t))))) |