Hi,
Using an up-to-date bbdb git repository, I have this error whenever I
try to complete a name in gnus (no gnus v0.18):
,----
| (wrong-type-argument arrayp ((creation-date . "2009-08-14") (timestamp .
"2011-08-31 08:40:01 +0000") (mail-alias . "famille")))
`----
Here is the full backtrace:
,----[ *Backtrace* ]
| Debugger entered--Lisp error: (wrong-type-argument arrayp ((creation-date .
"2009-08-14") (timestamp . "2011-08-31 08:40:01 +0000") (mail-alias .
"famille")))
| bbdb-cache-lf-name(((creation-date . "2009-08-14") (timestamp . "2011-08-31
08:40:01 +0000") (mail-alias . "famille")))
| bbdb-complete-name()
| message-expand-name()
| completion-at-point()
| message-tab()
| call-interactively(message-tab)
| (progn (setq this-command command) (call-interactively command))
| (if (and (commandp command) (not (eq (quote yas/expand) command))) (progn
(setq this-command command) (call-interactively command)))
| (when (and (commandp command) (not (eq (quote yas/expand) command))) (setq
this-command command) (call-interactively command))
| (let* ((yas/minor-mode nil) (keys-1 (this-command-keys-vector)) (keys-2
(and yas/trigger-key (stringp yas/trigger-key) (read-kbd-macro
yas/trigger-key))) (command-1 (and keys-1 (key-binding keys-1))) (command-2
(and keys-2 (key-binding keys-2))) (command (or (and (not (eq command-1 (quote
yas/expand))) command-1) command-2))) (when (and (commandp command) (not (eq
(quote yas/expand) command))) (setq this-command command) (call-interactively
command)))
| (cond ((eq yas/fallback-behavior (quote return-nil)) nil) ((eq
yas/fallback-behavior (quote call-other-command)) (let* ((yas/minor-mode nil)
(keys-1 (this-command-keys-vector)) (keys-2 (and yas/trigger-key (stringp
yas/trigger-key) (read-kbd-macro yas/trigger-key))) (command-1 (and keys-1
(key-binding keys-1))) (command-2 (and keys-2 (key-binding keys-2))) (command
(or (and (not ...) command-1) command-2))) (when (and (commandp command) (not
(eq (quote yas/expand) command))) (setq this-command command)
(call-interactively command)))) ((and (listp yas/fallback-behavior) (cdr
yas/fallback-behavior) (eq (quote apply) (car yas/fallback-behavior))) (if
(cddr yas/fallback-behavior) (apply (cadr yas/fallback-behavior) (cddr
yas/fallback-behavior)) (when (commandp (cadr yas/fallback-behavior)) (setq
this-command (cadr yas/fallback-behavior)) (call-interactively (cadr
yas/fallback-behavior))))) (t nil))
| (if templates (let ((template (or (and (rest templates)
(yas/prompt-for-template (mapcar ... templates))) (cdar templates)))) (when
template (yas/expand-snippet (yas/template-content template) start end
(yas/template-expand-env template)))) (cond ((eq yas/fallback-behavior (quote
return-nil)) nil) ((eq yas/fallback-behavior (quote call-other-command)) (let*
((yas/minor-mode nil) (keys-1 (this-command-keys-vector)) (keys-2 (and
yas/trigger-key (stringp yas/trigger-key) (read-kbd-macro yas/trigger-key)))
(command-1 (and keys-1 (key-binding keys-1))) (command-2 (and keys-2
(key-binding keys-2))) (command (or (and ... command-1) command-2))) (when (and
(commandp command) (not (eq ... command))) (setq this-command command)
(call-interactively command)))) ((and (listp yas/fallback-behavior) (cdr
yas/fallback-behavior) (eq (quote apply) (car yas/fallback-behavior))) (if
(cddr yas/fallback-behavior) (apply (cadr yas/fallback-behavior) (cddr
yas/fallback-behavior)) (when (commandp (cadr yas/fallback-behavior)) (setq
this-command (cadr yas/fallback-behavior)) (call-interactively (cadr
yas/fallback-behavior))))) (t nil)))
| (let* ((--cl-var-- (if field (save-restriction (narrow-to-region
(yas/field-start field) (yas/field-end field)) (yas/current-key))
(yas/current-key))) (templates (nth 0 --cl-var--)) (start (nth 1 --cl-var--))
(end (nth 2 --cl-var--))) (if templates (let ((template (or (and (rest
templates) (yas/prompt-for-template ...)) (cdar templates)))) (when template
(yas/expand-snippet (yas/template-content template) start end
(yas/template-expand-env template)))) (cond ((eq yas/fallback-behavior (quote
return-nil)) nil) ((eq yas/fallback-behavior (quote call-other-command)) (let*
((yas/minor-mode nil) (keys-1 (this-command-keys-vector)) (keys-2 (and
yas/trigger-key ... ...)) (command-1 (and keys-1 ...)) (command-2 (and keys-2
...)) (command (or ... command-2))) (when (and (commandp command) (not ...))
(setq this-command command) (call-interactively command)))) ((and (listp
yas/fallback-behavior) (cdr yas/fallback-behavior) (eq (quote apply) (car
yas/fallback-behavior))) (if (cddr yas/fallback-behavior) (apply (cadr
yas/fallback-behavior) (cddr yas/fallback-behavior)) (when (commandp (cadr
yas/fallback-behavior)) (setq this-command (cadr yas/fallback-behavior))
(call-interactively (cadr yas/fallback-behavior))))) (t nil))))
| (multiple-value-bind (templates start end) (if field (save-restriction
(narrow-to-region (yas/field-start field) (yas/field-end field))
(yas/current-key)) (yas/current-key)) (if templates (let ((template (or (and
(rest templates) (yas/prompt-for-template ...)) (cdar templates)))) (when
template (yas/expand-snippet (yas/template-content template) start end
(yas/template-expand-env template)))) (cond ((eq yas/fallback-behavior (quote
return-nil)) nil) ((eq yas/fallback-behavior (quote call-other-command)) (let*
((yas/minor-mode nil) (keys-1 (this-command-keys-vector)) (keys-2 (and
yas/trigger-key ... ...)) (command-1 (and keys-1 ...)) (command-2 (and keys-2
...)) (command (or ... command-2))) (when (and (commandp command) (not ...))
(setq this-command command) (call-interactively command)))) ((and (listp
yas/fallback-behavior) (cdr yas/fallback-behavior) (eq (quote apply) (car
yas/fallback-behavior))) (if (cddr yas/fallback-behavior) (apply (cadr
yas/fallback-behavior) (cddr yas/fallback-behavior)) (when (commandp (cadr
yas/fallback-behavior)) (setq this-command (cadr yas/fallback-behavior))
(call-interactively (cadr yas/fallback-behavior))))) (t nil))))
| yas/expand-1()
| yas/expand()
| call-interactively(yas/expand)
| (let (orgstruct-mode) (call-interactively (or (key-binding [(tab)])
(key-binding " ") (quote orgstruct-error))))
| (if (org-context-p (quote headline) (quote item) (and orgstruct-is-++ nil
(quote item-body))) (org-run-like-in-org-mode (quote org-cycle)) (let
(orgstruct-mode) (call-interactively (or (key-binding [(tab)]) (key-binding "
") (quote orgstruct-error)))))
| orgstruct-hijacker-command-102(1)
| call-interactively(orgstruct-hijacker-command-102 nil nil)
`----
How can I resolve this?
Thanks
--
Olivier
------------------------------------------------------------------------------
Special Offer -- Download ArcSight Logger for FREE!
Finally, a world-class log management solution at an even better
price-free! And you'll get a free "Love Thy Logs" t-shirt when you
download Logger. Secure your free ArcSight Logger TODAY!
http://p.sf.net/sfu/arcsisghtdev2dev
_______________________________________________
[email protected]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
