diff options
author | Robert Fenk <fenk@users.sourceforge.net> | 2000-10-20 09:37:14 +0000 |
---|---|---|
committer | Robert Fenk <fenk@users.sourceforge.net> | 2000-10-20 09:37:14 +0000 |
commit | e9e557d067fe2c3bae07aba2eac154d101073675 (patch) | |
tree | 02444670f66c4edb6cbb50c9bc102dae89c0dc24 | |
parent | 58e761e852695cc7ce15b4cdf831214b8e4682f5 (diff) |
(bbdb-extract-address-components): added an optional argument `ignore-errors'.
-rw-r--r-- | lisp/bbdb-snarf.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/bbdb-snarf.el b/lisp/bbdb-snarf.el index 8c73636..d354c4f 100644 --- a/lisp/bbdb-snarf.el +++ b/lisp/bbdb-snarf.el @@ -478,7 +478,7 @@ this handler." :group 'bbdb-noticing-records) ;;;###autoload -(defun bbdb-extract-address-components (adstring) +(defun bbdb-extract-address-components (adstring &optional ignore-errors) "Return a list of address components found in ADSTRING. If extracting fails one probably has to adjust the variable `bbdb-extract-address-component-regexps'." @@ -541,8 +541,8 @@ If extracting fails one probably has to adjust the variable (setq adcom-regexp (cdr adcom-regexp)))) ;; Now handle problems - (if nomatch - (cond ((equal bbdb-extract-address-component-handler nil)) + (if (and nomatch (not ignore-errors)) + (cond ((equal bbdb-extract-address-component-handler nil)) ((equal bbdb-extract-address-component-handler 'warn) (bbdb-warn "Cannot extract an address component at \"%s\". See `bbdb-extract-address-component-handler' for more information." |