If I have the following text:
--
Grace Travels (P) Ltd.
165 & 166, A Block,
Basheerbagh, Hyderabad AP 500001
Office: +91.40.2329-6418
Office: +91.40.2329-6419
Office: +91.40.2329-6420
[EMAIL PROTECTED]
--
and run bbdb-snarf on this region with the following changes to these
variables (merely getting it to recognize a different style of zip
code and phone numbers):
(setq bbdb-snarf-zip-regexp
"\\<[0-9][0-9][0-9][0-9][0-9][0-9]\\(-[0-9][0-9][0-9][0-9]\\)?\\>$")
(setq bbdb-snarf-phone-regexp "+[0-9][0-9][-. ][0-9][0-9][-. ][0-9][0-9][0-9][0-9][-.
][0-9][0-9][0-9][0-9]")
The "." at the end of the company name will be the first record in the
address field. That is, the snarfed address field will look like:
.
165 & 166, A Block,
Basheerbagh, Hyderabad AP 500001
The snarfed name looks like "Grace Travels (P) Ltd"
This seems to happen with any non-alphabetic character that happens to
end the name. For e.g. "Cox & Kings Limited (India)" ends up with "Cox
& Kings Limited (India" and ") at the beginning of the address field.
I am using a recent BBDB from CVS.
Thanks,
Sridhar
Emacs : GNU Emacs 21.2.95.1 (i386-msvc-nt5.1.2600)
of 2003-01-30 on buffy
Package: BBDB 2.35
current state:
==============
(setq
emacs-version "21.2.95.1"
bbdb-version-date "$Date: 2003/03/15 23:08:44 $"
bbdb-file-format 6
bbdb-no-duplicates-p nil
bbdb-address-editing-function 'bbdb-address-edit-default
bbdb-address-formatting-alist '((bbdb-address-is-continental .
bbdb-format-address-continental)
(nil . bbdb-format-address-default))
bbdb-addresses-label-list '("Home" "Office" "Mobile" "Other" "School"
"Home - India" "Old Home" "address" "home" "Work")
bbdb-after-change-hook nil
bbdb-after-read-db-hook nil
bbdb-always-add-addresses nil
bbdb-auto-notes-alist '(("user-agent" (".*" interface 0 t))
("x-mailer" (".*" interface 0 t))
("x-newsreader" (".*" interface 0 t))
("x-now-playing" (".*" playlist 0))
("newsgroups" ("\\([^,]*\\),?" posted-to "\\1" t))
("xref" ("\\b[^ ]+:[0-9]+.*" seen-in 0)))
bbdb-auto-notes-ignore nil
bbdb-auto-notes-ignore-all nil
bbdb-auto-revert-p nil
bbdb-canonical-hosts
"cs\\.cmu\\.edu\\|ri\\.cmu\\.edu\\|edrc\\.cmu\\.edu\\|andrew\\.cmu\\.edu\\|mcom\\.com\\|netscape\\.com\\|cenatls\\.cena\\.dgac\\.fr\\|cenaath\\.cena\\.dgac\\.fr\\|irit\\.fr\\|enseeiht\\.fr\\|inria\\.fr\\|cs\\.uiuc\\.edu\\|xemacs\\.org"
bbdb-canonicalize-net-hook nil
bbdb-canonicalize-redundant-nets-p t
bbdb-case-fold-search t
bbdb-change-hook 'bbdb-timestamp-hook
bbdb-check-zip-codes-p t
bbdb-complete-name-allow-cycling t
bbdb-complete-name-hooks '(ding)
bbdb-completion-display-record t
bbdb-completion-type nil
bbdb-continental-zip-regexp "^\\s *[A-Z][A-Z]?\\s *-\\s *[0-9][0-9][0-9]"
bbdb-create-hook 'bbdb-creation-date-hook
bbdb-default-area-code nil
bbdb-default-country "USA"
bbdb-default-domain nil
bbdb-default-label-list '("Home" "Office" "Mobile" "Other")
bbdb-define-all-aliases-field 'mail-alias
bbdb-define-all-aliases-mode 'first
bbdb-dial-local-prefix nil
bbdb-dial-local-prefix-alist '(((if (integerp bbdb-default-area-code)
(format "(%03d)" bbdb-default-area-code)
(or bbdb-default-area-code ""))
"")
)
bbdb-dial-long-distance-prefix nil
bbdb-display-layout 'multi-line
bbdb-display-layout-alist '((one-line (order phones mail-alias net notes)
(name-end . 24) (toggle . t))
(multi-line (omit creation-date timestamp)
(toggle . t))
(pop-up-multi-line) (full-multi-line))
bbdb-dwim-net-address-allow-redundancy t
bbdb-electric-p nil
bbdb-expand-mail-aliases t
bbdb-extract-address-component-handler nil
bbdb-extract-address-component-ignore-regexp
"\\(\\(undisclosed\\|unlisted\\)[^,]*recipients\\)\\|no To-header on input"
bbdb-extract-address-component-regexps '(("\"\\([^\"]*\\)\"\\s-*<\\([^>]+\\)>"
(car
(mail-extract-address-components
(concat
"\""
(match-string 1 adstring)
"\"")
)
)
2)
("\\([^<>, ][^<>,]+[^<>,
]\\)\\s-*<\\([^>]+\\)>" 1 2)
("<\\([^>,]+\\)>" nil 1)
("\\(\\b[^<\",()]+\\b\\)\\s-*(\\([^)]+\\))"
(car
(mail-extract-address-components
(concat
"\""
(match-string 2 adstring)
"\"")
)
)
1)
("\\b\\(\\([^@ \n.]+\\.[^@
\n.]+\\)@[^@ \n]+\\)\\b"
(car
(mail-extract-address-components
(concat
"\""
(match-string 2 adstring)
"\"")
)
)
1)
("\\b\\(\\([^@ \n]+\\)@[^@
\n]+\\)\\b" nil 1)
("\\b\\([^@ \n]+\\)\\b" nil 1))
bbdb-extract-address-components-func 'bbdb-rfc822-addresses
bbdb-file "~/.bbdb"
bbdb-file-remote nil
bbdb-file-remote-save-always t
bbdb-finger-buffer-name "*finger*"
bbdb-finger-host-field 'finger-host
bbdb-get-addresses-headers '((authors "From" "Resent-From" "Reply-To")
(recipients "Resent-To" "Resent-CC" "To" "CC"
"BCC")
)
bbdb-get-only-first-address-p t
bbdb-gui t
bbdb-hashtable-size 1021
bbdb-ignore-most-messages-alist nil
bbdb-ignore-selected-messages-confirmation nil
bbdb-ignore-some-messages-alist nil
bbdb-info-file nil
bbdb-initialize-hook nil
bbdb-legal-zip-codes '("^$"
"^[ \n]*[0-9][0-9]?[0-9]?[0-9]?[0-9]?[0-9]?[ \n]*$"
"^[ \n]*\\([0-9][0-9][0-9][0-9][0-9]\\)[ \n]*-?[
\n]*\\([0-9][0-9][0-9][0-9]?\\)[ \n]*$" "^[ \n]*\\([A-Za-z0-9]+\\)[
\n]+\\([A-Za-z0-9]+\\)[ \n]*$" "^[ \n]*\\([A-Z]+\\)[ \n]*-?[
\n]*\\([0-9]+ ?[A-Z]*\\)[ \n]*$" "^[ \n]*\\([A-Z]+\\)[ \n]*-?[
\n]*\\([0-9]+\\)[ \n]+\\([0-9]+\\)[ \n]*$")
bbdb-list-hook nil
bbdb-load-hook nil
bbdb-message-caching-enabled t
bbdb-mode-hook nil
bbdb-modem-device "/dev/modem"
bbdb-modem-dial nil
bbdb-multiple-buffers nil
bbdb-new-nets-always-primary nil
bbdb-north-american-phone-numbers-p nil
bbdb-notes-default-separator ", "
bbdb-notes-sort-order '((notes . 0) (www . 1) (ftp . 2) (gopher . 3)
(telnet . 4) (mail-alias . 5) (mail-folder . 6)
(lpr . 7) (creation-date . 1000) (timestamp . 1001))
bbdb-notice-auto-save-file t
bbdb-notice-hook nil
bbdb-offer-save 'savenoprompt
bbdb-phones-label-list '("Home" "Office" "Mobile" "Other" "FAX" "Phone" "Fax"
"Toll Free" "Pager" "Cell" "School" "Alternate"
"Vidya's Office" "Checking" "ABA" "Direct"
"Office 2" "Tel" "Office FAX" "Main Number"
"Home - India" "Old Home" "Evening" "India Home"
"Telephone" "Lab" "Member #" "Savings" "home"
"phone" "Work" "Ph" "fax" "tel." "or")
bbdb-pop-up-display-layout 'pop-up-multi-line
bbdb-pop-up-target-lines 5
bbdb-quiet-about-name-mismatches nil
bbdb-readonly-p nil
bbdb-refile-notes-default-merge-function 'bbdb-refile-notes-default-merge-function
bbdb-refile-notes-generate-alist '((creation-date .
bbdb-refile-notes-string-least)
(timestamp . bbdb-refile-notes-string-most)
)
bbdb-save-db-timeout nil
bbdb-send-mail-style 'vm
bbdb-silent-running nil
bbdb-snarf-web-prop 'www
bbdb-sound-files ["/usr/demo/SOUND/sounds/touchtone.0.au"
"/usr/demo/SOUND/sounds/touchtone.1.au" "/usr/demo/SOUND/sounds/touchtone.2.au"
"/usr/demo/SOUND/sounds/touchtone.3.au" "/usr/demo/SOUND/sounds/touchtone.4.au"
"/usr/demo/SOUND/sounds/touchtone.5.au" "/usr/demo/SOUND/sounds/touchtone.6.au"
"/usr/demo/SOUND/sounds/touchtone.7.au" "/usr/demo/SOUND/sounds/touchtone.8.au"
"/usr/demo/SOUND/sounds/touchtone.9.au" "/usr/demo/SOUND/sounds/touchtone.pound.au"
"/usr/demo/SOUND/sounds/touchtone.star.au"]
bbdb-sound-player nil
bbdb-sound-volume 50
bbdb-time-display-format "%d %b %Y"
bbdb-update-records-mode 'annotating
bbdb-use-alternate-names t
bbdb-use-pop-up t
bbdb-user-mail-names nil
bbdb-write-file-hooks '(bbdb-write-file-hook-fn)
bbdb/mail-auto-create-p nil
bbdb/news-auto-create-p nil
bbdb/vm-auto-add-label-field 'mail-alias
bbdb/vm-auto-add-label-list nil
bbdb/vm-set-auto-folder-alist-field 'vm-folder
bbdb/vm-set-auto-folder-alist-headers '("From:" "To:" "CC:")
bbdb/vm-update-records-mode '(if (vm-new-flag msg) (quote annotating)
(quote searching))
bbdb/vm-virtual-folder-alist-by-mail-alias-alist nil
features '(reporter bbdb-hooks tabify pp vc-cvs feedmail eieio-opt bbdb-gui
vm-grepmail vm-summary-faces vm-rfaddons vm-ps-print ps-print lpr
bbdb-vm vm-autoload bbdb-snarf bbdb-com mabbrev-menu
mail-add-header tapestry vm-window vm-virtual vm-user vm-undo
vm-toolbar vm-thread vm-startup vm-summary vm-sort vm-search
vm-save vm-reply vm-page vm-mouse vm-motion vm-mime vm-message
vm-menu vm-mark vm-license vm-imap vm-folder vm-edit vm-easymenu
vm-digest vm-delete vm-crypto w3-forms w3-style w3-hot url-file
url-dired w3-toolbar w3-emacs w3-props w3 w3-menu w3-java
w3-emulate w3-auto w3-parse w3-fast-parse xml w3-display w3-mouse
w3-imap w3-widget w3-vars w3-keymap w3-cus css font devices
ange-ftp w3-cfg w3-sysdp flow-fill sort gnus-cite gnus-bcklg
gnus-async mail-extr sha1-el hex-util newcomment view flyspell
ispell gnus-dup gnus-ml gnus-topic tool-bar nnfolder ssl url-https
url-cache url-http url-gw url-auth url-handlers webmail mm-url url
url-proxy url-privacy url-expand url-methods url-history
url-cookie url-util url-parse url-auto url-vars nnml nndraft nnmh
gnus-agent gnus-srvr gnus-score score-mode nnvirtual gnus-msg
gnus-art mm-uu mm-view gnus-sum gnus-group gnus-undo nnmail
mail-source format-spec nntp nnoo gnus-cache gnus-start gnus-spec
gnus-int gnus-range message rfc822 mml mml-sec mml-smime smime dig
mml1991 mml2015 pgg pgg-parse pgg-def mm-decode mm-bodies
mm-encode mailcap mail-parse rfc2045 rfc2231 rfc2047 qp ietf-drums
mailabbrev mailheader canlock gnus-win gnus gnus-ems gnus-util
netrc time-date parse-time nnheader mm-util mail-prsvr lazy-lock
fast-lock gnus-load jka-compr-ccrypt tex-site tex-mik ruler-mode
byte-opt bytecomp byte-compile ishl color-theme htmlize
eol-conversion bbdb-autoloads bbdb xae psgml-other sgml-mode psgml
jde-jcb jde-jcb-layout jde-jcb-buffer semantic-c semantic-el
jde-stack jjar javadecomp jsee jmaker pcvs pcvs-parse pcvs-info
pcvs-defs easy-mmode pcvs-util ewoc html-mode jsp-html-helper-mode
asp-html-helper-mode php-html-helper-mode html-helper-mode jde
jde-open-source senator jde-ant executable jde-package jde-import
jde-which-method jde-stat jde-javadoc jde-javadoc-gen
jde-java-font-lock jde-java-grammar jde-wiz jde-complete
browse-url jde-gen tempo jde-make compile jde-run jde-jdb jde-bug
jde-dbs jde-dbo jde-db jde-parse jde-imenu mule-util
semantic-imenu semantic-java thingatpt avltree stack-m elib-node
semantic-ctxt semantic-bnf semantic-sb speedbar sb-image dframe
semantic-util-modes semantic-util semantic assoc working
jde-compile comint ring cus-edit cus-start cus-load cc-mode
cc-cmds cc-styles cc-align cc-engine cc-langs cc-vars cc-menus
cc-defs derived semantic-load jde-help jde-util jde-widgets
tree-widget efc beanshell eieio advice advice-preload cl cl-19
recentf wid-edit rsz-mini filladapt gnuserv time image timezone
calendar cal-menu easymenu which-func imenu paren esmtpmail
vm-minibuf vm-pop vm-misc vm-vars vm-macro vm-version vm
time-stamp sendmail mail-utils jit-lock font-lock regexp-opt
fontset ediff-hook vc-hooks lisp-float-type dos-w32 disp-table
ls-lisp lisp-mode page menu-bar timer select scroll-bar mldrag
mouse facemenu faces cus-face frame ucs-tables misc-lang
vietnamese tibetan thai lao korean japanese hebrew greek romanian
slovak czech european ethiopic devanagari indian cyrillic chinese
case-table help overlay md5 base64 format mule env backquote
custom widget)
)
--
Sridhar Boovaraghavan
[EMAIL PROTECTED]
http://www.geocities.com/sridhar_ml/
-------------------------------------------------------
This SF.net email is sponsored by:
The Definitive IT and Networking Event. Be There!
NetWorld+Interop Las Vegas 2003 -- Register today!
http://ads.sourceforge.net/cgi-bin/redirect.pl?keyn0001en
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
