/[emacs]/emacs/lisp/mail/mail-extr.el
ViewVC logotype

Diff of /emacs/lisp/mail/mail-extr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34 by pj, Sun Jul 15 16:15:34 2001 UTC revision 1.35 by rms, Fri Nov 16 19:54:57 2001 UTC
# Line 316  by translating things like \"foo!bar!baz Line 316  by translating things like \"foo!bar!baz
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 ".")))
# Line 1687  ADDRESS may be a string or a buffer.  If Line 1686  ADDRESS may be a string or a buffer.  If
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
# Line 1765  ADDRESS may be a string or a buffer.  If Line 1765  ADDRESS may be a string or a buffer.  If
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            ))            ))

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26