mime-preview-toggle-{header,content} for a default invisible part.

[OKAZAKI Tetsurou]

岡崎です。wl ＠ lists.airs.net は外しました。

In the ML [emacs-mime-ja 00484] 
tomo ＠ etl.go.jp (守岡 知彦 / MORIOKA Tomohiko) wrote:

守岡> >>>>> In [emacs-mime-ja : No.00481] 
守岡> >>>>>	"岡崎" = OKAZAKI Tetsurou <okazaki ＠ be.to> wrote:

岡崎> mime-view-situation  ((major-mode . mmelmo-original-mode))  … (1)

岡崎> mime-view-situation  ((*body . invisible)
			    (major-mode . mmelmo-original-mode))
岡崎>                                                             … (2)

岡崎> mime-preview-toggle-display の現在の実装では、(1) の様に
岡崎> mime-view-situation に該当する property が存在しない場合、
岡崎> (現在の状態が) visible だとみなして (2) に遷移させています。
岡崎> これがこの関数の仕様だとすると、body/header の visible/invisible
岡崎> の初期状態を mime-view-situation にあらかじめ設定しておく方が
岡崎> いいのかな、と思います。

守岡> つまり、header と body に関する default value の扱いが 
守岡> mime-display-entity と mime-preview-toggle-display で不一致になってい
守岡> る訳ですね。(^_^;;; button, header, body で

どんな状況なのかがわかりました。;; なんとなく…

守岡> mime-preview-toggle-display を共有したい気がするので、
守岡> header と body の default value を button に合わせるか、岡崎さんがおっ

これは、mime-display-entity の側でも (1) の時に header/body を
visible とみなして表示する、という理解でよいでしょうか。

守岡> しゃっているように default value を生じないようにすれば良いんでしょう
守岡> ね。

守岡> 岡崎さんの案で行く場合、mime-display-entity を
...
守岡> みたいに修正すれば良いでしょうか？（未確認です）

試しに関数定義を置き換えてみたら、header も body も invisible に
出来なくなってあせった(^_^;のですが、

    (let ((button-is-invisible
	   (eq (cdr (or (assq '*entity-button situation)
			(assq 'entity-button situation)))
	       'invisible))
	  (header-is-visible
	   (if (eq (cdr (or (assq '*header situation)
			    (assq 'header situation)))
		   'visible)
	       t
	     (setq situation (put-alist '*header 'invisible situation))
	     nil))
	  (body-is-visible
	   (if (eq (cdr (or (assq '*body situation)
			    (assq 'body situation)))
		   'visible)
	       t
	     (setq situation (put-alist '*body 'invisible situation))
	     nil))

でよかった様です。しばらくこれで使ってみます。

守岡> あと、なんとなく、header と body も default では visible とする方が良
守岡> いような気もするので、この方向も試したいと思います。

-- 
岡崎哲朗