From: okada <okada>
Date: Mon, 17 Apr 2000 04:55:05 +0000 (+0000)
Subject: 2000-04-17  Yoshiki Hayashi  <yoshiki@xemacs.org>
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=90a83d0298aff29e5d4ccbe23d18cafe8e1213ef;p=elisp%2Fflim.git

2000-04-17  Yoshiki Hayashi  <yoshiki@xemacs.org>

	* mel.el (mime-decode-string): Return original string
	when it failed to decode.
---

diff --git a/ChangeLog b/ChangeLog
index 2b54d78..51d4a38 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-04-17  Yoshiki Hayashi  <yoshiki@xemacs.org>
+
+	* mel.el (mime-decode-string): Return original string
+	when it failed to decode.
+
 2000-04-16  Kenichi OKADA <okada@opaopa.org>
 
 	* SLIM: Version 1.13.7 released.
diff --git a/mel.el b/mel.el
index 12fff86..98d08c7 100644
--- a/mel.el
+++ b/mel.el
@@ -199,7 +199,12 @@ ENCODING must be string.  If ENCODING is found in
 the STRING by its value."
   (let ((f (mel-find-function 'mime-decode-string encoding)))
     (if f
-	(funcall f string)
+	(condition-case nil
+	    (funcall f string)
+	  (error
+	   (message "Wrong Content-Transfer-Encoding: %s"
+		    encoding)
+	   string))
       string)))