bbdb-1.50
vm-5.62
emacs 19.22 compiled under irix 5.x
When I have:
(setq
bbdb-auto-notes-alist '(
("Newsgroups" (".*" newsgroup 0))
("Organization" (".*" company 0 t))
("Subject" (".*" last-subj 0 t))
("From" (".*" mail-folder gec-auto-folder-create t))
))
I occasionally get the following backtrace when moving between
messages in the vm summary using N and P. The problem goes away when
I remove the "Subject" part of the auto-notes-alist. The record in
the backtrace corresponds to the person who sent the message I was
moving to. I get the problem independent of using show-temp-buffer.el
and transient-mark-mode.
Signalling: (mark-inactive)
signal(mark-inactive nil)
mark()
bbdb-redisplay-records()
ad-real-byte-code("@ !p
byte-code("@ !p
bbdb-maybe-update-display(["Andrew" "Peebles" nil nil (["home" 510 793 9067 0]
["work" 415 390 4172 0]) (["home" "5168 Dryden Ct." "" "" "Newark" "CA" 94560])
("[EMAIL PROTECTED]" "peebles") ((mail-alias . "tools, peebles") (timestamp . "11
Mar 94") (mail-folder . "peebles") (creation-date . "23 Feb 94") (last-subj . "(Fwd)
Re: peebles has released Vision")) ["Andrew Peebles" nil #<marker at 186192 in .bbdb>
nil]])
bbdb-auto-notes-hook(["Andrew" "Peebles" nil nil (["home" 510 793 9067 0] ["work"
415 390 4172 0]) (["home" "5168 Dryden Ct." "" "" "Newark" "CA" 94560])
("[EMAIL PROTECTED]" "peebles") ((mail-alias . "tools, peebles") (timestamp . "11
Mar 94") (mail-folder . "peebles") (creation-date . "23 Feb 94") (last-subj . "(Fwd)
Re: peebles has released Vision")) ["Andrew Peebles" nil #<marker at 186192 in .bbdb>
nil]])
bbdb-invoke-hook(bbdb-notice-hook ["Andrew" "Peebles" nil nil (["home" 510 793 9067
0] ["work" 415 390 4172 0]) (["home" "5168 Dryden Ct." "" "" "Newark" "CA" 94560])
("[EMAIL PROTECTED]" "peebles") ((mail-alias . "tools, peebles") (timestamp . "11
Mar 94") (mail-folder . "peebles") (creation-date . "23 Feb 94") (last-subj . "(Fwd)
Re: peebles has released Vision")) ["Andrew Peebles" nil #<marker at 186192 in .bbdb>
nil]])
bbdb-annotate-message-sender("\"Andrew Peebles\" <[EMAIL PROTECTED]>" t t
nil)
bbdb/vm-update-record(nil)
bbdb/vm-pop-up-bbdb-buffer(nil)
bbdb/vm-update-record()
funcall(bbdb/vm-update-record)
mapcar(funcall (bbdb/vm-update-record hilit-rehighlight-buffer-quietly))
run-hooks(vm-select-message-hook)
vm-run-message-hook([[#<marker at 279028 in INBOX> #<marker at 279086 in INBOX>
#<marker at 279962 in INBOX> #<marker at 280127 in INBOX> #<marker at 281309 in INBOX>
#<marker at 281310 in INBOX>] ["90" " 90" nil #<marker at 6668 in INBOX Summary>
#<marker at 6756 in INBOX Summary> <<>> <-- From_ "94" #<buffer INBOX> 0
(<9403100958\.ZM6664@toeman\.mti\.sgi\.com>) nil nil nil nil] [nil nil nil nil nil nil
nil nil nil] ["1182" "Thu" "10" "March" "1994" "09:58:36" "-0800" "Andrew Peebles"
"[EMAIL PROTECTED]" "<[EMAIL PROTECTED]>" "43" "(Fwd) Re:
peebles has released Vision" "^From:" nil nil "3" "1994031017:58:36" "(Fwd) Re:
peebles has released Vision" (number " " mark " Andrew Peebles Mar 10 43/1182
" thread-indent "\"(Fwd) Re: peebles has released Vision\"\n") nil] [nil <v> nil nil
nil]] vm-select-message-hook)
vm-preview-current-message()
vm-next-message(-1 1 1)
vm-previous-message(1 1 1)
call-interactively(vm-previous-message)
In case it's relevant, gec-auto-folder-create is:
which commits the sin of referencing the free variable record.
(defun gec-auto-folder-create (string)
(let
(
(old-field-value (bbdb-record-getprop record 'mail-folder))
)
(setq string
(cond (old-field-value old-field-value)
((string-match "<\\([^>@%]+\\)" string)
(substring string (match-beginning 1) (match-end 1)))
((string-match "\\([^@%]+\\)[@%]" string)
(substring string (match-beginning 1) (match-end 1)))
((string-match "\\(\\w+\\) " string)
(substring string (match-beginning 1) (match-end 1)))
(t (read-string "Enter mail-folder for this entry: " nil))))
string))
Any suggestions as to what is going on? I also stop getting the
message if I set the mark someplace in the *BBDB* buffer.
