FLIM 1.14 API (Re: flim-1_13-rfc2231 vs flim-1_14-rfc2231)

[Shuhei KOBAYASHI]

>>>>> In <86vgno8cu0.fsf_-_ ＠ aqua.ocn.ne.jp>,
>>>>> Shuhei KOBAYASHI <shuhei ＠ aqua.ocn.ne.jp> wrote:
> Q2-1. 現在の FLIM 1.14 実装とは `mime-content-type' の構造が異なって
>       いますが, これは FLIM 1.14 実装の bug なのでしょうか?
[...]
> Q3. `make-mime-content-type' は API に含まれないのですか?
>     `make-mime-content-disposition' は? (現在の FLIM 1.14 実装では未定義)

Wanderlust に `mime-content-type' 型を直接いじっている箇所があるので,
`mime-content-type' 型の構造は容易には変更できませんね.

| grep -n -e "'type" *.el /dev/null
| mmimap.el:114:      (setq content-type (list (cons 'type 'multipart)))
| mmimap.el:130:	    (list (cons 'type (intern (downcase (car bodystructure))))))

この辺はこんな感じでしょうか?

(setq content-type (make-mime-content-type
                    (intern (downcase (car bodystructure)))
                    (if (nth 1 bodystructure)
                        (intern (downcase (nth 1 bodystructure))))
                    (mmimap-parse-parameters-from-list
                     (nth 2 bodystructure))))

(setq content-type (make-mime-content-type
                    'multipart
                    (if (car bodystructure)
                        (intern (downcase (car bodystructure))))
                    (mmimap-parse-parameters-from-list
                     (nth 1 bodystructure))))

;; `parameters' が alist というのに依存した code があるのは SEMI だったかな?
-- 
Shuhei KOBAYASHI

おまけ: `prog1' のこんな使い方は邪悪ですか? ;-)

(defun mmimap-parse-parameters-from-list (attrlist)
  "Parse parameters from ATTRLIST."
  (prog1 attrlist
    (while attrlist
      (setq attrlist
            (setcdr attrlist
                    (prog1 (cdr (cdr attrlist))
                      (setcar attrlist
                              (prog1 (cdr attrlist)
                                (setcdr (cdr attrlist)
                                        (car (cdr attrlist)))
                                (setcar (cdr attrlist)
                                        (downcase (car attrlist)))))))))))