From 1d8de49fdeaa7f7b22071d1e156c8acfca410ca2 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 1 Mar 1999 08:17:51 +0000 Subject: [PATCH] (mime-decode-string): Return STRING if return value of `(mel-find-function 'mime-decode-string encoding)' is nil. --- mel.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/mel.el b/mel.el index c8764a9..b1902b4 100644 --- a/mel.el +++ b/mel.el @@ -204,8 +204,10 @@ ENCODING must be string." ENCODING must be string. If ENCODING is found in `mime-string-decoding-method-alist' as its key, this function decodes the STRING by its value." - (funcall (mel-find-function 'mime-decode-string encoding) - string)) + (let ((f (mel-find-function 'mime-decode-string encoding))) + (if f + (funcall f string) + string))) (mel-define-service encoded-text-encode-string (string encoding) -- 1.7.10.4