I search for a Name, get two records of the same Person, press `r'
and this happens.
Thanks a lot,
Aldo
"Debug-on-Error":
Signaling: (invalid-function (bbdb-refile-notes-string-least))
(bbdb-refile-notes-string-least)("2001-07-18" "2002-03-03")
funcall((bbdb-refile-notes-string-least) "2001-07-18" "2002-03-03")
(setcdr tmp (funcall (or ... bbdb-refile-notes-default-merge-function) (cdr tmp)
(cdr ...)))
(if (setq tmp (assq ... n1)) (setcdr tmp (funcall ... ... ...)) (setq n1 (nconc n1
...)))
(while n2 (if (setq tmp ...) (setcdr tmp ...) (setq n1 ...)) (setq n2 (cdr n2)))
(progn (or (listp n1) (setq n1 ...)) (or (listp n2) (setq n2 ...)) (while n2 (if ...
... ...) (setq n2 ...)) (bbdb-record-set-raw-notes new-record n1))
(or (equal n1 n2) (progn (or ... ...) (or ... ...) (while n2 ... ...)
(bbdb-record-set-raw-notes new-record n1)))
(let ((n1 ...) (n2 ...) tmp) (or (equal n1 n2) (progn ... ... ... ...)))
(let ((name ...) (comp ...)) (if extra-name (setq old-aka ...))
(bbdb-record-set-phones new-record (bbdb-merge-lists! ... ... ...))
(bbdb-record-set-addresses new-record (bbdb-merge-lists! ... ... ...))
(bbdb-record-set-company new-record comp) (let (... ... tmp) (or ... ...))
(bbdb-record-set-firstname new-record (car name)) (bbdb-record-set-lastname new-record
(cdr name)) (bbdb-record-set-namecache new-record nil) (bbdb-record-set-net new-record
(bbdb-merge-lists! ... old-nets ... ...)) (bbdb-record-set-aka new-record
(bbdb-merge-lists! ... old-aka ... ...)) new-record)
(let ((new-name ...) (new-co ...) (old-name ...) (old-co ...) (old-nets ...)
(old-aka ...) extra-name) (let (... ...) (if extra-name ...) (bbdb-record-set-phones
new-record ...) (bbdb-record-set-addresses new-record ...) (bbdb-record-set-company
new-record comp) (let ... ...) (bbdb-record-set-firstname new-record ...)
(bbdb-record-set-lastname new-record ...) (bbdb-record-set-namecache new-record nil)
(bbdb-record-set-net new-record ...) (bbdb-record-set-aka new-record ...) new-record))
bbdb-merge-records(["Maren" "Noname" nil nil (["Home" "+49-228-22 22 22"] ["Mobil"
"+49-122-222 22 22"]) nil nil ((creation-date . "2002-03-03") (timestamp .
"2002-03-03")) ["Maren Noname" "nonamemaren" #<marker at 82184 in .bbdb 0x8d8db1c>
nil]] ["Maren" nil nil nil (["Mobil" "+49-122-222 22 22"] ["Home" "+49-228-22 22 22"])
nil nil ((creation-date . "2001-07-18") (timestamp . "2001-07-18")) ["Maren" "maren"
#<marker at 60670 in .bbdb 0x8d70d7c> nil]])
(setq new-record (bbdb-merge-records old-record new-record))
(lambda (old-record new-record) "Merge the current record into some other record;
that is, delete the\nrecord under point after copying all of the data within it into
some other\nrecord. this is useful if you realize that somehow a redundant record
has\ngotten into the database, and you want to merge it with another.\n\nIf both
records have names and/or companies, you are asked which to use.\nPhone numbers,
addresses, and network addresses are simply concatenated.\nThe first record is the
record under the point; the second is prompted for.\nCompletion behaviour is as
dictated by the variable `bbdb-completion-type'." (interactive (let ... ... ...)) (if
(or ... ...) (error "those are the same")) (setq new-record (bbdb-merge-records
old-record new-record)) (bbdb-delete-current-record old-record (quote noprompt))
(bbdb-change-record new-record t) (let (...) (if ... ...) (bbdb-with-db-buffer ...)
(if ... ...)) (message "records merged."))(["Maren" "Noname" nil nil (["Home" "+4!
9-228-22 22 22"] ["Mobil" "+49-122-222 22 22"]) nil nil ((creation-date .
"2002-03-03") (timestamp . "2002-03-03")) ["Maren Noname" "nonamemaren" #<marker at
82184 in .bbdb 0x8d8db1c> nil]] ["Maren" nil nil nil (["Mobil" "+49-122-222 22 22"]
["Home" "+49-228-22 22 22"]) nil nil ((creation-date . "2001-07-18") (timestamp .
"2001-07-18")) ["Maren" "maren" #<marker at 60670 in .bbdb 0x8d70d7c> nil]])
call-interactively(bbdb-refile-record)
Emacs : XEmacs 21.4 (patch 4) "Artificial Intelligence" [Lucid] (i386-suse-linux,
Mule) of Mon Sep 24 2001 on lhospital
Package: BBDB 2.34
current state:
==============
(setq
emacs-version "21.4 (patch 4) \"Artificial Intelligence\" XEmacs Lucid"
bbdb-version-date "$Date: 2002/01/15 22:53:47 $"
bbdb-file-format 6
bbdb-no-duplicates-p nil
bbdb-addresses-label-list '("Home" "Office" "Mobile" "Other" "Athen" "Bonn" "Mailand"
"Schule" "Work" "Main" "Praxis" "Aachen" "Bochum"
"Home (118)" "Zuerich" "B�blingen" "Taranto" "Vicenza"
"Am Pappelhain 5" "address" "Haus" "Arbeitsst�tte"
"M�nchen" "St�cken" "Hannover" "Werkstatt" "")
bbdb-after-change-hook nil
bbdb-after-read-db-hook nil
bbdb-always-add-addresses nil
bbdb-auto-notes-alist nil
bbdb-auto-revert-p nil
bbdb-canonicalize-net-hook nil
bbdb-canonicalize-redundant-nets-p nil
bbdb-case-fold-search t
bbdb-change-hook '(bbdb-timestamp-hook)
bbdb-completion-display-record t
bbdb-completion-type 'primary-or-name
bbdb-create-hook 'bbdb-creation-date-hook
bbdb-default-area-code 49
bbdb-default-country "Emacs"
bbdb-default-domain nil
bbdb-default-label-list '("Home" "Office" "Mobile" "Other")
bbdb-define-all-aliases-field 'mail-alias
bbdb-dial-local-prefix nil
bbdb-dial-local-prefix-alist '(((if bbdb-default-area-code (format "(%03d)"
bbdb-default-area-code) "") ""))
bbdb-dial-long-distance-prefix nil
bbdb-display-layout nil
bbdb-display-layout-alist '((one-line (order phones mail-alias net notes) (name-end .
24) (toggle . t))
(multi-line (indention . 14) (toggle . t))
(pop-up-multi-line (indention . 14)))
bbdb-dwim-net-address-allow-redundancy nil
bbdb-electric-p nil
bbdb-elided-display nil
bbdb-extract-address-component-handler 'message
bbdb-extract-address-component-ignore-regexp
"\\(\\(undisclosed\\|unlisted\\)[^,]*recipients\\)\\|no To-header on input"
bbdb-extract-address-component-regexps '(("\"\\([^\"]*\\)\"\\s-*<\\([^>]+\\)>"
(car (mail-extract-address-components
(concat "\"" (match-string 1 adstring) "\""))) 2)
("\\([^<>, ][^<>,]+[^<>,
]\\)\\s-*<\\([^>]+\\)>" 1 2) ("<\\([^>]+\\)>" nil 2)
("\\(\\b[^<\",()]+\\b\\)\\s-*(\\([^)]+\\))"
(car (mail-extract-address-components
(concat "\"" (match-string 2 adstring) "\""))) 1)
("\\b\\(\\([^@ \n.]+\\.[^@
\n.]+\\)@[^@ \n]+\\)\\b"
(car (mail-extract-address-components
(concat "\"" (match-string 2 adstring) "\""))) 1)
("\\b\\(\\([^@ \n]+\\)@[^@
\n]+\\)\\b" nil 1) ("\\b\\([^@ \n]+\\)\\b" nil 1))
bbdb-file "~/.bbdb"
bbdb-file-remote nil
bbdb-file-remote-save-always t
bbdb-finger-host-field 'finger-host
bbdb-get-addresses-headers '((authors "From" "Resent-From" "Reply-To") (recipients
"Resent-To" "Resent-CC" "To" "CC" "BCC"))
bbdb-get-only-first-address-p t
bbdb-gui t
bbdb-hashtable-size 1021
bbdb-ignore-most-messages-alist '(("To" . "aldo@valente\\.de"))
bbdb-ignore-selected-messages-confirmation nil
bbdb-ignore-some-messages-alist nil
bbdb-info-file nil
bbdb-initialize-hook nil
bbdb-list-hook '(bbdb-fontify-buffer)
bbdb-load-hook nil
bbdb-message-caching-enabled t
bbdb-mode-hook nil
bbdb-new-nets-always-primary nil
bbdb-north-american-phone-numbers-p nil
bbdb-notes-default-separator ", "
bbdb-notes-sort-order '((notes . 0) (www . 1) (ftp . 2) (gopher . 3) (telnet . 4)
(mail-alias . 5) (mail-folder . 6) (lpr . 7)
(creation-date . 1000) (timestamp . 1001))
bbdb-notice-auto-save-file t
bbdb-notice-hook nil
bbdb-offer-save 'savenoprompt
bbdb-phones-label-list '("Home" "Office" "Mobile" "Other" "Anzeigenaufnahme (298)"
"main" "Main" "(293)" "(294)" "Mobil" "Athen"
"GR schnurlos" "National (280)" "International (281)" "Work"
"work" "Praxis (191)" "(295)" "Wasweissich (178)"
"home" "Home (185)" "Home (186)" "(299)" "Home (243)" "Home
(242)" "Institut (242)" "Home (244)" "Bonn"
"Home (204)" "Mobil (205)" "Mobil2" "Fax" "Home (166)"
"Sparkasse (167)" "Mobil (165)" "Home (168)" "Zuerich"
"Home (187)" "mobil" "Home (119)" "Home (220)" "Handy (221)"
"Home (240)" "Home (162)" "Home (171)" "Br�hl"
"Home (172)" "Andreas (work)" "Mobil (203)" "Mobil (206)"
"Home (231)" "Home (261)"
"Zentrale Nagellackiererin (296)" "Home (232)" "FAx" "Home
(163)" "Bochum" "Home (214)" "Home (174)"
"Sonja Mobil" "Praxis (173)" "Home (184)" "Home (188)" "Till
(189)" "Mobil (190)" "Home (183)" "Berlin" "fax"
"Home (153)" "Volksbank (154)" "Bonn (152)" "Bonn (121)"
"Toulouse" "K�ln (150)" "Home (179)" "Home (176)"
"Home (159)" "Mobil (179)" "Home (228)" "Mobil (229)"
"phone" "Heim (124)" "sein altes Faksger�t" "Frau"
"Geliebte" "Wasweissich (250)" "Data" "FAX (113)" "Home
(225)" "Home (177)" "Wasweissich (222)" "Home (213)"
"Mobil (212)" "Home (155)" "Home (106)" "Praxis (182)" "Home
(227)" "Home (180)" "Mobil (181)" "Home (116)"
"Work Durchwahl" "Home (160)" "Kaufhof (161)" "Work (101)"
"Home (100)" "K�ln" "Home (223)" "Home (117)"
"Home (211)" "Mobil (210)" "Privat")
bbdb-pop-up-display-layout nil
bbdb-pop-up-elided-display nil
bbdb-pop-up-target-lines 5
bbdb-quiet-about-name-mismatches t
bbdb-readonly-p nil
bbdb-refile-notes-default-merge-function 'bbdb-refile-notes-default-merge-function
bbdb-refile-notes-generate-alist '((creation-date bbdb-refile-notes-string-least))
bbdb-save-db-timeout nil
bbdb-send-mail-style 'vm
bbdb-silent-running nil
bbdb-use-alternate-names t
bbdb-user-mail-names nil
bbdb-write-file-hooks '(bbdb-write-file-hook-fn)
bbdb/mail-auto-create-p 'bbdb-ignore-most-messages-hook
bbdb/news-auto-create-p nil
bbdb/send-auto-create-p t
bbdb/send-auto-notes-alist nil
bbdb/send-ignore-most-messages-alist nil
bbdb/send-ignore-some-messages-alist nil
bbdb/send-notice-hook nil
bbdb/send-prompt-for-create-p t
bbdb/srv-auto-create-p nil
bbdb/srv-display-delay 2
bbdb/vm-auto-add-label-field 'mail-alias
bbdb/vm-auto-add-label-list nil
bbdb/vm-set-auto-folder-alist-field 'vm-folder
features '(reporter vm-digest flow-fill browse-url pp gnus-picon w3-forms sort
gnus-cite gnus-async gnus-score score-mode gnus-ml gnus-msg
gnus-art mm-uu mm-view vm-reply tex-buf tabify dabbrev outline latex tex
vm-delete vm-undo vm-minibuf vm-macro
highlight-headers bbdb-gui vm-mime vm-virtual vm-page vm-save tapestry
vm-thread vm-sort vm-summary vm-toolbar vm-motion
vm-message mailcrypt comint ring vm-menu vm-folder vm-misc vm-mouse
vm-window bbdb-vm bbdb-snarf mail-extr rfc822 w3 w3-menu
url-news url-gw w3-script w3-jscript w3-elisp w3-java cus-edit cus-load
w3-emulate w3-auto w3-parse url mm w3-display w3-mouse
w3-imap w3-widget w3-vars w3-keyword w3-cus url-parse url-vars css font
mule-sysdp w3-cfg w3-sysdp vm-autoload vm-vars
vm-version vm vm-startup nndraft nnmh gnus-sum gnus-cache gnus-group
gnus-undo nnmail mail-source format-spec efs-cu nntp nnoo
gnus-start gnus-range gnus-spec gnus-int gnus-win gnus gnus-ems gnus-xmas
wid-edit message mml mm-decode mm-encode mailcap
mm-bodies uudecode mail-parse rfc2045 rfc2231 rfc2047 qp ietf-drums
mailheader gnus-util time-date parse-time font-lock
cus-face filladapt paren blink-paren moy-bbdb edmacro smiley annotations
messagexmas nnheader nnheaderxm mm-util mail-prsvr
mail-utils func-menu tex-site bbdb-srv bbdb-hooks bbdb-com mail-abbrevs
sendmail bbdb-autoloads bbdb timezone recent-files
advice advice-preload gnuserv ispell x-compose zenirc-autoloads
xslt-process-autoloads xemacs-devel-autoloads
xemacs-base-autoloads w3-autoloads vm-autoloads viper-autoloads
view-process-autoloads vhdl-autoloads vc-cc-autoloads
vc-autoloads tpu-autoloads tooltalk-autoloads tm-autoloads time-autoloads
textools-autoloads text-modes-autoloads
texinfo-autoloads supercite-autoloads strokes-autoloads speedbar-autoloads
sounds-wav-autoloads sounds-au-autoloads
slider-autoloads sh-script-autoloads sgml-autoloads semantic-autoloads
scheme-autoloads rmail-autoloads reftex-autoloads
psgml-autoloads ps-print-nomule-autoloads prog-modes-autoloads
pcomplete-autoloads pcl-cvs-autoloads pc-autoloads
os-utils-autoloads net-utils-autoloads misc-games-autoloads mine-autoloads
mh-e-autoloads mew-autoloads mailcrypt-autoloads
mail-lib-autoloads jde-autoloads ispell-autoloads ilisp-autoloads
igrep-autoloads idlwave-autoloads hm--html-menus-autoloads
gnus-autoloads gnats-autoloads games-autoloads fsf-compat-autoloads
frame-icon-autoloads forms-autoloads footnote-autoloads
eudc-autoloads eterm-autoloads eshell-autoloads emerge-autoloads
elib-autoloads eieio-autoloads eicq-autoloads efs-autoloads
edt-autoloads edit-utils-autoloads ediff-autoloads edebug-autoloads
dired-autoloads debug-autoloads crisp-autoloads
cookie-autoloads cc-mode-autoloads calendar-autoloads calc-autoloads
c-support-autoloads build-autoloads auctex-autoloads
apel-autoloads ada-autoloads Sun-autoloads skk-autoloads
mule-base-autoloads lookup-autoloads locale-autoloads leim-autoloads
egg-its-autoloads edict-autoloads lisp-autoloads disp-table loadhist
auto-show fontl-hooks x-iso8859-1 canna-leim slovenian
czech romanian ccl mule-help code-cmds gutter-items menubar-items
x-menubar mode-motion mouse itimer auto-save lisp-mode
easymenu iso8859-1 page buff-menu lib-complete cus-file derived frame
text-props obsolete cus-start custom widget cl-extra
mini-cl cl cl-19 packages backquote very-early-lisp CANNA file-coding wnn
mule lucid-scrollbars cut-buffer lucid-menubars
athena-dialogs x c-balloon-help tty-frames tty toolbar native-sound
scrollbar unix-processes multicast network-streams
subprocesses modules menu-accelerator-support menubar berkeley-db dbm md5
xemacs xim i18n2 gutter tiff png gif jpeg xface xpm
xbm lisp-float-type linux dialog devices window-system base64)
)
_______________________________________________________________
Don't miss the 2002 Sprint PCS Application Developer's Conference
August 25-28 in Las Vegas -- http://devcon.sprintpcs.com/adp/index.cfm
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
