There seem to be a bug in related to `bbdb-canonicalize-net-hook'. Given the
name I assumed it was a hook and tried the following code:
(add-hook 'bbdb-canonicalize-net-hook
'(lambda (addr)
(cond ((string-match "\\([^+]+\\)\\(\\+[^@]+\\)\\(@.*\\)\\'" addr)
(concat (substring addr (match-beginning 1) (match-end 1))
(substring addr (match-beginning 3) (match-end 3))))
(t addr))))
This led to the error backtrace below. I took a closer look at the docstring
and changed to using setq instead. Now things work, but I think that either
the name or the behavior should be changed to reflect what works and what
doesn't work. It is also impossible to set it with customize, since the :type
is a hook.
Debugger entered--Lisp error: (invalid-function ((lambda (addr) (cond ((string-match
"\\([^+]+\\)\\(\\+[^@]+\\)\\(@.*\\)\\'" addr) (concat (substring addr (match-beginning
1) (match-end 1)) (substring addr (match-beginning 3) (match-end 3)))) (t addr)))))
((lambda (addr) (cond ... ...)))("[EMAIL PROTECTED]")
bbdb-canonicalize-address("[EMAIL PROTECTED]")
bbdb-annotate-message-sender(("Rikard Enberg" "[EMAIL PROTECTED]") t nil
bbdb-prompt-for-create)
byte-code("�=� � �\n� �$C�� �=�� �� � A@)!�Q� �
� ! \" ��
@� �H� #� $�k $�r #�r � $@\"#$A�$�Q �r � �\"##*� \"B\" A�
�; \"�.%&T&'�� (�� )�=�� &Ӧ�U�� ��&*$ +��!�� ��+\"��� �+!�)��!�·"
[bbdb-update-records-mode bbdb-address offer-to-create auto-create-p x
bbdb-case-fold-search annotating bbdb-annotate-message-sender t bbdb-prompt-for-create
searching "^" regexp-quote "$" nil 6 string-match "" quit 5 0 format "Hit C-g to stop
BBDB from %s. %d of %d addresses processed." featurep xemacs display-message progress
message sit-for net bbdb-records record records case-fold-search matches done
rest-of-nets hits processed-addresses bbdb-silent-running bbdb-gag-messages
bbdb-offer-to-create addrslen mess] 6)
bbdb-update-records((("Rikard Enberg" "[EMAIL PROTECTED]")) nil nil)
bbdb/gnus-update-records(nil)
bbdb/gnus-pop-up-bbdb-buffer()
run-hooks(gnus-article-prepare-hook)
apply(run-hooks gnus-article-prepare-hook)
gnus-run-hooks(gnus-article-prepare-hook)
gnus-article-prepare-display()
gnus-article-prepare(841 nil)
gnus-summary-display-article(841 nil)
gnus-summary-select-article(nil nil pseudo)
gnus-summary-scroll-up(1)
call-interactively(gnus-summary-scroll-up)
Emacs : GNU Emacs 21.0.104.2 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2001-07-27 on rocksteady
Package: BBDB 2.33
current state:
==============
(setq
emacs-version "21.0.104.2"
bbdb-version-date "$Date: 2001/06/10 00:28:03 $"
bbdb-file-format 6
bbdb-no-duplicates-p nil
bbdb-address-editing-function 'bbdb-address-edit-default
bbdb-address-formatting-alist '((bbdb-address-is-continental .
bbdb-format-address-continental)
(nil . bbdb-format-address-default))
bbdb-after-change-hook '(bbdb/gnus-score-invalidate-alist)
bbdb-after-read-db-hook nil
bbdb-always-add-addresses 'never
bbdb-auto-notes-alist '(("user-agent" (".*" interface 0 t)) ("x-mailer" (".*"
interface 0 t))
("x-newsreader" (".*" interface 0 t))
("newsgroups" ("\\([^,]*\\),?" posted-to "\\1" nil))
("organization" (".*" company 0 t)))
bbdb-auto-notes-ignore '(("Organization" .
"^Gatewayed from\\|^Source only\\|^Customer of\\|^A
Customer\\|^Telia Internet")
)
bbdb-auto-notes-ignore-all nil
bbdb-auto-revert-p nil
bbdb-canonical-hosts
"cs\\.cmu\\.edu\\|ri\\.cmu\\.edu\\|edrc\\.cmu\\.edu\\|andrew\\.cmu\\.edu\\|mcom\\.com\\|netscape\\.com\\|cenatls\\.cena\\.dgac\\.fr\\|cenaath\\.cena\\.dgac\\.fr\\|irit\\.fr\\|enseeiht\\.fr\\|inria\\.fr\\|cs\\.uiuc\\.edu\\|xemacs\\.org"
bbdb-canonicalize-net-hook '(lambda (addr)
(cond
((string-match "\\([^+]+\\)\\(\\+[^@]+\\)\\(@.*\\)\\'"
addr)
(concat (substring addr (match-beginning 1) (match-end
1))
(substring addr (match-beginning 3) (match-end 3)))
)
(t addr))
)
bbdb-canonicalize-redundant-nets-p t
bbdb-case-fold-search nil
bbdb-change-hook 'bbdb-timestamp-hook
bbdb-check-zip-codes-p t
bbdb-complete-name-allow-cycling t
bbdb-complete-name-full-completion 5
bbdb-complete-name-hooks '(ding)
bbdb-completion-display-record nil
bbdb-completion-type nil
bbdb-continental-zip-regexp "^\\s *[A-Z][A-Z]?\\s *-\\s *[0-9][0-9][0-9]"
bbdb-create-hook 'bbdb-creation-date-hook
bbdb-default-area-code nil
bbdb-default-country "Emacs"
bbdb-default-domain nil
bbdb-default-field-label "Home"
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-dwim-net-address-allow-redundancy nil
bbdb-electric-p nil
bbdb-elided-display '(creation-date aka timestamp)
bbdb-elided-display-fields nil
bbdb-elided-display-name-end 48
bbdb-expand-mail-aliases t
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-*<\\([^>]+\\)>"
(bbdb-clean-username (match-string 1
adstring)) 2)
("\"\\([^\"]*\\)\"\\s-*<\\([^>]+\\)>"
(bbdb-clean-username (match-string 1
adstring)) 2)
("\\(\\b[^<,]*\\b\\)\\s-*<\\([^>]+\\)>" 1 2)
("<\\([^>]+\\)>" nil 2)
("\\(\\b[^<\",()]+\\b\\)\\s-*(\\([^)]+\\))"
2 1)
("\\b\\(\\([^@]+\\.[^@]+\\)@[0-9a-z._-]+\\)\\b"
(bbdb-clean-username (match-string 2
adstring)) 1)
("\\b\\(\\([0-9a-z._-]+\\)@[0-9a-z._-]+\\)\\b" nil 1)
("\\b\\([0-9a-z._-]+\\)\\b" nil 1))
bbdb-field-labels '("Home" "Office" "Mobile" "Other")
bbdb-file "~/.bbdb"
bbdb-file-remote nil
bbdb-file-remote-save-always t
bbdb-finger-buffer-name "*finger*"
bbdb-finger-host-field 'finger-host
bbdb-get-addresses-from-headers '("From" "Resent-From" "Reply-To")
bbdb-get-addresses-headers '("From" "Resent-From" "Reply-To" "Resent-To" "Resent-CC"
"To" "CC"
"BCC")
bbdb-get-addresses-to-headers '("Resent-To" "Resent-CC" "To" "CC" "BCC")
bbdb-get-only-first-address-p nil
bbdb-gui t
bbdb-hashtable-size 1021
bbdb-ignore-most-messages-alist nil
bbdb-ignore-selected-messages-confirmation nil
bbdb-ignore-some-messages-alist nil
bbdb-info-file nil
bbdb-initialize-hook nil
bbdb-legal-zip-codes '("^$" "^[ \n]*[0-9][0-9]?[0-9]?[0-9]?[0-9]?[0-9]?[
\n]*$"
"^[ \n]*\\([0-9][0-9][0-9][0-9][0-9]\\)[ \n]*-?[
\n]*\\([0-9][0-9][0-9][0-9]?\\)[ \n]*$" "^[ \n]*\\([A-Za-z0-9]+\\)[
\n]+\\([A-Za-z0-9]+\\)[ \n]*$" "^[ \n]*\\([A-Z]+\\)[ \n]*-?[
\n]*\\([0-9]+ ?[A-Z]*\\)[ \n]*$" "^[ \n]*\\([A-Z]+\\)[ \n]*-?[
\n]*\\([0-9]+\\)[ \n]+\\([0-9]+\\)[ \n]*$")
bbdb-list-hook '(bbdb-fontify-buffer)
bbdb-load-hook nil
bbdb-message-caching-enabled t
bbdb-message-marker-field 'mark-char
bbdb-mode-hook nil
bbdb-modem-device "/dev/modem"
bbdb-modem-dial nil
bbdb-new-nets-always-primary 'never
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 nil
bbdb-notice-hook '(bbdb-auto-notes-hook)
bbdb-offer-save 'savenoprompt
bbdb-pop-up-elided-display nil
bbdb-pop-up-target-lines 4
bbdb-quiet-about-name-mismatches nil
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)
(timestamp . bbdb-refile-notes-string-most))
bbdb-save-db-timeout nil
bbdb-send-mail-style nil
bbdb-silent-running nil
bbdb-snarf-web-prop 'www
bbdb-sound-files ["/usr/demo/SOUND/sounds/touchtone.0.au"
"/usr/demo/SOUND/sounds/touchtone.1.au" "/usr/demo/SOUND/sounds/touchtone.2.au"
"/usr/demo/SOUND/sounds/touchtone.3.au" "/usr/demo/SOUND/sounds/touchtone.4.au"
"/usr/demo/SOUND/sounds/touchtone.5.au" "/usr/demo/SOUND/sounds/touchtone.6.au"
"/usr/demo/SOUND/sounds/touchtone.7.au" "/usr/demo/SOUND/sounds/touchtone.8.au"
"/usr/demo/SOUND/sounds/touchtone.9.au" "/usr/demo/SOUND/sounds/touchtone.pound.au"
"/usr/demo/SOUND/sounds/touchtone.star.au"]
bbdb-sound-player "/usr/demo/SOUND/play"
bbdb-time-display-format "%d %b %Y"
bbdb-update-records-mode 'annotating
bbdb-use-alternate-names t
bbdb-use-pop-up t
bbdb-user-mail-names "\\b\\(henrik\\|kirneh74\\)\\b"
bbdb-write-file-hooks '(bbdb-write-file-hook-fn)
bbdb/gnus-lines-and-from-length 18
bbdb/gnus-score-default nil
bbdb/gnus-score-field 'gnus-score
bbdb/gnus-split-crosspost-default nil
bbdb/gnus-split-default-group "mail.misc"
bbdb/gnus-split-myaddr-regexp
"^henrik$\\|^henrik@\\([-a-z0-9]+\\.\\)*localhost.localdomain$"
bbdb/gnus-split-nomatch-function nil
bbdb/gnus-split-private-field 'gnus-private
bbdb/gnus-split-public-field 'gnus-public
bbdb/gnus-summary-in-bbdb-format-letter "b"
bbdb/gnus-summary-known-poster-mark "+"
bbdb/gnus-summary-mark-known-posters t
bbdb/gnus-summary-prefer-bbdb-data t
bbdb/gnus-summary-prefer-real-names t
bbdb/gnus-summary-show-bbdb-names t
bbdb/gnus-summary-user-format-letter "B"
bbdb/gnus-update-records-mode 'annotating
bbdb/mail-auto-create-p t
bbdb/news-auto-create-p nil
bbdb/vm-set-auto-folder-alist-field 'vm-folder
features '(sendmail view flyspell ispell reporter executable bbdb-gui bbdb-hooks sort
smiley
gnus-cite mail-extr gnus-async gnus-ml gnus-topic nndraft nnmh bbdb-gnus
bbdb-snarf
bbdb-com nnagent nnml byte-opt bytecomp byte-compile bbdb-autoloads bbdb
message-x
message-utils gnus-agent gnus-score score-mode nnvirtual gnus-msg gnus-art
mm-uu
binhex uudecode mm-view gnus-sum gnus-group gnus-undo nnmail mail-source
format-spec
nntp nnoo gnus-cache gnus-start gnus-spec gnus-win gnus-range gnus-int
gnus gnus-ems
message mml mml-sec mml-smime mml2015 smime dig mm-decode mm-bodies
mm-encode mailcap
mail-parse rfc2045 rfc2231 rfc2047 qp ietf-drums mailheader gnus-util
time-date
nnheader mail-utils mm-util mail-prsvr eldoc server fold desktop protbuf
midnight
initsplit hippie-exp generic-x generic filladapt eval-expr erc diminish
cwarn ctypes
cc-mode cc-align cc-cmds cc-engine cc-styles cc-langs cc-vars cc-menus
imenu cc-defs
browse-kill-ring derived ange-ftp comint ring align edmacro ascii
ansi-color w3m-form
w3m ccl parse-time browse-url timezone thingatpt w3m-hist w3m-e21
w3m-macro uniquify
paren recentf wid-edit easymenu msb mwheel mmm-mode mmm-univ mmm-class
mmm-region
mmm-auto mmm-vars mmm-utils mmm-compat iswitchb jit-lock font-lock
autorevert pp
esh-util eshell time delsel cleanup-whitespace easy-mmode mule-util
regexp-opt
image-file image jka-compr advice advice-preload cl cl-19 tooltip
disp-table fontset
ediff-hook vc-hooks lisp-float-type lisp-mode page menu-bar timer select
scroll-bar
mldrag mouse facemenu faces cus-face frame misc-lang vietnamese tibetan
thai lao
korean japanese hebrew greek romanian slovak czech european ethiopic
devanagari indian
cyrillic chinese case-table help overlay md5 base64 format mule env
backquote custom
widget x-toolkit)
)
Henrik
--
I always have fun because I'm out of my mind
_______________________________________________
[EMAIL PROTECTED]
http://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
