mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

(mail-extr-voodoo): Treat a number as a word

Browse Source 
if it doesn't make sense as anything else.
(mail-extr-leading-garbage): Match non-word characters only.
This commit is contained in:
Richard M. Stallman 2001-11-16 19:57:07 +00:00
parent 792e5cbdd1
commit af6046560c
2 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2001-11-16 Richard M. Stallman <rms@gnu.org>
* mail/mail-extr.el (mail-extr-voodoo): Treat a number as a word
if it doesn't make sense as anything else.
Don't recognize a "telephone number" at the beginning of the name.
(mail-extr-leading-garbage): Match non-word characters only.
2001-11-16 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
* emulation/viper.el: Fix typo.

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

@ -316,8 +316,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"."
;; Keep this set as minimal as possible.
(defconst mail-extr-last-letters (purecopy "[:alpha:]`'."))
(defconst mail-extr-leading-garbage
(purecopy (format "[^%s]+" mail-extr-first-letters)))
(defconst mail-extr-leading-garbage "\\W+")
;; (defconst mail-extr-non-name-chars
;; (purecopy (concat "^" mail-extr-all-letters ".")))
@ -1687,7 +1686,8 @@ ADDRESS may be a string or a buffer. If it is a buffer, the visible
(looking-at mail-extr-trailing-comment-start-pattern)
;; Stop before telephone numbers
(looking-at mail-extr-telephone-extension-pattern))
(and (>= word-count 1)
(looking-at mail-extr-telephone-extension-pattern)))
(setq name-done-flag t))
;; Delete ham radio call signs
@ -1765,6 +1765,13 @@ ADDRESS may be a string or a buffer. If it is a buffer, the visible
(goto-char name-end)
(setq word-found-flag t))
;; Allow a number as a word, if it doesn't mean anything else.
((looking-at "[0-9]+\\>")
(setq name-beg (point))
(setq name-end (match-end 0))
(goto-char name-end)
(setq word-found-flag t))
(t
(setq name-done-flag t)
))