316 |
;; Keep this set as minimal as possible. |
;; Keep this set as minimal as possible. |
317 |
(defconst mail-extr-last-letters (purecopy "[:alpha:]`'.")) |
(defconst mail-extr-last-letters (purecopy "[:alpha:]`'.")) |
318 |
|
|
319 |
(defconst mail-extr-leading-garbage |
(defconst mail-extr-leading-garbage "\\W+") |
|
(purecopy (format "[^%s]+" mail-extr-first-letters))) |
|
320 |
|
|
321 |
;; (defconst mail-extr-non-name-chars |
;; (defconst mail-extr-non-name-chars |
322 |
;; (purecopy (concat "^" mail-extr-all-letters "."))) |
;; (purecopy (concat "^" mail-extr-all-letters "."))) |
1686 |
(looking-at mail-extr-trailing-comment-start-pattern) |
(looking-at mail-extr-trailing-comment-start-pattern) |
1687 |
|
|
1688 |
;; Stop before telephone numbers |
;; Stop before telephone numbers |
1689 |
(looking-at mail-extr-telephone-extension-pattern)) |
(and (>= word-count 1) |
1690 |
|
(looking-at mail-extr-telephone-extension-pattern))) |
1691 |
(setq name-done-flag t)) |
(setq name-done-flag t)) |
1692 |
|
|
1693 |
;; Delete ham radio call signs |
;; Delete ham radio call signs |
1765 |
(goto-char name-end) |
(goto-char name-end) |
1766 |
(setq word-found-flag t)) |
(setq word-found-flag t)) |
1767 |
|
|
1768 |
|
;; Allow a number as a word, if it doesn't mean anything else. |
1769 |
|
((looking-at "[0-9]+\\>") |
1770 |
|
(setq name-beg (point)) |
1771 |
|
(setq name-end (match-end 0)) |
1772 |
|
(goto-char name-end) |
1773 |
|
(setq word-found-flag t)) |
1774 |
|
|
1775 |
(t |
(t |
1776 |
(setq name-done-flag t) |
(setq name-done-flag t) |
1777 |
)) |
)) |