[mew-dist 25282] Re: B decode 時のエラー条件緩和

[Kazu Yamamoto ( 山本和彦 )]

>   自分だったら、適当に自家製パッチを作ります。例えばこんなのですが。

いや、これはあまりにも...
やるなら、こうでしょう。

4 で割った余りが 1 のときは、どうするんでしょうか？

--かず

Index: mew-env.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-env.el,v
retrieving revision 1.40
diff -c -r1.40 mew-env.el
*** mew-env.el	3 Mar 2004 15:44:30 -0000	1.40
--- mew-env.el	10 Sep 2004 09:48:59 -0000
***************
*** 314,320 ****
   ((fboundp 'base64-decode-string)
    (defun mew-base64-decode-string (str64)
      (condition-case nil
!         (base64-decode-string str64)
        (error nil))))
   (t
    (defconst mew-base64-char256
--- 314,326 ----
   ((fboundp 'base64-decode-string)
    (defun mew-base64-decode-string (str64)
      (condition-case nil
! 	(let ((r (% (length str64) 4)))
! 	  (cond
! 	   ((= r 2)
! 	    (setq str64 (concat str64 "==")))
! 	   ((= r 3)
! 	    (setq str64 (concat str64 "="))))
! 	  (base64-decode-string str64))
        (error nil))))
   (t
    (defconst mew-base64-char256