From xemacs-m  Fri Jun 27 14:45:13 1997
Received: from spsem02.sps.mot.com ([192.70.231.5])
	by xemacs.org (8.8.5/8.8.5) with SMTP id OAA03098
	for <xemacs-beta@xemacs.org>; Fri, 27 Jun 1997 14:45:12 -0500 (CDT)
Received: from mogate.sps.mot.com by spsem02.sps.mot.com (4.1/SMI-4.1/Email 2.1 10/25/93)
	id AA07565 for xemacs-beta@xemacs.org; Fri, 27 Jun 97 12:44:53 MST
Received: from txbc.sps.mot.com by mogate.sps.mot.com (4.1/SMI-4.1/Email-2.0)
	id AA11258 for xemacs-beta@xemacs.org; Fri, 27 Jun 97 12:44:52 MST
Received: from sso-austin .sps.mot.com (iceland.sps.mot.com) by txbc.sps.mot.com with SMTP
	(1.37.109.20/16.2) id AA201460691; Fri, 27 Jun 1997 14:44:51 -0500
Received: by sso-austin .sps.mot.com (4.1/SMI-4.1)
	id AA01897; Fri, 27 Jun 97 14:43:21 CDT
Date: Fri, 27 Jun 97 14:43:21 CDT
Message-Id: <9706271943.AA01897@sso-austin .sps.mot.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
From: combee@sso-austin.sps.mot.com (Ben Combee)
To: xemacs-beta@xemacs.org
Subject: bbdb wierdness
In-Reply-To: <E0whely-0005fE-00@neal.ctd.comsat.com>
References: <E0whely-0005fE-00@neal.ctd.comsat.com>
X-Mailer: VM 6.32 under 19.15p5 XEmacs Lucid
Organization: Motorola/MIMS/MSPG/CTSD

Easy fix on this one... I had to make the same change just last week
to get my BBDB going with some Florida prefixes.

In bbdb-com.el, change the regular expressions that are of the form
[012] to [0-9].  That will let it accept new-style area codes.  Here
is a diff:

*** bbdb-com.el	Mon May 27 16:30:51 1996
--- /usr/users/easter3/combee/emacs/bbdb-com.el	Fri Jun 20 10:45:58 1997
***************
*** 242,248 ****
  
  ;;; Parsing phone numbers
  
! (defconst bbdb-phone-area-regexp "(?[ \t]*\\+?1?[ \t]*[-\(]?[ \t]*[-\(]?[ \t]*\\([0-9][012][0-9]\\)[ \t]*)?[- \t]*")
  (defconst bbdb-phone-main-regexp "\\([1-9][0-9][0-9]\\)[ \t]*-?[ \t]*\\([0-9][0-9][0-9][0-9]\\)[ \t]*")
  (defconst bbdb-phone-ext-regexp  "x?[ \t]*\\([0-9]+\\)[ \t]*")
  
--- 242,248 ----
  
  ;;; Parsing phone numbers
  
! (defconst bbdb-phone-area-regexp "(?[ \t]*\\+?1?[ \t]*[-\(]?[ \t]*[-\(]?[ \t]*\\([0-9][0-9][0-9]\\)[ \t]*)?[- \t]*")
  (defconst bbdb-phone-main-regexp "\\([1-9][0-9][0-9]\\)[ \t]*-?[ \t]*\\([0-9][0-9][0-9][0-9]\\)[ \t]*")
  (defconst bbdb-phone-ext-regexp  "x?[ \t]*\\([0-9]+\\)[ \t]*")


-- 
Ben Combee, Software Guru (ARMy Core of Engineers)
Motorola > MIMS > MSPG > CTSD > AMCD > Austin Design Center
E-mail: ra3781@email.mot.com   Phone: (512) 891-7141
---
"You can make great goosebumps with just a 14.4K line." -- Dave Winer

