X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Futf7.el;h=1000d68cd71a31a451872a00958a0f613738e6de;hb=a5bcb1f0eb41b558a6b4ed277047adc6b8676a2a;hp=31702d76a784dc9b420bfd7df85c0a5e8fdb09c5;hpb=793d93483014da51f1e159ec90eb68b5bfc68049;p=elisp%2Fwanderlust.git

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.