From: yoichi <yoichi>
Date: Sun, 22 Dec 2002 19:46:40 +0000 (+0000)
Subject: * utf7.el (toplevel): Avoid error when the function
X-Git-Tag: merged-trunk-to-elmo-mark-14~68
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=36592cfd5d88d5ccfd5933edad9c7cca96882682;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 1148c13..327917d 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-20  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* elmo-nntp.el (elmo-folder-search): Body search is to search from
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.