FLIM 1.13 mime-decode-string

[Yoshiki Hayashi]

(mime-decode-string "abc" 'x-unknown)
なら "abc" が帰ってくるのに、
(mime-decode-string "abc" 'base64)
だと error になるのはあんまりなので、以下のようにしてみまし
た。

一応 chao 1.14 に対する patch ですが、FLIM 1.13 にも当てたい
と思います。どうでしょうか。
# 数日中に反対が無い場合は実力行使します。:-)

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

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

-------------- next part --------------
Index: mel.el
===================================================================
RCS file: /cvs/root/flim/mel.el,v
retrieving revision 1.23
diff -u -r1.23 mel.el
--- mel.el	1999/12/16 09:13:31	1.23
+++ mel.el	2000/04/17 04:29:04
@@ -199,7 +199,12 @@
 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)))
 
 
-------------- next part --------------

-- 
Yoshiki Hayashi