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

(mail-extract-address-components): Recognize

Browse source 
non-ASCII characters except for NBSP as words.
This commit is contained in:
Kenichi Handa 2007-05-22 02:13:27 +00:00
parent dc255b24e3
commit b907b62954
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -873,7 +873,17 @@ consing a string.)"
(mail-extr-nuke-char-at (point))
(forward-char 1))
(t
(forward-word 1)))
;; Do `(forward-word 1)', recognizing non-ASCII characters
;; except Latin-1 nbsp as words.
(while (progn
(skip-chars-forward "^\000-\177 ")
(and (not (eobp))
(eq ?w (char-syntax (char-after)))
(progn
(forward-word 1)
(and (not (eobp))
(> (char-after) ?\177)
(not (eq (char-after) ? )))))))))
(or (eq char ?\()
;; At the end of first address of a multiple address header.
(and (eq char ?,)