From: morioka <morioka>
Date: Mon, 1 Mar 1999 08:17:51 +0000 (+0000)
Subject: (mime-decode-string): Return STRING if return value of
X-Git-Tag: flim-1_12_6~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1d8de49fdeaa7f7b22071d1e156c8acfca410ca2;p=elisp%2Fflim.git

(mime-decode-string): Return STRING if return value of
`(mel-find-function 'mime-decode-string encoding)' is nil.
---

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)