Robert Fenk writes:
> On Monday, January 29 2001 23:00:21, Ronan Waide wrote:
> [...]
> > > many times. Now when I try to display/edit a user's notes by pressing
> > > ';', it doesn't come up. It displays the above message and exits. I
> > > couldn't get a meaningful stack trace also.
> > >
> > > Does this mean that some field(s) in my database is not being
> > > recognized? How do I go about finding this?
> [...]
> > What do you mean by a meaningful stack trace? The error you're seeing
> > occurs in bbdb-snarf.el, bbdb-extract-address-components, where it's
> > trying to parse a mail address.
>
> Could you please forward me an example mail which causes
> this problem!
>
> It has nothing to do with the fields in your BBDB, but with
> some wired header of an message (or some format I haven't
> though of ...).
>
> You may set bbdb-extract-address-component-handler to nil in
> order to get rid of the messages or set it to 'error if you
> want to get a stack trace.
This might be some weird interaction with Emacs 21. I downloaded
21.0.97 (the latest pretest) today and the behavior was even
worse. Now in addition to the error, VM doesn't display the messages
properly (I see the entire folder when I try to display a message by
hitting space in the summary buffer.)
I commented out (bbdb-insinuate-vm) for things to come back to normal
(in VM respects).
Here is the stack trace of the error. I am just opening my primary
inbox. The message that is currently being displayed (from Avtar Vasu)
has a BBDB record associated with the sender.
--
signal(error (" "))
error(" ")
funcall(error " ")
(let ((result ...)) (if (and ... ... ... ... ...) (progn ... ...)))
(cond ((equal bbdb-extract-address-component-handler nil)) ((equal
bbdb-extract-address-component-handler ...) (bbdb-warn "Cannot extract an address
component at \"%s\".
See `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 "[
]" " ")) (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("\"Avtar Vasu\" <[EMAIL PROTECTED]>")
(setq adlist (bbdb-extract-address-components
(vm-decode-mime-encoded-words-in-string header)))
(progn (setq adlist (bbdb-extract-address-components ...)) (while adlist (setq fn
... ad ...) (if ... ...) (if ... ... ...)))
(if header (progn (setq adlist ...) (while adlist ... ... ...)))
(when header (setq adlist (bbdb-extract-address-components ...)) (while adlist (setq
fn ... ad ...) (if ... ...) (if ... ... ...)))
(while headers (setq header (vm-get-header-contents msg ...)) (when header (setq
adlist ...) (while adlist ... ... ...)) (setq headers (cdr headers)))
(let ((headers bbdb/vm-get-from-headers) (fromlist nil) header adlist fn ad) (while
headers (setq header ...) (when header ... ...) (setq headers ...)) (nreverse
fromlist))
bbdb/vm-get-from([[#<marker at 843011 in inbox> #<marker at 843044 in inbox> nil
#<marker at 844297 in inbox> #<marker at 845173 in inbox> #<marker at 845174 in
inbox>] ["172" "172" nil #<marker at 13978 in inbox Summary> #<marker at 14052 in
inbox Summary> <<>> <-- nil "171" #<buffer inbox> 0
(<OF9361D486\.53A4F491-ON052569DC\.0081E9F4@db\.com>) nil nil nil nil nil nil
#<overlay from 13978 to 14052 in inbox Summary>] [nil nil nil nil nil nil nil nil nil]
["876" "Monday" "22" "January" "2001" "18:45:08" "-0500" "Avtar Vasu"
"[EMAIL PROTECTED]" "<[EMAIL PROTECTED]>" "20" "New
coordinates" "^From:" nil nil "1" "2001012223:45:08" "New coordinates" (number " "
mark " " thread-indent "[Avtar Vasu ] Mon Jan 22 20/876 \"New
coordinates\"
") nil nil] [nil <v> nil nil nil]] nil)
(let ((addrs ...) (bbdb-records ...) (processed-addresses 0)
(bbdb/vm-update-records-mode ...) rec) (mapc (lambda ... ... ...) addrs) (setq records
(nreverse records)) (bbdb/vm-encache-message msg records))
(and msg (let (... ... ... ... rec) (mapc ... addrs) (setq records ...)
(bbdb/vm-encache-message msg records)))
(if cache (setq records (if bbdb/vm-get-only-first-from-p ... ...)) (and msg (let
... ... ... ...)))
(let ((msg ...) (inhibit-local-variables nil) (enable-local-variables t)
(inhibit-quit nil) (bbdb/vm-offer-to-create offer-to-create) cache records) (if (not
bbdb/vm-offer-to-create) (setq cache ...)) (if cache (setq records ...) (and msg ...))
(and (not bbdb-silent-running) records (> ... 1) (display-message ... "Updating of
BBDB records finished")) records)
bbdb/vm-update-records(nil)
(let ((bbdb-gag-messages t) (bbdb-electric-p nil) (records ...) (bbdb-elided-display
...)) (if (and bbdb-use-pop-up records) (progn ...)) (if records (bbdb-display-records
records) (bbdb-undisplay-records)) (sit-for 0))
(save-excursion (let (... ... ... ...) (if ... ...) (if records ... ...) (sit-for
0)))
bbdb/vm-pop-up-bbdb-buffer()
run-hooks(vm-select-message-hook)
vm-run-message-hook([[#<marker at 843011 in inbox> #<marker at 843044 in inbox> nil
#<marker at 844297 in inbox> #<marker at 845173 in inbox> #<marker at 845174 in
inbox>] ["172" "172" nil #<marker at 13978 in inbox Summary> #<marker at 14052 in
inbox Summary> <<>> <-- nil "171" #<buffer inbox> 0
(<OF9361D486\.53A4F491-ON052569DC\.0081E9F4@db\.com>) nil nil nil nil nil nil
#<overlay from 13978 to 14052 in inbox Summary>] [nil nil nil nil nil nil nil nil nil]
["876" "Monday" "22" "January" "2001" "18:45:08" "-0500" "Avtar Vasu"
"[EMAIL PROTECTED]" "<[EMAIL PROTECTED]>" "20" "New
coordinates" "^From:" nil nil "1" "2001012223:45:08" "New coordinates" (number " "
mark " " thread-indent "[Avtar Vasu ] Mon Jan 22 20/876 \"New
coordinates\"
") nil nil] [nil <v> nil nil nil]] vm-select-message-hook)
ad-Orig-vm-preview-current-message()
vm-preview-current-message()
byte-code("\300 !?\302\211\211\211\211 \300 !\203 \202\226
\206& \311
\" \315 !\2037 \316\317 \"\202\225 \320
!\206\225 \203J \311 !\206L \322\302\211\203X \324\202b \203a \324\202b \326 \333\334
\"ˆÝ ! \206|
\211 @\232\204\215 B )\333\340
\"\210-)\211q\210!ƒ© \"ƒ© \343\302!ˆä%B%„¹ \203\346$!\346\347!=\204\346$!\346\350!=\204\346$!\346\351!=\204\346$!\346\352!=\204\302\353
, -\356Žïed$#ˆð\324\302\"ˆñed$#\210+!\203$\204\360\326\302\"\210!\203_\362$!\362\363!=\204_\362$!\362\364!=\204_\362$!\362\365!=\204_\362$!\362\324!=\204_\302\353
, -\366Žïed$#ˆð\326\302\"ˆñed$#\210+\367 ˆø ˆë
\204m\371:;\374=?=\205\204\353 ?\205\204\376\377
=\"\211\206\236@\206\236\201A \201B !\206\236
\205\236-B
ƒË\201C p!\210\201D \371!\210\201E \371!\210\201F \210\201G ˆë „Ë\201H
\201I \302?\302\322$\210
ƒý„ý\201J \210\201K \210\201L \210\201M
\210\201N \210\201O \210
\203\201P \210\203%Q\203%\201R \201S \203
\201T \202#\201U \"\210\203YV\2065W\2065p X\201Y X\211QCQ\206H\201Z \201[ D$\210\\\203X\201]
\210)\203r\201^ =\203r\201_ =`A\"\210\201a \210\201b \210\201c
\203\236d\203\236\333\201e !\210\201f ˆÛ\201g !\210\201h \210iƒ¯\201j
ƒ¯\201k \210\203\201l ƒÆ „Æ\201m \322\302\"\210Vƒßnƒßoƒß\\ƒß\201]
\210pƒý\201Y \302\211QCQ†ô\201Z \201[ D$\210\202\212\201q V\206 W\206
p!\210)r\203 ? s\201t \210)\201u \201v !\210\203/\333
!\210\203B \203B\333\201w \201x !!\210\203K \203T\201y \201z \322\"\210{\203\237|\204\237B\204\237\333\201} =\206p\201~
\"\210\201 \322!\203\233\201I \322!\203\233\201^ \201a \203\226\201t
\210\202\233\201b ˆÛ !\210t…¹\200?…¹\201\201 \210\201\202 ?…¹\333 !.\207"
[bufferp folder nil preserve-auto-save-file totals-blurb first-time folder-buffer
did-read-index-file full-startup expand-file-name vm-primary-inbox vm-folder-directory
file file-directory-p error "%s is a directory" vm-get-file-buffer default-directory t
vm-xemacs-mule-p no-conversion vm-xemacs-file-coding-p raw-text coding-system-for-read
default-enable-multibyte-characters enable-local-variables inhibit-local-variables
message "Reading %s..." find-file-noselect item vm-folder-history "Reading %s... done"
vm-fsfemacs-mule-p enable-multibyte-characters set-buffer-multibyte
buffer-file-coding-system current-load-list get-coding-system no-conversion-unix
no-conversion-dos no-conversion-mac binary buffer-modified-p omodified
buffer-read-only ((set-buffer-modified-p omodified)) encode-coding-region
set-buffer-file-coding-system decode-coding-region coding-system-base raw-text-unix
raw-text-mac raw-text-dos ((set-buffer-modified-p omodified))
vm-check-for-killed-summary vm-check-for-killed-presentation 0 vm-messages-not-on-disk
major-mode vm-mode buffer-file-name file-newer-than-file-p make-auto-save-file-name
read-only default-value vm-folder-read-only buffer-disable-undo abbrev-mode
auto-fill-mode vm-fsfemacs-nonmule-display-8bit-chars vm-mode-internal
vm-read-index-file-maybe vm-assimilate-new-messages vm-gobble-visible-header-variables
vm-gobble-bookmark vm-gobble-pop-retrieved vm-gobble-imap-retrieved vm-gobble-summary
vm-gobble-labels vm-start-itimers-if-needed this-command apply
vm-goto-new-folder-frame-maybe (folder) (primary-folder folder) vm-summary-buffer
vm-presentation-buffer buffer-to-display vm-display vm startup
vm-raise-frame-at-startup vm-raise-frame vm-emit-totals-blurb vm-store-folder-totals
vm-totals vm-thoughtfully-select-message vm-update-summary-and-mode-line
vm-toolbar-support-possible-p vm-use-toolbar "Initializing toolbar..."
vm-toolbar-install-toolbar "Initializing toolbar... done" vm-toolbar-update-toolbar
vm-use-menus vm-menu-support-possible-p vm-menu-install-visited-folders-menu
vm-should-generate-summary vm-summarize vm-mutable-frames vm-frame-per-summary
vm-mutable-windows switch-to-buffer vm-message-list vm-auto-decode-mime-messages
vm-preview-current-message run-hooks vm-visit-folder-hook substitute-command-keys
"Auto save file is newer; consider \\[recover-file]. FOLDER IS READ ONLY." throw done
vm-auto-get-new-mail vm-block-new-mail "Checking for new mail for %s..." buffer-name
vm-get-spooled-mail vm-startup-message-displayed vm-display-startup-message
input-pending-p] 7)
vm(nil nil)
* call-interactively(vm)
execute-extended-command(nil)
* call-interactively(execute-extended-command)
--
When I said I don't get a proper stack trace before, I meant that I
was getting the first three lines that you see in the stack trace
above. Now (as Ronan suggested) without any BBDB elcs, we see more.
I don't think it has anything to do with the message, per se - but
anyway I am attaching that too.
What's going on?
Emacs 21.0.97, VM 6.90, BBDB (CVS).
Thanks,
Sridhar
Hi Everyone,
How's everything going? It's been a really long time since I have communicated with a
lot of you. Should I start by saying: Happy New Year??
Anyway, I am finally back from Europe and am settled in NY, with Deutsche Bank.
I have found a place in NJ (after looking for about a couple of months!). Here are my
details:
Address: 55-512 River Drive South
Jersey City, NJ 07310
Home phone: 201-386-5691
Mobile phone: 917-204-6393.
Hope everyone is enjoying their job (if there is such a thing!)
Anyway, keep in touch.
Ciao
Avtar
--
This e-mail may contain confidential and/or privileged information. If you are not the
intended recipient (or have received this e-mail in error) please notify the sender
immediately and destroy this e-mail. Any unauthorised copying, disclosure or
distribution of the material in this e-mail is strictly forbidden.
--
Sridhar Boovaraghavan
[EMAIL PROTECTED]
http://www.geocities.com/sridhar_ml/
