From 6e66e4c6fc350fe8cb85d4cc35d9ca567df56548 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 29 Aug 1999 20:35:30 +0000 Subject: [PATCH] (mail-extr-all-letters-but-separators) (mail-extr-first-letters, mail-extr-last-letters): Use character classes [:alpha:] and [:alnum:]. --- lisp/mail/mail-extr.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index ab3545b66df..7a58699e095 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el @@ -299,7 +299,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"." ;; You will also notice the consideration for the ;; Swedish/Finnish/Norwegian character set. (defconst mail-extr-all-letters-but-separators - (purecopy "][A-Za-z{|}'~0-9`\240-\377")) + (purecopy "][[:alnum:]{|}'~`")) ;; Any character that can occur in a name in an RFC822 address including ;; the separator (hyphen and possibly period) for multipart names. @@ -309,11 +309,11 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"." ;; Any character that can start a name. ;; Keep this set as minimal as possible. -(defconst mail-extr-first-letters (purecopy "A-Za-z\240-\377")) +(defconst mail-extr-first-letters (purecopy "[:alpha:]")) ;; Any character that can end a name. ;; Keep this set as minimal as possible. -(defconst mail-extr-last-letters (purecopy "A-Za-z\240-\377`'.")) +(defconst mail-extr-last-letters (purecopy "[:alpha:]`'.")) (defconst mail-extr-leading-garbage (purecopy (format "[^%s]+" mail-extr-first-letters))) -- 2.39.5