From 26ecc3e3f88fc776714c2f69c36499914c55f249 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 30 Aug 2004 15:55:25 +0000 Subject: [PATCH] * utf7.el (utf7-utf-16-coding-system): Avoid error when the function find-coding-system does not exist. --- elmo/ChangeLog | 5 +++++ elmo/utf7.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * utf7.el (utf7-utf-16-coding-system): Avoid error when the + function find-coding-system does not exist. + 2004-08-18 Hiroya Murata * 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) -- 1.7.10.4