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 ("[EMAIL PROTECTED]") ((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 ("[EMAIL PROTECTED]") ((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 ("[EMAIL PROTECTED]")
| (... ...) ["Do Li" nil #<marker at 76 in tst.bbdb> nil]]))
| bbdb-record-edit-net(["Do" "Li" nil nil nil nil ("[EMAIL PROTECTED]")
| ((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
| ("[EMAIL PROTECTED]") ((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
| ("[EMAIL PROTECTED]") ((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: [EMAIL PROTECTED]
`----
- 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
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
