Multipart 時の不具合？ (flim-1_13-rfc2231-199911050613)

[Keiichi Suzuki]

;; Wanderlust のソースは始めて拝見させていただきました。 :-)

>>>>> emacs-mime-ja の No. 00110
>>>>> Message-Id: <drhfimzqqb.wl ＠ syrinx.atesoft.advantest.co.jp> で、
>>>>> "菅" == Taiji.Can ＠ atesoft.advantest.co.jpさま曰く...

菅>   さて、現象ですが、

菅>   flim-1_13-rfc2231-199911050613
  
菅>   を利用すると、

菅>   semi-1_13-199911100404 + wl-2.2.9
菅>   semi-pgpgpg-199911100428 + wl-2.2.9
菅>   wemi-  pgpgpg-unofficial-199911100415 + wl-2.2.9

菅>   で、以下のようなことが起きます。

mime-view-insert-entity-button([mime-elmo-imap4-entity [0 0 0 0 0 0 0]
nil ((type . text) (subtype . plain) ("charset" . "us-ascii")) nil
[mime-elmo-imap4-entity [0 0 0 0 0 0 0] nil (... ... ...) (#0 ... ...)
[mime-elmo-imap4-entity ... nil ... ... ... ... nil "7bit" nil nil
#<buffer "*MMELMO-BUFFER*1"> nil nil 1 1 nil "%inbox" 52936 ... nil] (0
0) nil "7bit" nil nil #<buffer "*MMELMO-BUFFER*1.1"> nil nil 1 1 nil
"%inbox" 52936 (... ... ... nil) nil] (0 0 0) nil "7bit" nil nil
#<buffer "*MMELMO-BUFFER*1.1.1"> nil nil 1 38 nil "%inbox" 52936 nil
39])

この backtrace を見ると、 content-type の prameter が
("charset" . "us-ascii") という形式になっています、しかし、
flim-1_13-rfc2231-199911050613 では、異る形式を想定しています。

対策としては Wanderlust の方の mmelmo-imap4-make-attributes-from-list で、
make-mime-parameter を使うようにするか、下の patch を
flim-1_13-rfc2231-199911050613 にあててもらえば動くようになるのではない
かと思います。

;; flim-1_13-rfc2231 に commit するべきかどうかはちょっと考えさせてくだ
;; さい。

-------------- next part --------------
Index: mime-def.el
===================================================================
RCS file: /hare/cvs/root/flim/mime-def.el,v
retrieving revision 1.49.2.14.6.2
diff -c -r1.49.2.14.6.2 mime-def.el
*** mime-def.el	1999/11/05 06:12:29	1.49.2.14.6.2
--- mime-def.el	1999/11/16 12:16:12
***************
*** 196,202 ****
  
  (defun mime-parameter-value (parm)
    (when parm
!     (or (aref (cdr parm) 3)
  	(let* ((mcs (mime-parameter-charset parm))
  	       (sorted-raw (sort (mime-parameter-raw-values parm)
  				 (function (lambda (a b)
--- 196,204 ----
  
  (defun mime-parameter-value (parm)
    (when parm
!     (or (and (stringp (cdr parm))
! 	     (cdr parm))
! 	(aref (cdr parm) 3)
  	(let* ((mcs (mime-parameter-charset parm))
  	       (sorted-raw (sort (mime-parameter-raw-values parm)
  				 (function (lambda (a b)
-------------- next part --------------

-- 
鈴木圭一 / keiichi ＠ nanap.org
PGP finger print (DH/DSS)
0B32 B37E 6DE9 3BC1 68A4  4089 7AAF 2B03 ECBD 614B