procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
\377, the bug in search.c is apparently gone.
(mail-extr-first-letters): add 8-bit characters
(mail-extr-last-letters): ditto
This commit is contained in:
Karl Heuer 1995-05-29 07:07:40 +00:00
parent c8502397cc
commit fa25dbbca6
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/mail/mail-extr.el
View file

@ -279,9 +279,8 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\".")
;; Yes, there are weird people with digits in their names.
;; You will also notice the consideration for the
;; Swedish/Finnish/Norwegian character set.
;; #### (go to \376 instead of \377 to work around bug in search.c...)
(defconst mail-extr-all-letters-but-separators
(purecopy "][A-Za-z{|}'~0-9`\200-\376"))
(purecopy "][A-Za-z{|}'~0-9`\200-\377"))
;; Any character that can occur in a name in an RFC822 address including
;; the separator (hyphen and possibly period) for multipart names.
@ -291,11 +290,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"))
(defconst mail-extr-first-letters (purecopy "A-Za-z\200-\377"))
;; Any character that can end a name.
;; Keep this set as minimal as possible.
(defconst mail-extr-last-letters (purecopy "[A-Za-z`'."))
(defconst mail-extr-last-letters (purecopy "A-Za-z\200-\377`'."))
(defconst mail-extr-leading-garbage
(purecopy (format "[^%s]+" mail-extr-first-letters)))