# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773002637 0
# Node ID d9c6c2429f85a12eb3efe4f9f5c55ba384e6b140
# Parent  1978838b7b6f082bafa05a8d74bacf547b36d28e
(rmail-highlight-headers): Do nothing if
rmail-highlighted-headers is nil.

diff -r 1978838b7b6f -r d9c6c2429f85 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Thu Jun 30 06:46:44 1994 +0000
+++ b/lisp/mail/rmail.el	Thu Jun 30 18:57:17 1994 +0000
@@ -69,7 +69,8 @@
 
 ;;;###autoload
 (defvar rmail-highlighted-headers "^From:\\|^Subject:" "\
-*Regexp to match Header fields that rmail should normally highlight.")
+*Regexp to match Header fields that rmail should normally highlight.
+A value of nil means don't highlight.")
 
 ;;;###autoload
 (defvar rmail-delete-after-output nil "\
@@ -1404,7 +1405,8 @@
 ;; Find all occurrences of certain fields, and highlight them.
 (defun rmail-highlight-headers ()
   ;; Do this only if the system supports faces.
-  (if (fboundp 'internal-find-face)
+  (if (and (fboundp 'internal-find-face)
+	   rmail-highlighted-headers)
       (save-excursion
 	(search-forward "\n\n" nil 'move)
 	(save-restriction