Looks like bbdb-format-record got re-written lately. It does not
handle the case where bbdb-record-raw-notes returned a string (in
which case it should be treated like a note).
I'm not sure that a better fix would be to have bbdb-record-raw-notes
return '(notes . "string") when it would otherwise return "string"
Index: ChangeLog
===================================================================
RCS file: /cvsroot/bbdb/bbdb/ChangeLog,v
retrieving revision 2.117
diff -u -r2.117 ChangeLog
--- ChangeLog 2001/09/20 16:55:13 2.117
+++ ChangeLog 2001/11/01 08:00:05
@@ -1,3 +1,8 @@
+2001-11-01 Matt Armstrong <[EMAIL PROTECTED]>
+
+ * lisp/bbdb.el (bbdb-format-record): Handle case where
+ bbdb-record-raw-notes returns a string for the notes.
+
2001-09-20 Robert Fenk <[EMAIL PROTECTED]>
* lisp/bbdb.el (bbdb-create-hook), (bbdb-notice-hook):
Index: lisp/bbdb.el
===================================================================
RCS file: /cvsroot/bbdb/bbdb/lisp/bbdb.el,v
retrieving revision 1.171
diff -u -r1.171 bbdb.el
--- lisp/bbdb.el 2001/10/14 19:47:20 1.171
+++ lisp/bbdb.el 2001/11/01 08:00:08
@@ -1649,10 +1649,12 @@
(omit-list (bbdb-display-layout-get-option layout-spec 'omit))
(order-list (bbdb-display-layout-get-option layout-spec 'order))
(all-fields (append '(phones addresses net aka)
- (mapcar (lambda (r) (car r))
- (bbdb-record-raw-notes record))))
+ (let ((notes (bbdb-record-raw-notes record)))
+ (if (stringp notes)
+ '(notes)
+ (mapcar (lambda (r) (car r)) notes)))))
format-function field-list)
(if (functionp omit-list)
(setq omit-list (funcall omit-list record layout)))
(if (functionp order-list)
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
