bbdb-hack-x-face fails when it evals:
(funcall (intern "highlight-headers-hack-x-face-p"))
when I encounter a VM message with an X-Face: header. My solution is to
just remove that stuff:
[EMAIL PROTECTED]:/usr/local/lib/xemacs/xemacs-packages/lisp/bbdb/
=>diff -bc bbdb-gui.el bbdb-gui.el.~2~
*** bbdb-gui.el Tue Jun 3 13:14:53 2003
--- bbdb-gui.el.~2~ Tue Feb 12 16:56:37 2002
***************
*** 235,248 ****
"Process a face property of a record and honour it.
Not done for GNU Emacs just yet, since it doesn't have image support
as of GNU Emacs 20.7"
! ;;;
! ;;;Removed the following from the following if:
! ;;; (or (and (boundp 'highlight-headers-hack-x-face-p)
! ;;; (funcall (intern ;; compiler
! ;;; "highlight-headers-hack-x-face-p"))) ;; ick.
! ;;; (and
! (if (not (and (featurep 'xemacs)
! (string-match "^21\\." emacs-version))) ;; XXX
() ;; nothing doing
(setq face (bbdb-split face "\n"))
(while face
--- 235,245 ----
"Process a face property of a record and honour it.
Not done for GNU Emacs just yet, since it doesn't have image support
as of GNU Emacs 20.7"
! (if (not (or (and (boundp 'highlight-headers-hack-x-face-p)
! (funcall (intern ;; compiler
! "highlight-headers-hack-x-face-p"))) ;; ick.
! (and (featurep 'xemacs)
! (string-match "^21\\." emacs-version)))) ;; XXX
() ;; nothing doing
(setq face (bbdb-split face "\n"))
(while face
I don't know enough about elisp to figure out what I should do to fix it
right, but I just use xemacs, and the highlight-headers stuff seems to be
for regular emacs? And taking out code that I don't need in my environment
seems to be a good thing! ;-)
Thanks for a wonderful package. I have been using it for at least a
decade.
Dave.
Emacs : XEmacs 21.4 (patch 12) "Portable Code" [Lucid] (powerpc-apple-darwin6.4) of
Fri May 30 2003 on dib
Package: BBDB 2.34
current state:
==============
(setq
emacs-version "21.4 (patch 12) \"Portable Code\" XEmacs Lucid"
bbdb-version-date "$Date: 2002/02/12 22:56:39 $"
bbdb-file-format 6
bbdb-no-duplicates-p nil
bbdb-addresses-label-list '("Home" "Office" "Mobile" "Other"
"Tom Muehler's DevTest Group" "Work")
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 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 612
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 nil
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 t
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" "home" "mobile" "office"
"work" "Work" "Mobil" "mobil" "fax" "800")
bbdb-pop-up-display-layout nil
bbdb-pop-up-elided-display nil
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 '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 t
bbdb/news-auto-create-p nil
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 overlay vm-reply find-func vm-crypto vm-pop vm-undo vm-page
vm-mime vm-toolbar tapestry vm-motion vm-sort vm-summary vm-thread
vm-message smiley messagexmas nnheader nnheaderxm gnus-util netrc
time-date parse-time mm-util mail-prsvr mail-utils annotations vm-menu
vm-folder vm-misc vm-mouse vm-window u-vm-color smtpmail bbdb-vm
bbdb-snarf vm-autoload vm-vars highlight-headers vm-version vm vm-startup
font disp-table paren blink-paren filladapt mwheel time ps-print lpr
flyspell ispell shell mailcrypt bbdb-sc supercite mail-extr regi
bbdb-xemacs bbdb-gui bbdb-hooks bbdb-com mail-abbrevs sendmail rfc822
bbdb timezone vm-vcard vcard time-stamp advice advice-preload uniquify
timer lazy-lock font-lock cus-face vc vc-hooks efs-x19\.15 efs-fnh
efs-ovwrt efs-cu efs-netrc efs-defun comint ring efs zenirc-autoloads
xslt-process-autoloads xslide-autoloads xemacs-devel-autoloads
xemacs-base-autoloads x-symbol-autoloads w3-autoloads vm-autoloads
viper-autoloads view-process-autoloads vhdl-autoloads vc-cc-autoloads
vc-autoloads tramp-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 sieve-autoloads sh-script-autoloads sgml-autoloads
semantic-autoloads scheme-autoloads sasl-autoloads ruby-modes-autoloads
rmail-autoloads reftex-autoloads python-modes-autoloads
psgml-dtds-autoloads psgml-autoloads ps-print-nomule-autoloads
ps-print-autoloads prog-modes-autoloads pgg-autoloads
perl-modes-autoloads pcomplete-autoloads pcl-cvs-autoloads pc-autoloads
os-utils-autoloads ocaml-autoloads net-utils-autoloads mmm-mode-autoloads
misc-games-autoloads mine-autoloads mh-e-autoloads mew-autoloads
mailcrypt-autoloads mail-lib-autoloads liece-autoloads jde-autoloads
ispell-autoloads ilisp-autoloads igrep-autoloads idlwave-autoloads
ibuffer-autoloads hm--html-menus-autoloads haskell-mode-autoloads
gnus-autoloads gnats-autoloads games-autoloads fsf-compat-autoloads
frame-icon-autoloads forms-autoloads footnote-autoloads eudc-autoloads
eterm-autoloads ess-autoloads eshell-autoloads emerge-autoloads
elib-autoloads eieio-autoloads eicq-autoloads efs-autoloads edt-autoloads
edit-utils-autoloads ediff-autoloads edebug-autoloads ecrypto-autoloads
ecb-autoloads docbookide-autoloads dired-autoloads dictionary-autoloads
debug-autoloads crisp-autoloads cookie-autoloads clearcase-autoloads
cc-mode-autoloads calendar-autoloads calc-autoloads c-support-autoloads
build-autoloads bbdb-autoloads auctex-autoloads apel-autoloads
ada-autoloads Sun-autoloads lisp-autoloads loadhist auto-show fontl-hooks
x-iso8859-1 gutter-items menubar-items x-menubar 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
lucid-scrollbars cut-buffer lucid-menubars x c-balloon-help tty-frames
tty toolbar scrollbar unix-processes multicast network-streams
subprocesses modules menu-accelerator-support menubar dbm md5 xemacs
gutter png gif xface xpm xbm lisp-float-type darwin devices window-system
base64)
)
-------------------------------------------------------
This SF.net email is sponsored by: Etnus, makers of TotalView, The best
thread debugger on the planet. Designed with thread debugging features
you've never dreamed of, try TotalView 6 free at www.etnus.com.
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
