From 36592cfd5d88d5ccfd5933edad9c7cca96882682 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 22 Dec 2002 19:46:40 +0000 Subject: [PATCH] * utf7.el (toplevel): Avoid error when the function find-coding-system does not exist. --- elmo/ChangeLog | 5 +++++ elmo/utf7.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) 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 + + * utf7.el (toplevel): Avoid error when the function + find-coding-system does not exist. + 2002-12-20 Yoichi NAKAYAMA * 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. -- 1.7.10.4