From: Paul Eggert <eggert@cs.ucla.edu>
Date: Fri, 19 Apr 2019 15:23:15 +0000 (-0700)
Subject: Fix mail-extr regexp typo with ".".
X-Git-Tag: emacs-27.0.90~3202
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e6a9785f8228130c339aad5ba0a514fee6539cab;p=emacs.git

Fix mail-extr regexp typo with ".".

Problem reported by Mattias Engdegård in:
https://lists.gnu.org/r/emacs-devel/2019-04/msg00543.html
* lisp/mail/mail-extr.el (mail-extr-telephone-extension-pattern):
Escape the trailing optional period after an abbreviation.
---

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index a0b96886507..c1e90c3dcb8 100644
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -383,7 +383,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"."
 ;; Matches telephone extensions.
 (defconst mail-extr-telephone-extension-pattern
   (purecopy
-   "\\(\\([Ee]xt\\|[Tt]ph\\|[Tt]el\\|[Xx]\\).?\\)? *\\+?[0-9][- 0-9]+"))
+   "\\(\\([Ee]xt\\|[Tt]ph\\|[Tt]el\\|[Xx]\\)\\.?\\)? *\\+?[0-9][- 0-9]+"))
 
 ;; Matches ham radio call signs.
 ;; Help from: Mat Maessen N2NJZ <maessm@rpi.edu>, Mark Feit