# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770294513 0
# Node ID 422b83beb0156d3df728e6fcb1b726e25370bc7d
# Parent  892098bdaa241055b0c49a5a3c1cd661f716e09a
(shell-font-lock-keywords): Removed regexp for commands.
(rmail-summary-font-lock-keywords): New variable.
(font-lock-set-defaults): Use it.

diff -r 892098bdaa24 -r 422b83beb015 lisp/font-lock.el
--- a/lisp/font-lock.el	Mon May 30 10:32:11 1994 +0000
+++ b/lisp/font-lock.el	Mon May 30 10:41:53 1994 +0000
@@ -662,8 +662,6 @@
 
 (defvar shell-font-lock-keywords
   (list (cons shell-prompt-pattern 'font-lock-keyword-face)
-	(list (concat shell-prompt-pattern "\\([^ \t]+\\)")
-	      1 'font-lock-function-name-face)
 	'("[ \t]\\([+-][^ \t\n]+\\)" 1 font-lock-comment-face)
 	'("^[^ \t]+:.*$" . font-lock-string-face)
 	'("^\\[[1-9][0-9]*\\]" . font-lock-string-face))
@@ -687,6 +685,11 @@
     ("^Subject: \\(.*\\)$" 1 font-lock-function-name-face))
   "Additional expressions to highlight in Rmail mode.")
 
+(defvar rmail-summary-font-lock-keywords
+  '(("^\\s *[0-9]+D.*$" . font-lock-doc-string-face)
+    ("^\\s *[0-9]+-.*$" . font-lock-keyword-face))
+  "Additional expressions to highlight in Rmail Summary mode.")
+
 (defvar compilation-mode-font-lock-keywords
   '(("^\\([^\n:]*:\\([0-9]+:\\)+\\)\\(.*\\)$" 1 font-lock-function-name-face))
 ;;;  ("^\\([^\n:]*:\\([0-9]+:\\)+\\)\\(.*\\)$" 0 font-lock-keyword-face keep)
@@ -709,6 +712,8 @@
 		  ((eq major-mode 'shell-mode)      shell-font-lock-keywords)
 		  ((eq major-mode 'dired-mode)      dired-font-lock-keywords)
 		  ((eq major-mode 'rmail-mode)      rmail-font-lock-keywords)
+		  ((eq major-mode 'rmail-summary-mode)
+		   rmail-summary-font-lock-keywords)
 		  ((eq major-mode 'compilation-mode)
 		   compilation-mode-font-lock-keywords)
 		  (t nil)))))