[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/mail-extr.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/mail-extr.el |
Date: |
Fri, 16 Nov 2001 14:54:57 -0500 |
Index: emacs/lisp/mail/mail-extr.el
diff -u emacs/lisp/mail/mail-extr.el:1.34 emacs/lisp/mail/mail-extr.el:1.35
--- emacs/lisp/mail/mail-extr.el:1.34 Sun Jul 15 12:15:34 2001
+++ emacs/lisp/mail/mail-extr.el Fri Nov 16 14:54:57 2001
@@ -316,8 +316,7 @@
;; 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 @@
(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
@@ -1762,6 +1762,13 @@
;; (setq upper-case-flag t)
)
+ (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))
- [Emacs-diffs] Changes to emacs/lisp/mail/mail-extr.el,
Richard M. Stallman <=