[Mew-dist 15275] base64-decode-string

[Takuro Horikawa ( 堀川 拓郎 )]

堀川です。


emacs-21 から mew-base64-decode-string はエラーの時 nil ではなく
signal に変更だそうです。
----
** The functions base64-decode-region and base64-decode-string now
signal an error instead of returning nil if decoding fails.
----

base64-decode-region の時の修正はある見たいですが、
----
--- mew-env.el~	Mon Dec  4 14:38:44 2000
+++ mew-env.el	Mon Dec  4 15:42:10 2000
@@ -320,7 +320,11 @@
 
 (cond
  ((fboundp 'base64-decode-string)
-  (defalias 'mew-base64-decode-string 'base64-decode-string))
+  (defun mew-base64-decode-string (str64)
+    (condition-case nil
+        (base64-decode-string str64)
+      (error nil))
+      ))
  (t
   (defconst mew-base64-char256
     (let ((i 0) (len (length mew-base64-char64)) (s (make-string 256 0)))
---
こんな修正で良いのかな？
----------------------------------------
堀川　拓郎　takuroho at example.com