(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 (file)
--- 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)