* utf7.el (utf7-utf-16-coding-system): Avoid error when the

function find-coding-system does not exist.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index f138a8c..85f98ee 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-31  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * utf7.el (utf7-utf-16-coding-system): Avoid error when the
+       function find-coding-system does not exist.
+
 2004-08-18  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo-util.el (elmo-condition-parse-search-value): Fixed atom

diff --git a/elmo/utf7.el b/elmo/utf7.el
index e403cf6..ae050f9 100644 (file)
--- a/elmo/utf7.el
+++ b/elmo/utf7.el
@@ -88,7 +88,8 @@
   (concat utf7-direct-encoding-chars "+\\~")
   "Character ranges which do not need escaping in the IMAP variant of UTF-7.")
 
-(defconst utf7-utf-16-coding-system (find-coding-system 'utf-16-be)
+(defconst utf7-utf-16-coding-system (and (fboundp 'find-coding-system)
+                                        (find-coding-system 'utf-16-be))
   "Coding system which encodes big endian UTF-16.")
 
 (defsubst utf7-imap-get-pad-length (len modulus)