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/