Re: Bug: bbdb-merge-interactively and bbdb-create-internal treat NET differently

On Sun, Feb 01 2004, Ronan Waide wrote:

> I've tweaked this to automatically listify the mail addresses if
> they're not already in list form. 

Thanks.

> Try what's in CVS and see if it works for you.

`bbdb-merge-interactively' works now.  But another (unrelated?)
problem appeared:

Given the minimal BBDB:

--8<---------------cut here---------------start------------->8---
;;; file-version: 6
;;; user-fields: (birthday www category expire gnokii)
["Do" "Li" nil nil nil nil ("do.li@invalid") ((creation-date . "2004-02-09") 
(timestamp . "2004-02-09")) nil]
--8<---------------cut here---------------end--------------->8---

I get the following backtrace:

,----
| Debugger entered--Lisp error: (wrong-type-argument arrayp (["Do" "Li"
|   nil nil nil nil ("do.li@invalid") ((creation-date . "2004-02-09")
|   (timestamp . "2004-02-09")) ["Do Li" nil #<marker at 76 in tst.bbdb> nil]]))
|   bbdb-record-name((["Do" "Li" nil nil nil nil ("do.li@invalid")
|   (... ...) ["Do Li" nil #<marker at 76 in tst.bbdb> nil]]))
|   bbdb-record-edit-net(["Do" "Li" nil nil nil nil ("do.li@invalid")
|   ((creation-date . "2004-02-09") (timestamp . "2004-02-09")) ["Do Li"
|   nil #<marker at 76 in tst.bbdb> nil]])
|   bbdb-record-edit-field-internal(["Do" "Li" nil nil nil nil
|   ("do.li@invalid") ((creation-date . "2004-02-09") (timestamp .
|   "2004-02-09")) ["Do Li" nil #<marker at 76 in tst.bbdb> nil]] net)
|   apply(bbdb-record-edit-field-internal ["Do" "Li" nil nil nil nil
|   ("do.li@invalid") ((creation-date . "2004-02-09") (timestamp .
|   "2004-02-09")) ["Do Li" nil #<marker at 76 in tst.bbdb> nil]] net)
|   bbdb-edit-current-field()
|   call-interactively(bbdb-edit-current-field)
`----

Steps to reproduce:

- emacs -l /tmp/tst-bbdb.el [1]

- `M-x bbdb RET RET' ==>

,----
| Do Li
|             net: do.li@invalid
`----

- Put cursor on the net address an hit `e RET'

Note, that setting `bbdb-no-duplicates-p' to t is needed to reproduce
this bug.

Bye, Reiner.

[1]
,----[ tst-bbdb.el ]
| (setq
|  bbdb-file "/tmp/tst.bbdb"
|  bbdb-no-duplicates-p t)
| (require 'bbdb)
| (bbdb-initialize 'gnus 'message 'w3)
| (setq debug-on-error t)
`----
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/



-------------------------------------------------------
The SF.Net email is sponsored by EclipseCon 2004
Premiere Conference on Open Tools Development and Integration
See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
http://www.eclipsecon.org/osdn
_______________________________________________
bbdb-info@xxxxxxxxxxxxxxxxxxxxx
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/