From: akr <akr>
Date: Thu, 4 Mar 1999 08:28:04 +0000 (+0000)
Subject: * mel.el (mime-decode-string): Return `string' itself if
X-Git-Tag: doodle-1_12_5~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6b78c3f4922aa098018146a23494125bb64452ff;p=elisp%2Fflim.git

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

diff --git a/ChangeLog b/ChangeLog
index 42a2511..79173e3 100644
--- 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
--- 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.