-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Hi,
I just tried to use bbdb-merge-file with bbdb from current cvs (update
today). I get the following backtrace
,----
| Signaling: (invalid-regexp "Unmatched [ or [^")
| string-match("[MDN:5536:EXCH" "[MDN:5536:EXCH")
| (if (string-match s2 s1) s1 (concat s1 (or sep "") s2))
| (cond ((or ... ...) s2) ((or ... ...) s1) (t (if ... s1 ...)))
| bbdb-merge-strings("[MDN:5536:EXCH" "[MDN:5536:EXCH" " ")
| (if (null override) (bbdb-merge-strings (bbdb-record-lastname merge-record)
|lastname " ") (if (eq ... override) lastname (bbdb-record-lastname merge-record)))
| (aset merge-record 1 (if (null override) (bbdb-merge-strings ... lastname " ") (if
|... lastname ...)))
| (bbdb-record-set-lastname merge-record (if (null override) (bbdb-merge-strings ...
|lastname " ") (if ... lastname ...)))
| (progn (setq olddate (bbdb-record-getprop merge-record ...) date (or date
|olddate)) (if (string-lessp olddate date) (setq override ...))
|(bbdb-record-set-firstname merge-record (if ... ... ...)) (bbdb-record-set-lastname
|merge-record (if ... ... ...)) (bbdb-record-set-company merge-record (if ... ...
|...)) (bbdb-record-set-aka merge-record (if ... ... ...)) (bbdb-record-set-net
|merge-record (if ... ... ...)) (bbdb-record-set-phones merge-record (if ... ... ...))
|(bbdb-record-set-addresses merge-record (if ... ... ...)) (let (... ... tmp ...) (or
|... ...)))
| (if merge-record (progn (setq olddate ... date ...) (if ... ...)
|(bbdb-record-set-firstname merge-record ...) (bbdb-record-set-lastname merge-record
|...) (bbdb-record-set-company merge-record ...) (bbdb-record-set-aka merge-record
|...) (bbdb-record-set-net merge-record ...) (bbdb-record-set-phones merge-record ...)
|(bbdb-record-set-addresses merge-record ...) (let ... ...)) (setq merge-record
|(bbdb-create-internal name company nets addrs phones notes))
|(bbdb-record-set-firstname merge-record firstname) (bbdb-record-set-lastname
|merge-record lastname))
| (let* ((firstname ...) (lastname ...) (aka ...) (nets ...) (addrs ...) (phones
|...) (company ...) (notes ...) (name ...) (date ...) olddate) (if (stringp notes)
|(setq notes ...)) (if (null merge-record) (setq merge-record ...)) (if merge-record
|(progn ... ... ... ... ... ... ... ... ... ...) (setq merge-record ...)
|(bbdb-record-set-firstname merge-record firstname) (bbdb-record-set-lastname
|merge-record lastname)) (if (equal ... "") (bbdb-record-set-firstname merge-record
|nil)) (if (equal ... "") (bbdb-record-set-lastname merge-record nil))
|(bbdb-change-record merge-record t) (let (... ...) (if ... ...) (if ... ...))
|(bbdb-record-set-namecache merge-record nil) (if (or ... ...) (bbdb-puthash ...
|merge-record)) (if (bbdb-record-company merge-record) (bbdb-puthash ...
|merge-record)) (bbdb-with-db-buffer (if ... ...)) merge-record)
| bbdb-merge-record(["Hsiao, Yi-Pin" "[MDN:5536:EXCH" nil "Nortel Networks" nil nil
|("[EMAIL PROTECTED]") ((timestamp . "2001-11-17") (newsgroups . "tex"))
|["Hsiao, Yi-Pin [MDN:5536:EXCH" nil #<marker at 5677 in bbdb-database 0x8e6c894>
|nil]] nil nil)
| (lambda (rec) (bbdb-merge-record rec (and match-fun ...) override))(["Hsiao,
|Yi-Pin" "[MDN:5536:EXCH" nil "Nortel Networks" nil nil ("[EMAIL PROTECTED]")
|((timestamp . "2001-11-17") (newsgroups . "tex")) ["Hsiao, Yi-Pin [MDN:5536:EXCH" nil
|#<marker at 5677 in bbdb-database 0x8e6c894> nil]])
| mapcar((lambda (rec) (bbdb-merge-record rec (and match-fun ...) override))
|(["$}Xinix{$" nil nil "the Core" nil nil ("$}xinix{[email protected]") (... ...)
|["$}Xinix{$" nil #<marker at 93 in bbdb-database 0x8268ebc> nil]]
|["'[EMAIL PROTECTED]'" nil nil nil nil nil ("[EMAIL PROTECTED]") (... ...)
|["'[EMAIL PROTECTED]'" nil #<marker at 229 in bbdb-database 0x8268ea4> nil]]
|["'[EMAIL PROTECTED]'" nil nil nil nil nil
|("[EMAIL PROTECTED]") (... ...) ["'[EMAIL PROTECTED]'" nil
|#<marker at 365 in bbdb-database 0x8268e8c> nil]]
|["'[EMAIL PROTECTED]'" nil nil nil nil nil
|("[EMAIL PROTECTED]") (... ...)
|["'[EMAIL PROTECTED]'" nil #<marker at 519 in bbdb-database
|0x8268e74> nil]] ["'[EMAIL PROTECTED]'" nil nil nil nil nil
|("[EMAIL PROTECTED]") (... ...) ["'[EMAIL PROTECTED]'" nil #<marker at 681 in
|bbdb-database 0x8268e2c> nil]] ["'[EMAIL PROTECTED]'" nil nil nil nil nil
|("[EMAIL PROTECTED]") (... ...) ["'[EMAIL PROTECTED]'" nil #<marker at 815 in
|bbdb-database 0x8268e14> nil]] ["Fulton Cr" "(Charles) CR" ("Fulton CR") nil nil nil
|("[EMAIL PROTECTED]") (... ...) ["Fulton Cr (Charles) CR" nil #<marker at 941 in
|bbdb-database 0x8b2bd0c> nil]] ["Anatoli Korkin" "(R40757)" nil nil nil nil
|("[EMAIL PROTECTED]") (... ... ...) ["Anatoli Korkin (R40757)" nil #<marker at
|1068 in bbdb-database 0x8b2bcf4> nil]] ["Sun Tong" "001" nil "personal.yahoo.com" nil
|nil ("[EMAIL PROTECTED]") (... ... ...) ["Sun Tong 001" nil #<marker at 1221 in
|bbdb-database 0x8b2bcc4> nil]] ["00914698" nil nil nil nil nil ("[EMAIL PROTECTED]")
|(... ...) ["00914698" nil #<marker at 1397 in bbdb-database 0x8b2bc94> nil]] ["123"
|nil nil nil nil nil ("[EMAIL PROTECTED]") (...) ["123" nil #<marker at 1515 in
|bbdb-database 0x8b2bc7c> nil]] ["mailer" "2000" nil nil nil nil
|("[EMAIL PROTECTED]") (...) ["mailer 2000" nil #<marker at 1599 in bbdb-database
|0x8b2bc64> nil]] ["P Oster" "2000" nil nil nil nil ("[EMAIL PROTECTED]")
|(... ...) ["P Oster 2000" nil #<marker at 1689 in bbdb-database 0x8b2bc34> nil]]
|["242" nil nil nil nil nil ("[EMAIL PROTECTED]") (... ...) ["242" nil #<marker
|at 1821 in bbdb-database 0x8b2bbd4> nil]] ["ContentsDirect - Chemical Physics
|Letters, 05145, Vol 340 Iss" "3 - 4" nil nil nil nil ("[EMAIL PROTECTED]")
|(... ...) ["ContentsDirect - Chemical Physics Letters, 05145, Vol 340 Iss 3 - 4" nil
|#<marker at 1939 in bbdb-database 0x8b2bb8c> nil]] ["340TeamB" nil nil "Vaults of
|Parnassus: Resource Submission" nil nil ("[EMAIL PROTECTED]") (... ...) ["340TeamB"
|nil #<marker at 2120 in bbdb-database 0x8b2bb74> nil]] ["51cad" nil nil nil nil nil
|("[EMAIL PROTECTED]") (... ...) ["51cad"
|nil #<marker at 2273 in bbdb-database 0x8b2bb5c> nil]] ["63426672" nil nil nil nil
|nil ("[EMAIL PROTECTED]") (... ...) ["63426672" nil #<marker at 2429 in
|bbdb-database 0x8b2bae4> nil]] ["Frank65" "8" nil nil nil nil
|("[EMAIL PROTECTED]") (... ...) ["Frank65 8" nil #<marker at 2547 in
|bbdb-database 0x8b2bacc> nil]] ["Scott L. Anderson\"" "<anderson" nil nil nil nil
|("\"Scott L. Anderson\" <[EMAIL PROTECTED]") (... ...) ["Scott L. Anderson\"
|<anderson" nil #<marker at 2668 in bbdb-database 0x8b2ba9c> nil]] ["C. Porter
|Bassett\"" "<cporter" nil nil nil nil ("\"C. Porter Bassett\" <[EMAIL PROTECTED]") (...
|...) ["C. Porter Bassett\" <cporter" nil #<marker at 2832 in bbdb-database 0x8b2ba84>
|nil]] ["Dwayne E. Heard\"" "<dwayneh" nil nil nil nil ("\"Dwayne E. Heard\"
|<[EMAIL PROTECTED]") (... ...) ["Dwayne E. Heard\" <dwayneh" nil #<marker
|at 2988 in bbdb-database 0x8e0b0dc> nil]] ["Stefan Monnier" "<[EMAIL PROTECTED]>" nil "Yale
|University" nil nil ("[EMAIL PROTECTED]") (... ... ...)
|["Stefan Monnier <[EMAIL PROTECTED]>" nil #<marker at 3154 in bbdb-database 0x8e0b0c4>
|nil]] ["R A \"" "<hwdad" nil nil nil nil ("\"R.A.\" <[EMAIL PROTECTED]") (... ...)
|["R A \" <hwdad" nil #<marker at 3351 in bbdb-database 0x8e0b0ac> nil]] ["James W.
|Jorgenson\"" "<JJ" nil nil nil nil ("\"James W. Jorgenson\" <[EMAIL PROTECTED]") (... ...)
|["James W. Jorgenson\" <JJ" nil #<marker at 3483 in bbdb-database 0x8e0b094> nil]]
|["J. M. Dyke\"" "<jmdyke" nil nil nil nil ("\"J. M. Dyke\" <[EMAIL PROTECTED]") (...
|...) ["J. M. Dyke\" <jmdyke" nil #<marker at 3631 in bbdb-database 0x8e0b07c> nil]]
|["John R. Barker\"" "<jrbarker" nil nil nil nil ("\"John R. Barker\"
|<[EMAIL PROTECTED]") (... ...) ["John R. Barker\" <jrbarker" nil #<marker at 3775 in
|bbdb-database 0x8e6c774> nil]] ["Jack W. Davidson\"" "<jwd" nil nil nil nil ("\"Jack
|W. Davidson\" <[EMAIL PROTECTED]") (... ...) ["Jack W. Davidson\" <jwd" nil #<marker
|at 3929 in bbdb-database 0x8e6c78c> nil]] ["Matthew S. Johnson\"" "<msj" nil nil nil
|nil ("\"Matthew S. Johnson\" <[EMAIL PROTECTED]") (... ...) ["Matthew S. Johnson\" <msj"
|nil #<marker at 4080 in bbdb-database 0x8e6c7a4> nil]] ["James T. Muckerman\""
|"<muckerma" nil nil nil nil ("\"James T. Muckerman\" <[EMAIL PROTECTED]") (... ...)
|["James T. Muckerman\" <muckerma" nil #<marker at 4230 in bbdb-database 0x8e6c7bc>
|nil]] ["Prof. Piergiorgio Casavecchia\"" "<piero" nil nil nil nil ("\"Prof.
|Piergiorgio Casavecchia\" <[EMAIL PROTECTED]") (... ...) ["Prof. Piergiorgio
|Casavecchia\" <piero" nil #<marker at 4390 in bbdb-database 0x8e6c7d4> nil]] ["Paul
|L. Houston\"" "<plh" nil nil nil nil ("\"Paul L. Houston\" <[EMAIL PROTECTED]") (...
|...) ["Paul L. Houston\" <plh" nil #<marker at 4578 in bbdb-database 0x8e6c7ec> nil]]
|["Robert J. Gordon\"" "<rjgordon" nil nil nil nil ("\"Robert J. Gordon\"
|<[EMAIL PROTECTED]") (... ...) ["Robert J. Gordon\" <rjgordon" nil #<marker at 4727 in
|bbdb-database 0x8e6c804> nil]] ["Christos Siopis" "<[EMAIL PROTECTED]>" nil nil
|nil nil ("[EMAIL PROTECTED]") (... ...) ["Christos Siopis <[EMAIL PROTECTED]>"
|nil #<marker at 4883 in bbdb-database 0x8e6c81c> nil]] ["Todd J. Martinez\"" "<tjm"
|nil nil nil nil ("\"Todd J. Martinez\" <[EMAIL PROTECTED]") (... ...) ["Todd J.
|Martinez\" <tjm" nil #<marker at 5031 in bbdb-database 0x8e6c834> nil]] ["Theodore S.
|Dibble\"" "<tsdibble" nil nil nil nil ("\"Theodore S. Dibble\"
|<[EMAIL PROTECTED]") (... ...) ["Theodore S. Dibble\" <tsdibble" nil #<marker
|at 5188 in bbdb-database 0x8e6c84c> nil]] ["Walter E. Brown\"" "<WB" nil nil nil nil
|("\"Walter E. Brown\" <[EMAIL PROTECTED]") (... ...) ["Walter E. Brown\" <WB" nil #<marker
|at 5356 in bbdb-database 0x8e6c864> nil]] ["Chin, Glenn" "[CAR:5H61:EXCH" nil "Nortel
|Networks" nil nil ("[EMAIL PROTECTED]") (... ... ...) ["Chin, Glenn
|[CAR:5H61:EXCH" nil #<marker at 5499 in bbdb-database 0x8e6c87c> nil]] ["Hsiao,
|Yi-Pin" "[MDN:5536:EXCH" nil "Nortel Networks" nil nil ("[EMAIL PROTECTED]")
|(... ...) ["Hsiao, Yi-Pin [MDN:5536:EXCH" nil #<marker at 5677 in bbdb-database
|0x8e6c894> nil]] ["Laurenceau, Michael" "[NCRTP:JK70:EXCH" nil "Nortel Networks" nil
|nil ("[EMAIL PROTECTED]") (... ...) ["Laurenceau, Michael [NCRTP:JK70:EXCH"
|nil #<marker at 5826 in bbdb-database 0x8e6c8ac> nil]] ["Majmudar, Rajib"
|"[TBOR:3T80:SMTPPART" nil "Nortel Networks" nil nil ("[EMAIL PROTECTED]")
|(... ...) ["Majmudar, Rajib [TBOR:3T80:SMTPPART" nil #<marker at 5993 in
|bbdb-database 0x8e6c8c4> nil]] ["[EMAIL PROTECTED]" "\\(formerly\\)" nil "The Smith
|Family" nil nil ("[EMAIL PROTECTED]") (... ...) ["[EMAIL PROTECTED] \\(formerly\\)" nil
|#<marker at 6157 in bbdb-database 0x8e6c8dc> nil]] ["a" nil nil nil nil nil
|("[EMAIL PROTECTED]" "[EMAIL PROTECTED]") (... ...) ["a" nil #<marker at 6297 in
|bbdb-database 0x8e6c8f4> nil]] ["immig" "a-d" nil nil nil nil
|("[EMAIL PROTECTED]") (... ...) ["immig a-d" nil #<marker at 6427 in
|bbdb-database 0x8e6c90c> nil]] ["A.Lecaille" nil nil "/" nil nil
|("[EMAIL PROTECTED]") (... ... ...) ["A.Lecaille" nil #<marker
|at 6547 in bbdb-database 0x8e6c924> nil]] ["maurice" "a." nil nil nil nil
|("[EMAIL PROTECTED]") (... ... ...) ["maurice a." nil #<marker at 6708 in
|bbdb-database 0x8e6c93c> nil]] ["N." "A." nil "Sympatico" nil nil ("[EMAIL PROTECTED]")
|(... ... ...) ["N. A." nil #<marker at 6850 in bbdb-database 0x8e6c954> nil]] ["S."
|"A." nil nil nil nil ("[EMAIL PROTECTED]") (... ...) ["S. A." nil #<marker at
|6989 in bbdb-database 0x8e6c96c> nil]] ["a6p10bf" nil nil nil nil nil
|("[EMAIL PROTECTED]") (...) ["a6p10bf" nil #<marker at 7107 in bbdb-database 0x8e6c984>
|nil]] ["a89merkur" nil nil nil nil nil ("[EMAIL PROTECTED]") (...) ["a89merkur"
|nil #<marker at 7192 in bbdb-database 0x8e6c99c> nil]] ["Al" "Aab" nil nil nil nil
|("[EMAIL PROTECTED]") (... ... ...) ["Al Aab" nil #<marker at 7285 in bbdb-database
|0x8e6c9b4> nil]] ...))
| (let* ((bbdb-live-file bbdb-file) (bbdb-file bbdb-new) (bbdb-live-buffer-name
|bbdb-buffer-name) (bbdb-buffer-name "*BBDB-merge*") (bbdb-buffer nil) (new-records
|...) (bbdb-buffer nil) (bbdb-file bbdb-live-file) (bbdb-buffer-name
|bbdb-live-buffer-name) (bbdb-refile-notes-default-merge-function ...)) (mapcar
|(lambda ... ...) new-records))
| bbdb-merge-file("~/konfigurationsdateien/bbdb-database")
| call-interactively(bbdb-merge-file)
| command-execute(bbdb-merge-file t)
| execute-extended-command(nil)
| call-interactively(execute-extended-command)
`----
The offending record is
,----
| ["Hsiao, Yi-Pin" "[MDN:5536:EXCH" nil "Nortel Networks" nil nil
|("[EMAIL PROTECTED]") ((timestamp . "2002-03-28") (newsgroups . "tex")) nil]
`----
Greetings,
Jochen
- --
Einigkeit und Recht und Freiheit http://www.Jochen-Kuepper.de
Libert�, �galit�, Fraternit� GnuPG key: 44BCCD8E
Sex, drugs and rock-n-roll
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: Processed by Mailcrypt and GnuPG <http://www.gnupg.org/>
iD8DBQE8oq9ZiJ/aUUS8zY4RAuccAJ9UXqWjqO/ZKWUwX1Fq6Ph06NS+wwCgvJrN
5NByS/7UNArb0EmN3Y6+7sc=
=sk1y
-----END PGP SIGNATURE-----
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
