Robert Fenk <[EMAIL PROTECTED]> writes:
> On Tuesday, March 27 2001 20:58:07, Ronan Waide wrote:
>
> > Can you generate a stacktrace for this?
>
> One usually would not get a stack trace for this unless
> bbdb-extract-address-component-handler is set to 'error,
> which is not the default.
I did this.
Signaling: (error "Cannot extract an address component at \"
<[EMAIL PROTECTED]\"")
signal(error ("Cannot extract an address component at \"
<[EMAIL PROTECTED]\""))
error("Cannot extract an address component at \"%30s\"" "<[EMAIL PROTECTED]")
(cond ((equal bbdb-extract-address-component-handler nil)) ((equal
bbdb-extract-address-component-handler ...) (bbdb-warn "Cannot extract an address
component at \"%s\".\nSee `bbdb-extract-address-component-handler' for more
information." adstring)) ((equal bbdb-extract-address-component-handler ...) (message
"Cannot extract an address component at \"%s\"." adstring)) ((functionp
bbdb-extract-address-component-handler) (let ... ...)) (t (error "Cannot extract an
address component at \"%30s\"" adstring)))
(if (and nomatch (not ignore-errors)) (cond (...) (... ...) (... ...) (... ...) (t
...)))
(while (not (string= "" adstring)) (setq adcom-regexp
bbdb-extract-address-component-regexps nomatch t) (while adcom-regexp (let ... ...
...)) (if (and nomatch ...) (cond ... ... ... ... ...)) (if nomatch (if ... ... ...)))
(let ((case-fold-search t) (fnadlist nil) adcom-regexp nomatch) (setq adstring
(replace-in-string adstring "[\n ]" " ")) (setq adstring (replace-in-string
adstring " " " ")) (setq adstring (replace-in-string adstring "^ +" "")) (while (not
...) (setq adcom-regexp bbdb-extract-address-component-regexps nomatch t) (while
adcom-regexp ...) (if ... ...) (if nomatch ...)) (delete (quote ...) (nreverse
fnadlist)))
bbdb-extract-address-components("<[EMAIL PROTECTED]")
(setq adlist (bbdb-extract-address-components header))
(progn (setq adlist (bbdb-extract-address-components header)) (while adlist (setq fn
... ad ...) (if ... ...) (if ... ... ...)))
(if header (progn (setq adlist ...) (while adlist ... ... ...)))
(when header (setq adlist (bbdb-extract-address-components header)) (while adlist
(setq fn ... ad ...) (if ... ...) (if ... ... ...)))
(while headers (setq header (mail-fetch-field ...)) (when header (setq adlist ...)
(while adlist ... ... ...)) (setq headers (cdr headers)))
(let ((headers bbdb-get-addresses-headers) (uninteresting-senders ...) addrlist
header adlist fn ad) (while headers (setq header ...) (when header ... ...) (setq
headers ...)) (nreverse addrlist))
(save-restriction (goto-char (point-min)) (narrow-to-region (point-min) (if ... ...
...)) (let (... ... addrlist header adlist fn ad) (while headers ... ... ...)
(nreverse addrlist)))
bbdb/gnus-get-addresses(nil)
(bbdb-update-records (bbdb/gnus-get-addresses bbdb-get-only-first-address-p)
bbdb/news-auto-create-p offer-to-create)
(setq records (bbdb-update-records (bbdb/gnus-get-addresses
bbdb-get-only-first-address-p) bbdb/news-auto-create-p offer-to-create))
(let ((bbdb-update-records-mode ...)) (setq records (bbdb-update-records ...
bbdb/news-auto-create-p offer-to-create)))
(if cache (setq records (if bbdb-get-only-first-address-p ... cache)) (let (...)
(setq records ...)) (if (and bbdb-message-caching-enabled msg-id)
(bbdb-encache-message msg-id records)))
(save-excursion (set-buffer (get-buffer gnus-article-buffer)) (if (and msg-id ...)
(setq cache ...)) (if cache (setq records ...) (let ... ...) (if ... ...)))
(let ((bbdb-update-records-mode ...) (bbdb/gnus-offer-to-create offer-to-create)
(msg-id ...) records cache) (save-excursion (set-buffer ...) (if ... ...) (if cache
... ... ...)) records)
bbdb/gnus-update-records(nil)
(let ((bbdb-gag-messages t) (records ...) (bbdb-electric-p nil)) (when
bbdb-use-pop-up (let ... ... ...)) (if records (bbdb-display-records records)) records)
bbdb/gnus-pop-up-bbdb-buffer()
run-hooks(gnus-article-prepare-hook)
apply(run-hooks gnus-article-prepare-hook)
gnus-run-hooks(gnus-article-prepare-hook)
gnus-article-prepare-display()
gnus-article-prepare(4462 nil)
gnus-summary-display-article(4462 nil)
gnus-summary-select-article(nil nil pseudo)
gnus-summary-scroll-up(1)
* call-interactively(gnus-summary-scroll-up)
_______________________________________________
[EMAIL PROTECTED]
http://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/