On Friday, February 2 2001 05:12:29, Patrick Campbell-Preston wrote:
> > but from a brief eyeball it looks like the problem is that I have a
> > record without a name field - which surely is legal, isn't it?
A fix for this is in the CVS and the patch for the release
version is attached.
Bye Robert
Index: bbdb-com.el
===================================================================
RCS file: /cvsroot/bbdb/bbdb/lisp/bbdb-com.el,v
retrieving revision 1.91
diff -w -r1.91 bbdb-com.el
23c23
< ;; $Id: bbdb-com.el,v 1.91 2001/01/24 19:19:28 waider Exp $
---
> ;; $Id: bbdb-com.el,v 1.93 2001/02/01 16:24:36 fenk Exp $
2003c2003
< (setq the-net (bbdb-extract-address-components pattern)
---
> (setq the-net (bbdb-extract-address-components pattern t)
2243c2243,2244
< (if bbdb-completion-display-record
---
> (when bbdb-completion-display-record
> (bbdb-pop-up-bbdb-buffer bbdb-use-pop-up)
2583a2585,2599
> (defun bbdb-remove-duplicate-nets (records)
> "*Remove duplicate nets from a record."
> (interactive (if (bbdb-do-all-records-p)
> (mapcar 'car bbdb-records)
> (bbdb-current-record)))
> (let (nets cnets)
> (while records
> (setq nets (bbdb-record-net (car records))
> cnets nil)
> (while nets
> (add-to-list 'cnets (car nets))
> (setq nets (cdr nets)))
> (bbdb-record-set-net (car records) cnets)
> (setq records (cdr records)))))
>
2585c2601
< "*Find all records that have duplicate entries for given FIELDS.
---
> "Find all records that have duplicate entries for given FIELDS.
2598c2614,2615
< (and (memq 'name fields)
---
> (when (and (memq 'name fields)
> (bbdb-record-name rec)
2600,2601c2617,2622
< (> (length hash) 1)
< (setq ret (append hash ret)))
---
> (> (length hash) 1))
> (setq ret (append hash ret)
> hit 1)
> (message "BBDB record `%s' causes duplicates, maybe it is equal to a company
>name."
> (bbdb-record-name rec))
> (sit-for 1))
2607,2608c2628,2632
< (if (> (length hash) 1)
< (setq ret (append hash ret)))
---
> (when (> (length hash) 1)
> (setq ret (append hash ret))
> (message "BBDB record `%s' has duplicate net `%s'."
> (bbdb-record-name rec) (car nets))
> (sit-for 1))
2615,2616c2639,2644
< (if (> (length hash) 1)
< (setq ret (append hash ret)))
---
> (when (> (length hash) 1)
> (setq ret (append hash ret)
> hit 3)
> (message "BBDB record `%s' has duplicate aka `%s'"
> (bbdb-record-name rec) (car aka))
> (sit-for 1))
2617a2646
>
2619c2648,2649
< (bbdb-remove-memq-duplicates ret)))
---
>
> (reverse (bbdb-remove-memq-duplicates ret))))
_______________________________________________
[EMAIL PROTECTED]
http://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
