From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 29 Aug 1999 20:35:30 +0000 (+0000)
Subject: (mail-extr-all-letters-but-separators)
X-Git-Tag: emacs-pretest-21.0.90~7002
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e66e4c6fc350fe8cb85d4cc35d9ca567df56548;p=emacs.git

(mail-extr-all-letters-but-separators)
(mail-extr-first-letters, mail-extr-last-letters):
Use character classes [:alpha:] and [:alnum:].
---

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)))