/[emacs]/emacs/lisp/mail/rmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.398 by eliz, Sat Apr 2 11:31:06 2005 UTC revision 1.399 by rms, Sun Apr 17 15:55:50 2005 UTC
# Line 246  It is useful to set this variable in the Line 246  It is useful to set this variable in the
246    
247  ;;;###autoload  ;;;###autoload
248  (defcustom rmail-ignored-headers  (defcustom rmail-ignored-headers
249    (concat "^via:\\|^mail-from:\\|^origin:\\|^references:"    (concat "^via:\\|^mail-from:\\|^origin:\\|^references:\\|^sender:"
250            "\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:"            "\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:"
251            "\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:"            "\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:"
252            "\\|^\\(resent-\\|\\)message-id:\\|^summary-line:\\|^resent-date:"            "\\|^\\(resent-\\|\\)message-id:\\|^summary-line:\\|^resent-date:"
# Line 254  It is useful to set this variable in the Line 254  It is useful to set this variable in the
254            "\\|^x-mailer:\\|^delivered-to:\\|^lines:\\|^mime-version:"            "\\|^x-mailer:\\|^delivered-to:\\|^lines:\\|^mime-version:"
255            "\\|^content-transfer-encoding:\\|^x-coding-system:"            "\\|^content-transfer-encoding:\\|^x-coding-system:"
256            "\\|^return-path:\\|^errors-to:\\|^return-receipt-to:"            "\\|^return-path:\\|^errors-to:\\|^return-receipt-to:"
257            "\\|^x-sign:\\|^x-beenthere:\\|^x-mailman-version:"            "\\|^x-sign:\\|^x-beenthere:\\|^x-mailman-version:\\|^x-mailman-copy:"
258            "\\|^precedence:\\|^list-help:\\|^list-post:\\|^list-subscribe:"            "\\|^precedence:\\|^list-help:\\|^list-post:\\|^list-subscribe:"
259            "\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:"            "\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:"
260            "\\|^content-type:\\|^content-length:"            "\\|^content-type:\\|^content-length:"
261            "\\|^x-attribution:\\|^x-disclaimer:\\|^x-trace:"            "\\|^x-attribution:\\|^x-disclaimer:\\|^x-trace:"
262            "\\|^x-complaints-to:\\|^nntp-posting-date:\\|^user-agent"            "\\|^x-complaints-to:\\|^nntp-posting-date:\\|^user-agent"
263            "\\|^importance:\\|^envelope-to:\\|^delivery-date"            "\\|^importance:\\|^envelope-to:\\|^delivery-date"
264            "\\|^x.*-priority:\\|^x-mimeole:")            "\\|^x.*-priority:\\|^x-mimeole:\\|^x-archive:"
265              "\\|^resent-face:\\|^resent-x.*:\\|^resent-organization\\|^resent-openpgp"
266              "\\|^openpgp:\\|^x-request-pgp:\\|^x-original.*:"
267              "\\|^x-virus-scanned:\\|^x-spam-[^s].*:")
268    "*Regexp to match header fields that Rmail should normally hide.    "*Regexp to match header fields that Rmail should normally hide.
269  This variable is used for reformatting the message header,  This variable is used for reformatting the message header,
270  which normally happens once for each message,  which normally happens once for each message,
# Line 653  The first parenthesized expression shoul Line 656  The first parenthesized expression shoul
656                . font-lock-function-name-face)                . font-lock-function-name-face)
657              '("^Reply-To:.*$" . font-lock-function-name-face)              '("^Reply-To:.*$" . font-lock-function-name-face)
658              '("^Subject:" . font-lock-comment-face)              '("^Subject:" . font-lock-comment-face)
659                '("^X-Spam-Status:" . font-lock-keyword-face)
660              '("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):"              '("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):"
661                . font-lock-keyword-face)                . font-lock-keyword-face)
662              ;; Use MATCH-ANCHORED to effectively anchor the regexp left side.              ;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
# Line 662  The first parenthesized expression shoul Line 666  The first parenthesized expression shoul
666                          "\\(" cite-chars "[ \t]*\\)\\)+"                          "\\(" cite-chars "[ \t]*\\)\\)+"
667                          "\\(.*\\)")                          "\\(.*\\)")
668                 (beginning-of-line) (end-of-line)                 (beginning-of-line) (end-of-line)
669                 (2 font-lock-constant-face nil t)                 (3 font-lock-comment-face nil t)))
                (4 font-lock-comment-face nil t)))  
670              '("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$"              '("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$"
671                . font-lock-string-face))))                . font-lock-string-face))))
672    "Additional expressions to highlight in Rmail mode.")    "Additional expressions to highlight in Rmail mode.")

Legend:
Removed from v.1.398  
changed lines
  Added in v.1.399

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26