mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(mail-extr-all-letters-but-separators)

Browse Source 
(mail-extr-first-letters, mail-extr-last-letters):
Make range start from \240, not from \200.
This commit is contained in:
Richard M. Stallman 1998-02-03 06:24:20 +00:00
parent ab5c3f933d
commit 0fdb64d4ab
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/mail-extr.el
View File

@ -284,7 +284,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`\200-\377"))
(purecopy "][A-Za-z{|}'~0-9`\240-\377"))
;; Any character that can occur in a name in an RFC822 address including
;; the separator (hyphen and possibly period) for multipart names.
@ -294,11 +294,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\200-\377"))
(defconst mail-extr-first-letters (purecopy "A-Za-z\240-\377"))
;; Any character that can end a name.
;; Keep this set as minimal as possible.
(defconst mail-extr-last-letters (purecopy "A-Za-z\200-\377`'."))
(defconst mail-extr-last-letters (purecopy "A-Za-z\240-\377`'."))
(defconst mail-extr-leading-garbage
(purecopy (format "[^%s]+" mail-extr-first-letters)))