From: yoichi <yoichi>
Date: Sun, 22 Dec 2002 19:41:32 +0000 (+0000)
Subject: * utf7.el (toplevel): Avoid error when the function
X-Git-Tag: wl-2_10_1pre~89
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d3d0fdc99326f583b22f8ac6eac0b2b4206f238c;p=elisp%2Fwanderlust.git

* utf7.el (toplevel): Avoid error when the function
find-coding-system does not exist.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index ac86346..b8d1030 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-23  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* utf7.el (toplevel): Avoid error when the function
+	find-coding-system does not exist.
+
 2002-12-11  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 2.10.0 is released.
diff --git a/elmo/utf7.el b/elmo/utf7.el
index 31702d7..1000d68 100644
--- a/elmo/utf7.el
+++ b/elmo/utf7.el
@@ -87,7 +87,8 @@
   (mod (- len) modulus))
 
 (cond
- ((or (find-coding-system 'utf-7)
+ ((or (and (fboundp 'find-coding-system)
+	   (find-coding-system 'utf-7))
       (module-installed-p 'un-define))
   (defun utf7-fragment-decode (start end &optional imap)
     "Decode base64 encoded fragment from START to END of UTF-7 text in buffer.
@@ -126,7 +127,8 @@ Use IMAP modification if IMAP is non-nil."
       (delete-region start end)
       (insert encoded-string))))
  ((and (featurep 'xemacs) 
-       (or (find-coding-system 'utf-8)
+       (or (and (fboundp 'find-coding-system)
+		(find-coding-system 'utf-8))
 	   (module-installed-p 'xemacs-ucs)))
   (defun utf7-fragment-decode (start end &optional imap)
     "Decode base64 encoded fragment from START to END of UTF-7 text in buffer.