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