(rmail-ignored-headers): Add X-Sign, X-BeenThere,

X-Mailman-Version, Precedence, List-Help, List-Post,
List-Subscribe, List-Id, List-Unsubscribe, List-Archive,
Content-Type, Content-Length.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e4f1ae7e3311073c18650e04ef351f666a4ac28..1b1087d4a517f3dea702b187c37a3326c140b102 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-01-29  Gerd Moellmann  <gerd@gnu.org>
+
+       * mail/rmail.el (rmail-ignored-headers): Add X-Sign, X-BeenThere,
+       X-Mailman-Version, Precedence, List-Help, List-Post,
+       List-Subscribe, List-Id, List-Unsubscribe, List-Archive,
+       Content-Type, Content-Length.
+
 2001-01-28  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * isearch.el (isearch-highlight): Don't punt if the display

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 74e1f41abd0dd6be0a23da9acfc1ccd4504abdc8..afbea71a9b350a775b67d261fe720948d7708011 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1,6 +1,6 @@
 ;;; rmail.el --- main code of "RMAIL" mail reader for Emacs.
 
-;; Copyright (C) 1985,86,87,88,93,94,95,96,97,98,2000
+;; Copyright (C) 1985,86,87,88,93,94,95,96,97,98,2000, 2001
 ;;             Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -139,7 +139,20 @@ value is the user's name.)
 It is useful to set this variable in the site customization file.")
 
 ;;;###autoload
-(defcustom rmail-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^references:\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:\\|^\\(resent-\\|\\)message-id:\\|^summary-line:\\|^resent-date:\\|^nntp-posting-host:\\|^path:\\|^x-char.*:\\|^x-face:\\|^x-mailer:\\|^delivered-to:\\|^lines:\\|^mime-version:\\|^content-transfer-encoding:\\|^x-coding-system:\\|^return-path:\\|^errors-to:\\|^return-receipt-to:\\|^x-attribution:\\|^x-disclaimer:"
+(defcustom rmail-ignored-headers
+  (concat "^via:\\|^mail-from:\\|^origin:\\|^references:"
+         "\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:"
+         "\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:"
+         "\\|^\\(resent-\\|\\)message-id:\\|^summary-line:\\|^resent-date:"
+         "\\|^nntp-posting-host:\\|^path:\\|^x-char.*:\\|^x-face:"
+         "\\|^x-mailer:\\|^delivered-to:\\|^lines:\\|^mime-version:"
+         "\\|^content-transfer-encoding:\\|^x-coding-system:"
+         "\\|^return-path:\\|^errors-to:\\|^return-receipt-to:"
+         "\\|^x-sign:\\|^x-beenthere:\\|^x-mailman-version:"
+         "\\|^precedence:\\|^list-help:\\|^list-post:\\|^list-subscribe:"
+         "\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:"
+         "\\|^content-type:\\|^content-length:"
+         "\\|^x-attribution:\\|^x-disclaimer:")
   "*Regexp to match header fields that Rmail should normally hide.
 This variable is used for reformatting the message header,
 which normally happens once for each message,