emacs/lisp/mh-e mh-e.el

[Bill W. <wo...@ne...>]

CVSROOT:	/cvsroot/emacs
Module name:	emacs
Changes by:	Bill Wohler <wohler>	08/03/18 04:17:25

Modified files:
	lisp/mh-e      : mh-e.el 

Log message:
	(mh-invisible-header-fields-internal): Add Accreditor,
	Seal-Send-Time (closes SF #1916032).
	(mh-invisible-header-fields, mh-invisible-header-fields-default):
	Update URL to bug report for users to report ignored fields.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-e.el?cvsroot=emacs&r1=1.118&r2=1.119

Patches:
Index: mh-e.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-e.el,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -b -r1.118 -r1.119
--- mh-e.el	24 Feb 2008 10:09:00 -0000	1.118
+++ mh-e.el	18 Mar 2008 04:17:24 -0000	1.119
@@ -2392,6 +2392,7 @@
 (defvar mh-invisible-header-fields-internal
   '(
     "Abuse-Reports-To:"                 ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
+    "Accreditor:"                       ; Habeas
     "Also-Control:"                     ; H. Spencer: News Article Format and Transmission, June 1994
     "Alternate-recipient:"              ; RFC 2156
     "Approved-By:"                      ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
@@ -2488,6 +2489,7 @@
     "Return-Receipt-Requested:"         ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
     "Return-Receipt-To:"                ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
     "See-Also:"                         ; H. Spencer: News Article Format and Transmission, June 1994
+    "Seal-Send-Time:"
     "Sensitivity:"                      ; RFC 2156, 2421
     "Speach-Act:"                       ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
     "Status:"                           ; sendmail
@@ -2685,9 +2687,11 @@
 with a couple of caveats. Regular expressions are not allowed.
 Unique fields should have a \":\" suffix; otherwise, the element
 can be used to render invisible an entire class of fields that
-start with the same prefix. If you think a header field should be
-generally ignored, report a bug (see URL
-`https://sourceforge.net/tracker/?group_id=13357&atid=113357').
+start with the same prefix.
+
+If you think a header field should be generally ignored, please
+update SF #1916032 (see URL
+`https://sourceforge.net/tracker/index.php?func=detail&aid=1916032&group_id=13357&atid=113357').
 
 See also `mh-clean-message-header-flag'."
 
@@ -2707,7 +2711,11 @@
 Header fields that you would like to hide that aren't listed can
 be added to the option `mh-invisible-header-fields'.
 
-See also `mh-clean-message-header-flag'."
+See also `mh-clean-message-header-flag'.
+
+If you think a header field should be added to this list, please
+update SF #1916032 (see URL
+`https://sourceforge.net/tracker/index.php?func=detail&aid=1916032&group_id=13357&atid=113357')."
   :type `(set ,@(mapcar (lambda (x) `(const ,x))
                         mh-invisible-header-fields-internal))
   :set (lambda (symbol value)