Hello,
I am having a problem with BBDB when attempting to burst a digest message
where a message author is in the BBDB (trace below). What should happen is
that bbdb/gnus-summary-get-author simply indicates that the user is known
to the BBDB (with a *).
Clearly, there is something amiss with the function or with the BBDB entry,
but I don't see anything obviously wrong with the BBDB entry. This was
happening with version 2.32 as well.
Thanks,
Jack Vinson
Emacs : GNU Emacs 20.7.1 (i386-*-windows95.1212)
of Tue Jun 13 2000 on buffy
Package: BBDB 2.33
Gnus: version 5.8.8
current state:
==============
(setq
emacs-version "20.7.1"
bbdb-version-date "$Date: 2001/05/21 11:36:47 $"
bbdb-file-format 6
bbdb-no-duplicates-p nil
bbdb-after-change-hook '(bbdb/gnus-score-invalidate-alist)
bbdb-after-read-db-hook nil
bbdb-always-add-addresses nil
bbdb-auto-notes-alist '(("From"
("@keds.com" company
"Knowledge Express Data Systems")
("ht.com" company "Hewlett Packard")
("pppl.gov" company "Princeton Plasma Physics Lab")
("wpafb.af.mil" company "Wright Patterson AFB")
("gsfc.nasa.gov" company
"Goddard Space Flight Center")
)
("Cc" ("bbdb@" . "BBDB mailing list")
("supercite@" . "SuperCite list")
("ding@ifi" . "Ding mailing list")
("qphysics@" . "Qphysics list")
("veg@flevel" . "Vegetarian list")
("[EMAIL PROTECTED]" . "NTemacs list")
("tandem@hobbes" . "Tandem mailing list")
("[EMAIL PROTECTED]" . "CAST list")
("[EMAIL PROTECTED]" . "CAST list")
("[EMAIL PROTECTED]" . "BikeChi")
("[EMAIL PROTECTED]" . "EBC")
("[EMAIL PROTECTED]" .
"Midwest Rides List")
("[EMAIL PROTECTED]" . "CCC")
("[EMAIL PROTECTED]" . "CATS")
("[EMAIL PROTECTED]" . "ThinkDB")
("[EMAIL PROTECTED]" . "Veggie")
("[EMAIL PROTECTED]" . "DateBook")
("[EMAIL PROTECTED]" . "RoboRally")
("[EMAIL PROTECTED]" . "Watchers")
("@chicagoaa.org" . "CASO email"))
("To" ("bbdb@" . "BBDB mailing list")
("supercite@" . "SuperCite list")
("ding@ifi" . "Ding mailing list")
("qphysics@" . "Qphysics list")
("veg@flevel" . "Vegetarian list")
("[EMAIL PROTECTED]" . "NTemacs list")
("tandem@hobbes" . "Tandem mailing list")
("[EMAIL PROTECTED]" . "CAST list")
("[EMAIL PROTECTED]" . "CAST list")
("[EMAIL PROTECTED]" . "BikeChi")
("[EMAIL PROTECTED]" . "EBC")
("[EMAIL PROTECTED]" .
"Midwest Rides List")
("[EMAIL PROTECTED]" . "CCC")
("[EMAIL PROTECTED]" . "CATS")
("[EMAIL PROTECTED]" . "ThinkDB")
("[EMAIL PROTECTED]" . "Veggie")
("[EMAIL PROTECTED]" . "DateBook")
("[EMAIL PROTECTED]" . "RoboRally")
("[EMAIL PROTECTED]" . "Watchers")
("@chicagoaa.org" . "CASO email"))
("Organization" (".*" company 0)))
bbdb-auto-revert-p nil
bbdb-canonicalize-net-hook '(lambda (addr)
(cond
((string-match
"\\`\\([^@]+@\\).*\\.\\(CS\\.CMU\\.EDU\\)\\'"
addr)
(concat
(substring addr (match-beginning 1)
(match-end 1))
(substring addr (match-beginning 2)
(match-end 2))
)
)
((string-match
"\\`\\([^@]+@\\)\\(blue\\|red\\|widget\\|stipple\\|be\\|mosh\\|twist\\|home\\|emily\\|sunrise\\|pheugal\\|lindy\\)\\.seas\\.upenn\\.edu\\'"
addr)
(concat
(substring addr (match-beginning 1)
(match-end 1))
"eniac.seas.upenn.edu")
)
((string-match
"\\`\\([^@]+@\\)\\(linus\\|groucho\\|buster\\|schroeder\\|dusty\\|lucy\\)\\.informatik\\.uni-dortmund\\.de\\'"
addr)
(concat
(substring addr (match-beginning 1)
(match-end 1))
"woodstock.informatik.uni-dortmund.de")
)
((string-match
"\\`\\([^@]+@\\)\\(spectrum\\|mauve\\|pleiades\\)\\.cs\\.bucknell\\.edu\\'" addr)
(concat
(substring addr (match-beginning 1)
(match-end 1))
"ursa.cs.bucknell.edu")
)
((string-match
"\\`\\([^@]+@\\)\\(mail\\|mail.\\)\\.sas\\.upenn\\.edu\\'" addr)
(concat
(substring addr (match-beginning 1)
(match-end 1))
"sas.upenn.edu")
)
((string-match
"\\`\\([^@]+@\\).*\\.\\(me\\.calpoly\\.edu\\)\\'"
addr)
(concat
(substring addr (match-beginning 1)
(match-end 1))
(substring addr (match-beginning 2)
(match-end 2))
)
)
((string-match
"\\`\\([^@]+@\\).*\\.\\(cs\\.wisc\\.edu\\)\\'" addr)
(concat
(substring addr (match-beginning 1)
(match-end 1))
(substring addr (match-beginning 2)
(match-end 2))
)
)
((string-match
"\\`\\(kuehl+@\\).*\\.\\(uni-konstanz.de\\)\\'" addr)
"[EMAIL PROTECTED]")
(t addr))
)
bbdb-canonicalize-redundant-nets-p t
bbdb-case-fold-search t
bbdb-change-hook 'bbdb-timestamp-hook
bbdb-completion-display-record nil
bbdb-completion-type nil
bbdb-create-hook 'bbdb-creation-date-hook
bbdb-default-area-code 847
bbdb-default-domain nil
bbdb-define-all-aliases-field 'mail-alias
bbdb-dial-local-prefix nil
bbdb-dial-local-prefix-alist '(((if bbdb-default-area-code
(format "(%03d)" bbdb-default-area-code) "")
"")
)
bbdb-dial-long-distance-prefix nil
bbdb-dwim-net-address-allow-redundancy nil
bbdb-electric-p nil
bbdb-elided-display nil
bbdb-elided-display-fields nil
bbdb-elided-display-name-end 48
bbdb-extract-address-component-handler 'message
bbdb-extract-address-component-ignore-regexp
"\\(\\(undisclosed\\|unlisted\\)[^,]*recipients\\)\\|no To-header on input"
bbdb-extract-address-component-regexps '(("\"'\\([^\"]*\\)'\"\\s-*<\\([^>]+\\)>"
(bbdb-clean-username
(match-string 1 adstring)
)
2)
("\"\\([^\"]*\\)\"\\s-*<\\([^>]+\\)>"
(bbdb-clean-username
(match-string 1 adstring)
)
2)
("\\(\\b[^<,]*\\b\\)\\s-*<\\([^>]+\\)>" 1 2)
("<\\([^>]+\\)>" nil 2)
("\\(\\b[^<\",()]+\\b\\)\\s-*(\\([^)]+\\))"
2 1)
("\\b\\(\\([^@]+\\.[^@]+\\)@[0-9a-z._-]+\\)\\b"
(bbdb-clean-username
(match-string 2 adstring)
)
1)
("\\b\\(\\([0-9a-z._-]+\\)@[0-9a-z._-]+\\)\\b" nil 1)
("\\b\\([0-9a-z._-]+\\)\\b" nil 1))
bbdb-file "C:/.bbdb"
bbdb-file-remote nil
bbdb-file-remote-save-always t
bbdb-finger-host-field 'finger-host
bbdb-get-addresses-from-headers '("From" "Resent-From" "Reply-To")
bbdb-get-addresses-headers '("From" "Resent-From" "Reply-To" "Resent-To"
"Resent-CC" "To" "CC" "BCC")
bbdb-get-addresses-to-headers '("Resent-To" "Resent-CC" "To" "CC" "BCC")
bbdb-get-only-first-address-p nil
bbdb-gui nil
bbdb-hashtable-size 1021
bbdb-ignore-most-messages-alist nil
bbdb-ignore-selected-messages-confirmation nil
bbdb-ignore-some-messages-alist '(("From" . "InSync Online")
("From" . "daemon")
("From" . "mailer-daemon")
("From" . "delivery system")
("From" . "postmaster")
("From" . "listmaster")
("From" . "post office") ("From" . "root")
("From" . "unknown") ("From" . "operator")
("From" . "delivery") ("From" . "administ")
("From" . "via the vacation program")
("From" . "hotmail.com") ("From" . "^$"))
bbdb-info-file nil
bbdb-initialize-hook nil
bbdb-list-hook nil
bbdb-load-hook '((lambda nil (load "bbdb-extras")))
bbdb-message-caching-enabled t
bbdb-message-marker-field 'mark-char
bbdb-mode-hook nil
bbdb-new-nets-always-primary nil
bbdb-north-american-phone-numbers-p t
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 nil
bbdb-notice-hook '(bbdb-auto-notes-hook)
bbdb-offer-save t
bbdb-pop-up-elided-display nil
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 0
bbdb-send-mail-style nil
bbdb-silent-running nil
bbdb-use-alternate-names t
bbdb-user-mail-names "jvinson@.*"
bbdb-write-file-hooks '(bbdb-write-file-hook-fn)
bbdb/gnus-lines-and-from-length 18
bbdb/gnus-split-crosspost-default nil
bbdb/gnus-split-default-group "mail.misc"
bbdb/gnus-split-myaddr-regexp "^Valued Sony Customer$\\|^Valued Sony
Customer@\\([-a-z0-9]+\\.\\)*yahoo.com$"
bbdb/gnus-split-nomatch-function nil
bbdb/gnus-split-private-field 'gnus-private
bbdb/gnus-split-public-field 'gnus-public
bbdb/gnus-summary-mark-known-posters t
bbdb/gnus-summary-show-bbdb-names t
bbdb/mail-auto-create-p t
bbdb/news-auto-create-p 'bbdb-ignore-some-messages-hook
bbdb/vm-set-auto-folder-alist-field 'vm-folder
features '(reporter debug gnus-cus view tmm electric gnus-dup mailalias
smtpmail time-stamp ispell supercite regi gin-mode browse-url
html-mode jsp-html-helper-mode asp-html-helper-mode
php-html-helper-mode html-helper-mode tempo cc-mode cc-cmds
cc-styles cc-align cc-langs cc-engine cc-vars cc-defs derived
cc-menus bookmark pp bbdb-hooks sort gnus-cite gnus-async
gnus-score score-mode mail-extr gnus-ml gnus-msg bbdb-gnus
bbdb-snarf nntp nndoc env pop3 nnslashdot nnweb w3-forms w3
w3-menu url-cookie url-cache url-news url-gw w3-java w3-script
w3-jscript w3-elisp cus-edit cus-start cus-load w3-emulate w3-auto
w3-parse url md5 mm w3-display w3-mouse w3-imap w3-widget w3-vars
w3-keyword w3-cus url-parse url-vars css font devices ange-ftp
comint ring mule-sysdp mini-cl cl cl-19 w3-cfg w3-sysdp nnfolder
nndraft nnmh nnml nnoo gnus-cache gnus-art mm-uu wid-edit mm-view
gnus-sum gnus-topic gnus-group gnus-undo nnmail mail-source
format-spec gnus-start gnus-range gnus-spec gnus-int gnus-win gnus
gnus-ems byte-optimize bytecomp byte-compile backquote mailabbrev
sendmail bbdb-com bbdb timezone message mml easymenu mm-decode
mm-encode mailcap mm-bodies uudecode mail-parse rfc2045 rfc2231
rfc2047 qp ietf-drums mailheader gnus-util time-date parse-time
nnheader mail-utils mm-util mail-prsvr timer time font-lock
regexp-opt cus-face jka-compr uniquify bbdb-autoloads advice
advice-preload fontset ediff-hook vc-hooks lisp-float-type dos-w32
disp-table ls-lisp lisp-mode page menu-bar select scroll-bar mouse
facemenu faces frame romanian slovak czech slovenian case-table
base64 format mule custom widget)
)
Signaling: (wrong-type-argument listp ["Gene" "Grubbs" nil nil nil nil
("[EMAIL PROTECTED]") "Tandem mailing list" ["Gene Grubbs" "grubbsgene" #<marker at
264396 in .bbdb> nil]])
bbdb/gnus-summary-get-author([26 " Frame Warranties: I have a 1989 Burley warranty
card" "\"Gene Grubbs\" <[EMAIL PROTECTED]>" "Fri, 4 May 2001 18:18:57 -0700"
"<[EMAIL PROTECTED]>" nil 0 63 nil ((To .
"<[EMAIL PROTECTED]>,"))])
gnus-user-format-function-d([26 " Frame Warranties: I have a 1989 Burley warranty
card" "\"Gene Grubbs\" <[EMAIL PROTECTED]>" "Fri, 4 May 2001 18:18:57 -0700"
"<[EMAIL PROTECTED]>" nil 0 63 nil ((To .
"<[EMAIL PROTECTED]>,"))])
(eval (gnus-user-format-function-d gnus-tmp-header))
(let ((val ...)) (if (> ... 20) (substring val 0 20) val))
(format "%c%4d: %-20s%c" gnus-tmp-opening-bracket gnus-tmp-lines (let (...) (if ...
... val)) gnus-tmp-closing-bracket)
(insert (format "%c%4d: %-20s%c" gnus-tmp-opening-bracket gnus-tmp-lines (let ...
...) gnus-tmp-closing-bracket))
(progn (insert (format "%c%4d: %-20s%c" gnus-tmp-opening-bracket gnus-tmp-lines ...
gnus-tmp-closing-bracket)) (point))
(gnus-put-text-property (point) (progn (insert ...) (point)) gnus-mouse-face-prop
gnus-mouse-face)
(progn (insert gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char
gnus-tmp-indentation) (gnus-put-text-property (point) (progn ... ...)
gnus-mouse-face-prop gnus-mouse-face) (insert " " gnus-tmp-subject-or-nil "\n"))
eval((progn (insert gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char
gnus-tmp-indentation) (gnus-put-text-property (point) (progn ... ...)
gnus-mouse-face-prop gnus-mouse-face) (insert " " gnus-tmp-subject-or-nil "\n")))
gnus-summary-prepare-threads((([1 "Fw: Demo day" "\"MBS Tandems\"
<[EMAIL PROTECTED]>" "Thu, 3 May 2001 21:42:15 -0700"
"<001f01c0d454$98b34240$96d0fea9@vandevelde2>" nil 0 9 nil ...]) ("Re: Replacing
broken spokes on the road/tour " ([2 "Re: Replacing broken spokes on the road/tour "
"\"Gear-To-Go Tandems\" <[EMAIL PROTECTED]>" "Thu, 3 May 2001 22:11:14 -0400"
"<00a101c0d43f$7f755d00$[EMAIL PROTECTED]>" nil 0 37 nil ...]) ([8 "Re: Replacing
broken spokes on the road/tour " "\"Ed Downing\" <[EMAIL PROTECTED]>" "Fri, 4
May 2001 07:26:35 -5" "<[EMAIL PROTECTED]>" nil 0 20 nil ...]) ([14
"Re: Replacing broken spokes on the road/tour" "Mark Hornblower <[EMAIL PROTECTED]>"
"Fri, 4 May 2001 10:00:16 -0400" "<p05100301b71866328036@[24.226.80.52]>" nil 0 27 nil
...]) ([15 "Re: Replacing broken spokes on the road/tour" "alex wetmore
<[EMAIL PROTECTED]>" "Fri, 4 May 2001 08:35:26 -0700 (PDT)"
"<[EMAIL PROTECTED]>" nil 0 29 nil ...]!
) ([19 "Re: Replacing broken spokes on the road/tour " "\"Ed Downing\"
<[EMAIL PROTECTED]>" "Fri, 4 May 2001 12:24:32 -5"
"<[EMAIL PROTECTED]>" nil 0 23 nil ...]) ([23 "Re: Replacing broken
spokes on the road/tour " "\"Eric Salathe\" <[EMAIL PROTECTED]>" "Fri, 4 May 2001
11:25:15 -0700" "<[EMAIL PROTECTED]>" nil 0 24 nil ...])) ([3 "Re:
travel in Banff/Jasper, BC & in Olympia National Forest and Seattle off islands"
"\"Ken Iisaka\" <[EMAIL PROTECTED]>" "Thu, 3 May 2001 23:17:33 -0700"
"<01f501c0d461$e836de00$[EMAIL PROTECTED]>" nil 0 33 nil ...]) ([4 "Re: Replacing
broken spokes on the road/tour > You can generally remove " "James D Annan
<[EMAIL PROTECTED]>" "Fri, 04 May 2001 08:44:10 +0000" "<[EMAIL PROTECTED]>" nil
0 19 nil ...]) ("Re: hugi / coda hub question" ([5 "hugi / coda hub question" "\"Clive
George\" <[EMAIL PROTECTED]>" "Fri, 4 May 2001 10:58:21 +0100"
"<000301c0d480$c347f830$[EMAIL PROTECTED]!
.co.uk>" nil 0 14 nil ...]) ([6 "Re: hugi / coda hub question" "Hans Christoph Timm
<[EMAIL PROTECTED]>" "Fri, 04 May 2001 12:05:15 +0200"
"<[EMAIL PROTECTED]>" nil 0 17 nil nil])) ("Re: Puncture proof Tire"
([7 "Re: Puncture proof Tire" "\"Clive George\" <[EMAIL PROTECTED]>" "Fri, 4
May 2001 11:15:59 +0100" "<004301c0d483$38311940$[EMAIL PROTECTED]>"
nil 0 16 nil ...]) ([10 "Re: Puncture proof Tire" "\"Gear-To-Go Tandems\"
<[EMAIL PROTECTED]>" "Fri, 4 May 2001 08:17:48 -0400"
"<00d801c0d494$3ba08dc0$[EMAIL PROTECTED]>" nil 0 41 nil ...])) ([9 "Re: Replacing
broken spokes on the road/tour > You can " "Lynn and Roger Brucker
<[EMAIL PROTECTED]>" "Fri, 04 May 2001 07:32:07 -0400"
"<[EMAIL PROTECTED]>" nil 0 13 nil ...]) ("Re: Broken Pawl on PW, how
strong are they?" ([11 "Broken Pawl on PW, how strong are they?" "\"Arlyn Aronson\"
<[EMAIL PROTECTED]>" "Fri, 4 May 2001 07:42:15 -0500" "<009701c0d497$cc5!
756c0$cabc2140@74wp901>" nil 0 39 nil ...]) ([13 "Re: Broken Pawl on PW, how strong
are they?" "\"Gear-To-Go Tandems\" <[EMAIL PROTECTED]>" "Fri, 4 May 2001 08:58:55
-0400" "<010901c0d499$f9ff0b20$[EMAIL PROTECTED]>" nil 0 32 nil ...]) ([17 "Re:
Broken Pawl on PW, how strong are they?" "Peter Jon White
<[EMAIL PROTECTED]>" "Fri, 04 May 2001 12:13:15 -0400"
"<[EMAIL PROTECTED]>" nil 0 40 nil ...])
([21 "Re: Broken Pawl on PW, how strong are they?" "alex wetmore <[EMAIL PROTECTED]>"
"Fri, 4 May 2001 09:48:46 -0700 (PDT)" "<[EMAIL PROTECTED]>" nil
0 48 nil ...]) ([22 "Re: Broken Pawl on PW, how strong are they?"
"[EMAIL PROTECTED]" "Fri, 04 May 2001 18:11:03 +0000"
"<[EMAIL PROTECTED]>" nil 0
46 nil ...]) ([24 "Re: Broken Pawl on PW, how strong are they?" "Peter Jon White
<[EMAIL PROTECTED]>" "Fri, 04 May 2001 14:40:09 -!
0400" "<[EMAIL PROTECTED]>" nil 0 38 nil
...]) ([25 "Re: Broken Pawl on PW, how strong are they?" "[EMAIL PROTECTED]" "Fri, 04
May 2001 15:10:36 EDT" "<[EMAIL PROTECTED]>" nil 0 12 nil ...])) ([12
"remove the drum in reverse?" "\"Arlyn Aronson\" <[EMAIL PROTECTED]>" "Fri, 4 May
2001 07:41:56 -0500" "<009601c0d497$cb4327a0$cabc2140@74wp901>" nil 0 47 nil ...])
("RE: BOB-BUGGER" ([16 "RE: BOB-BUGGER" "\"Alan Felsen\" <[EMAIL PROTECTED]>" "Fri, 4
May 2001 12:06:43 -0400" "<006701c0d4b4$372446e0$3414fea9@oemcomputer>" nil 0 18 nil
...]) ([18 "RE: BOB-BUGGER" "\"Ledbetter, Scott E\" <[EMAIL PROTECTED]>"
"Fri, 4 May 2001 10:13:48 -0600 "
"<[EMAIL PROTECTED]>" nil 0 30 nil ...]))
([20 "Duck Tape (Was:Replacing broken spokes on the road/tour)"
"[EMAIL PROTECTED]" "Fri, 04 May 2001 16:40:51 +0000"
"<[EMAIL PROTECTED]!
t.net>" nil 0 23 nil ...]) ([26 " Frame Warranties: I have a 1989 Burley warranty
card" "\"Gene Grubbs\" <[EMAIL PROTECTED]>" "Fri, 4 May 2001 18:18:57 -0700"
"<[EMAIL PROTECTED]>" nil 0 63 nil ...]) ([27
"They're here..." "[EMAIL PROTECTED]" "Sat, 05 May 2001 00:49:25 +0000"
"<[EMAIL PROTECTED]>" nil 0
8 nil ...])))
gnus-summary-prepare()
gnus-summary-read-group-1("nndoc:nnml:tandem-17977" t t nil nil nil)
gnus-summary-read-group("nndoc:nnml:tandem-17977" t t nil nil nil nil)
gnus-group-read-group(t t "nndoc:nnml:tandem-17977" nil)
_______________________________________________
[EMAIL PROTECTED]
http://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
