EMY 1.13.7

[KANEMATSU Daiji]

兼松です.

From: Yoshiki Hayashi <t90553 ＠ mail.ecc.u-tokyo.ac.jp>
Subject: Re: EMY 1.13.7
Date: 19 Jun 2000 17:50:39 +0900
Message-Id: <w45hfaq9hr4.fsf ＠ pig.logos.t.u-tokyo.ac.jp>

...(snip)...

> 今のところは仕様です。
> EMY では、mime-view-entity-button-visible-p を書換えて
> mime-view-button-place-alist で設定できるようにしてありますが、
> EMIKO 1.13.12 にある multipart/encrypted の子供は button を表
> 示しないようにする、というような表現はできなくなっています。

> RFC1847 を眺めたところによると、2つの part しか存在しないよう
> なので、以下のようなものを eval すると同じ表示になると思います
> が、どうでしょうか。
> # 手元にそういうメールが無いので未確認です。

以下を評価した後, 再度PGPメールを見たら, EMIKOの時と
同じ表示になりました. 

> (defun mime-display-multipart/encrypted (entity situation)
>   (let ((children (mime-entity-children entity))
> 	(original-major-mode-cell (assq 'major-mode situation))
> 	(default-situation
> 	  (cdr (assq 'childrens-situation situation))))
>     (if original-major-mode-cell
> 	(setq default-situation
> 	      (cons original-major-mode-cell default-situation)))
>     (mime-display-entity (car children) nil default-situation)
>     (mime-display-entity (cadr children) nil
> 			 (put-alist '*entity-button
> 				    'invisible default-situation))))

> (mime-add-condition
>  'preview '((type . multipart) (subtype . encrypted)
> 	    (body . visible)
> 	    (body-presentation-method . mime-display-multipart/encrypted)))

どうもありがとうございました.

-- 
Software Research Associates,Inc.
 Daiji KANEMATSU <kanematu ＠ sra.co.jp>
 http://www.sra.co.jp/people/kanematu/
 PGP public key: http://www.sra.co.jp/people/kanematu/my_pub_key.txt