bbdb, xemacs21-nomule, squeeze

[Andreas Goesele]

Hi,

after upgrading to Debian squeeze and assuring to have again
XEmacs21-nomule 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.)

I guess this is a bug, but I don't know on which level: Is a bbdb-bug
checking for mule by checking for the presence of
"encode-coding-string"?  A debian bug, by making available
"encode-coding-string" in xemacs21-nomule? A xemacs-bug? Or whatever?

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 at 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 at 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