Mercurial > emacs
changeset 33415:49906cfa5179
(mail-font-lock-keywords): Use [:alpha:], not
a-z.
(mail-mode): Use [:alnum:] in some regexps.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 12 Nov 2000 00:26:26 +0000 |
| parents | 9c3a204531a0 |
| children | 529e15cb06f0 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)