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 _______________________________________________ bbdb-info@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/bbdb-info BBDB Home Page: http://bbdb.sourceforge.net/