Hi!
I expected to be able to
M-x customize-variable RET bbdb-canonicalize-net-hook RET
which did work.
However, when calling the so-modified bbdb-canonicalize-net-hook, bbdb
throws an error, because it tries to handle it as a single function,
not as a list of functions.
Either
The definition
(defcustom bbdb-canonicalize-net-hook nil
<lines deleted by Adrian>
:group 'bbdb-hooks
:type 'hook)
needs to change type to 'function, and the variable be renamed to
bbdb-canonicalize-net-funcition.
or
bbdb-canonicalize-net-hook needs to be handled as a list of functions.
Oh, BTW, :type 'hook does not appear to be documented in custom.texi
of my XEmacs. Well, another bug?
Best regards,
Adrian
Emacs : XEmacs 21.4 (patch 4) "Artificial Intelligence (candidate 3)" [Lucid]
(i586-pc-win32) of Fri Jul 27 2001 on D5DC120J
Package: BBDB 2.32
current state:
==============
(setq
bbdb-version-date "$Date: 2001/07/02 09:40:31 $"
bbdb-file-format 6
bbdb-no-duplicates-p nil
bbdb-after-change-hook '(bbdb/gnus-score-invalidate-alist)
bbdb-after-read-db-hook nil
bbdb-always-add-addresses nil
bbdb-auto-revert-p nil
bbdb-canonicalize-net-hook '(lambda (addr)
(cond
((string-match
"\\`\\([^0-9]+\\)\\(-dated-[^@]+\\|-[0-9]+\\|\\+[^@]+\\.[^@]+\\)\\(@.*\\)\\'"
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 t
bbdb-change-hook 'bbdb-timestamp-hook
bbdb-completion-display-record t
bbdb-completion-type nil
bbdb-create-hook 'bbdb-creation-date-hook
bbdb-default-area-code nil
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 t
bbdb-electric-p nil
bbdb-elided-display nil
bbdb-file "~/.bbdb"
bbdb-file-remote nil
bbdb-file-remote-save-always t
bbdb-finger-host-field 'finger-host
bbdb-gui t
bbdb-hashtable-size 1021
bbdb-info-file nil
bbdb-initialize-hook nil
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-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 nil
bbdb-notice-hook nil
bbdb-offer-save t
bbdb-pop-up-elided-display-fields nil
bbdb-pop-up-elided-display-name-end 48
bbdb-pop-up-target-lines 5
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 'message
bbdb-silent-running nil
bbdb-use-alternate-names t
bbdb-user-mail-names "\\bAichnerAd\\b"
bbdb-write-file-hooks '(bbdb-write-file-hook-fn)
bbdb/gnus-lines-and-from-length 18
bbdb/gnus-split-crosspost-default nil
bbdb/gnus-split-default-group "mail.misc"
bbdb/gnus-split-myaddr-regexp
"^AichnerAd$\\|^AichnerAd(a)\\([-a-z0-9]+\\.\\)*ecf.teradyne.com$"
bbdb/gnus-split-nomatch-function nil
bbdb/gnus-split-private-field 'gnus-private
bbdb/gnus-split-public-field 'gnus-public
bbdb/gnus-summary-mark-known-posters t
bbdb/gnus-summary-show-bbdb-names t
bbdb/mail-auto-create-p t
bbdb/news-auto-create-p nil
bbdb/prompt-for-create-p nil
bbdb/vm-set-auto-folder-alist-field 'vm-folder
features '(info find-func hyper-apropos flow-fill timer smtpmail rfc2104
starttls time-stamp iso-acc bbdb-gui lazy-lock gnus-picon w3-forms
w3-display advice advice-preload w3-imap w3-widget css w3-mouse
w3-vars w3-cus w3-keyword url mm mule-sysdp url-parse url-vars
sort smiley annotations gnus-cite gnus-async gnus-dup gnus-ml
gnus-msg gnus-art mm-uu mm-view mailcrypt rfc822 nndraft nnmh
nndoc gnus-sum gnus-cache nnfolder pop3 env passwd nnml gnus-group
gnus-undo bbdb-gnus gnus-demon nnmail mail-source format-spec nntp
nnoo gnus-setup gnus-start gnus-range gnus-spec gnus-int gnus-win
gnus gnus-ems gnus-xmas wid-edit message messagexmas mml mm-decode
mm-encode mailcap mm-bodies uudecode mail-parse rfc2045 rfc2231
rfc2047 qp ietf-drums mailheader gnus-util time-date parse-time
nnheader nnheaderxm mail-utils mm-util mail-prsvr desktop font
disp-table blink-cursor paren blink-paren
patch-to-cvs-commit-command clearcase reporter vc-hooks efs-dired
efs-netrc efs-defun comint ring efs time redo sh-script skeleton
executable bbdb-com bbdb-sc bbdb timezone mail-abbrevs sendmail
supercite mail-extr regi jka-compr alist scroll-in-place
rsz-minibuf func-menu font-lock filladapt crypt crypt++ completer
efs-cu efs-x19\.15 efs-fnh efs-ovwrt efs-auto cus-face dired-faces
dired-xemacs dired pending-del zenirc-autoloads
xslt-process-autoloads xemacs-devel-autoloads
xemacs-base-autoloads whois-complete-autoloads w3-autoloads
vm-autoloads viper-autoloads view-process-autoloads vhdl-autoloads
vc-autoloads vb-mode-autoloads tpu-autoloads tooltalk-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 pxp-autoloads psgml-autoloads
ps-print-nomule-autoloads prog-modes-autoloads pcl-cvs-autoloads
pc-autoloads os-utils-autoloads misc-games-autoloads
mine-autoloads mh-e-autoloads mew-autoloads mailcrypt-autoloads
mail-lib-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 emerge-autoloads
elib-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
cadence-autoloads c-support-autoloads build-autoloads
bbdb-autoloads bat-mode-autoloads auctex-autoloads
atp-mode-autoloads apel-autoloads ada-autoloads TerIDL-autoloads
bbdb-pilot-autoloads net-utils-autoloads lisp-autoloads loadhist
auto-show fontl-hooks code-cmds gutter-items menubar-items
x-menubar dragdrop mode-motion mouse itimer auto-save lisp-mode
easymenu iso8859-1 page buff-menu lib-complete help-nomule
cus-file derived frame text-props obsolete cus-start custom widget
cl-extra mini-cl cl cl-19 packages backquote very-early-lisp
file-coding mswindows-scrollbars mswindows toolbar native-sound
scrollbar network-streams subprocesses menu-accelerator-support
menubar md5 xemacs gutter tiff png gif jpeg xface xpm xbm
lisp-float-type windows-nt dragdrop-api dialog devices
window-system base64)
)
--
Adrian Aichner
mailto:adrian@xemacs.org
http://www.xemacs.org/