# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 973988786 0
# Node ID 49906cfa5179e9fa9c3c0250d08ebbef59037600
# Parent  9c3a204531a0d9f224e2f701dc9b79cfbd8abfe6
(mail-font-lock-keywords): Use [:alpha:], not
a-z.
(mail-mode): Use [:alnum:] in some regexps.

diff -r 9c3a204531a0 -r 49906cfa5179 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sun Nov 12 00:22:02 2000 +0000
+++ b/lisp/mail/sendmail.el	Sun Nov 12 00:26:26 2000 +0000
@@ -316,7 +316,7 @@
 (defvar mail-font-lock-keywords
   (eval-when-compile
     (let* ((cite-chars "[>|}]")
-	   (cite-prefix "A-Za-z")
+	   (cite-prefix "[:alpha:]")
 	   (cite-suffix (concat cite-prefix "0-9_.@-`'\"")))
       (list '("^\\(To\\|Newsgroups\\):" . font-lock-function-name-face)
 	    '("^\\(B?CC\\|Reply-to\\):" . font-lock-keyword-face)
@@ -473,19 +473,19 @@
   (make-local-variable 'adaptive-fill-regexp)
   (setq adaptive-fill-regexp
 	(concat "[ \t]*\\([-|#;>*]+ *\\|(?[0-9]+[.)] *\\)+"
-		"\\|[ \t]*[-a-z0-9A-Z]*>+[ \t]*"
+		"\\|[ \t]*[-[:alnum:]]*>+[ \t]*"
 		"\\|[ \t]*"))
   (make-local-variable 'adaptive-fill-first-line-regexp)
   (setq adaptive-fill-first-line-regexp
 	(concat adaptive-fill-first-line-regexp
-		"\\|[ \t]*[-a-z0-9A-Z]*>+[ \t]*"))
+		"\\|[ \t]*[-[:alnum:]]*>+[ \t]*"))
   ;; `-- ' precedes the signature.  `-----' appears at the start of the
   ;; lines that delimit forwarded messages.
   ;; Lines containing just >= 3 dashes, perhaps after whitespace,
   ;; are also sometimes used and should be separators.
   (setq paragraph-start (concat (regexp-quote mail-header-separator)
 				"$\\|\t*\\([-|#;>* ]\\|(?[0-9]+[.)]\\)+$"
-				"\\|[ \t]*[a-z0-9A-Z]*>+[ \t]*$\\|[ \t]*$\\|"
+				"\\|[ \t]*[[:alnum:]]*>+[ \t]*$\\|[ \t]*$\\|"
 				"-- $\\|---+$\\|"
 				page-delimiter))
   (setq paragraph-separate paragraph-start)