From: yoichi <yoichi>
Date: Mon, 30 Aug 2004 15:55:25 +0000 (+0000)
Subject: * utf7.el (utf7-utf-16-coding-system): Avoid error when the
X-Git-Tag: wl-2_11_31~35
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=26ecc3e3f88fc776714c2f69c36499914c55f249;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)