* mel.el (mime-decode-string): Return `string' itself if

`encoding' is unknown.

diff --git a/ChangeLog b/ChangeLog
index 42a2511..79173e3 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-03-04  Tanaka Akira      <akr@jaist.ac.jp>
+
+       * mel.el (mime-decode-string): Return `string' itself if
+       `encoding' is unknown.
+
 1999-02-26  Tanaka Akira      <akr@jaist.ac.jp>
 
        * mime-def.el (mime-library-product): Bump up to FLAM-DOODLE

diff --git a/mel.el b/mel.el
index c8764a9..e44ad5b 100644 (file)
--- a/mel.el
+++ b/mel.el
@@ -204,9 +204,11 @@ 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 ((fun (mel-find-function 'mime-decode-string encoding)))
+    (if fun
+       (funcall (mel-find-function 'mime-decode-string encoding)
+                string)
+      string)))
 
 (mel-define-service encoded-text-encode-string (string encoding)
   "Encode STRING as encoded-text using ENCODING.