bbdb, xemacs-nomule, squeeze

["Andreas Goesele" <Goesele@hfph.mwn.de>]

Hi,

upgrading to squeeze I suddenly found myself with xemacs21-mule. Purging
(!) all of xemacs21 and reinstalling xemacs21-nomule I managed to get
back to xemacs21-nomule.

But now I have a problem with bbdb: Reading any email I get the error
message "No such coding system utf-8" as bbdb is trying to encode names
with utf-8. (See trace below.)

Looking at bbdb.el I find:

(defun bbdb-name-normalize (name)
  "Return normalized NAME.
NAME is converted to lower case and in a MULE enabled Emacs it is converted to
UTF-8 or unibyte to unify the overlapping ISO-8859-* encodings.
You may advice this function to allow more sophisticated normalizations."
  (when name.
    (setq name (downcase name))
    (cond ((functionp 'encode-coding-string)
           (funcall 'encode-coding-string name 'utf-8))
          ((functionp 'string-make-unibyte)
           (funcall 'string-make-unibyte name))
          (t
           name))))

But this means that my Xemacs-nomule works like a MULE enabled Emacs!

As a workaround I changed that function, but the real solution would be
to get xemacs-nomule not to "assume" to be MULE enabled! (As a matter of
fact, starting up xemacs, I now always get the warning "X-Symbol: cannot
deduce default encoding, I'll assume `iso-8859-1'". I guess that's also
some MULE-related error message which in xemacs-nomule doesn't make much
sense.)

Any hints how I can get rid of those MULE-traces in my xemacs-nomule?

Thanks a lot in advance

Andreas Gösele

Debugger entered--Lisp error: (error "No such coding system" utf-8)
  encode-coding-region(1 19 utf-8)
  encode-coding-string("john doe" utf-8)
  bbdb-name-normalize("John Doe")
  bbdb-name=("John Doe" "John Doe")
  bbdb-annotate-message-sender(("John Doe" "joh.doe@some.where") t prompt bbdb-prompt-for-create)
  byte-code("..." [matches records record net rest-of-nets done annotating bbdb-annotate-message-sender t bbdb-prompt-for-create searching "^" regexp-quote "$" nil bbdb-search-invert-p 6 string-match "" q 0 5 format "Hit C-g to stop BBDB from %s.  %d of %d addresses processed." featurep xemacs bbdb-display-message progress message sit-for processed-addresses bbdb-address bbdb-update-records-mode invert mess auto-create-p bbdb-offer-to-create bbdb-case-fold-search offer-to-create bbdb-records case-fold-search hits bbdb-silent-running bbdb-gag-messages addrslen] 7)
  bbdb-update-records(((authors "From" ("John Doe" "joh.doe@some.where"))) prompt nil)
  bbdb/gnus-update-records(nil)
  bbdb/gnus-pop-up-bbdb-buffer()
  run-hooks(bbdb/gnus-pop-up-bbdb-buffer)
  apply(run-hooks bbdb/gnus-pop-up-bbdb-buffer)
  gnus-run-hooks(gnus-article-prepare-hook)
  gnus-article-prepare-display()
  gnus-article-prepare(45574 nil)
  gnus-summary-display-article(45574 nil)
  gnus-summary-select-article(nil nil pseudo)
  gnus-summary-scroll-up(1)
  call-interactively(gnus-summary-scroll-up)

-- 
Omnis enim res, quae dando non deficit, dum habetur et non datur,
nondum habetur, quomodo habenda est.
                                      Augustinus, De doctrina christiana