From 0eafc06c5e9ca35302687c69e72c674d85e37636 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 12 Nov 2000 00:27:05 +0000 Subject: [PATCH] (mail-font-lock-keywords): Use [:alpha:], not a-z. (mail-mode): Use [:alnum:] in some regexps. --- ChangeLog | 4 ++++ lisp/mail/sendmail.el | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 45ef55171bc..c576feecf29 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-11-11 Dave Love + + * config.sub, config.guess: Updated from master source. + 2000-11-07 Dave Love * configure.in: Test for mkstemp. diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index edc60dbf36a..e3992b3e187 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -316,7 +316,7 @@ actually occur.") (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 @@ Here are commands that move to a header field (and create it if there isn't): (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) -- 2.39.5