[Mew-dist 3085] drawing toolbar

[TSUMURA Tomoaki ( 津邑公暁 )]

つむら＠京大 です。

私は XEmacs を使うときに、常に toolbar を表示させないように
しているんですが (変でしょうか？)、Mew で forward する際に
toolbar の表示が on になってしまいます。

それで、とりあえず以下のようにして逃げてみました。mew-icon-p
を t に setq しないという方法もあると思いますが、
それだと Mew 起動後に toolbar 表示を on にした場合 困りそう
なので、とりあえず こうしました。
;; あまり よく分かってません。(^^;
--
``The paths of glory lead but to the grave.''
                                    津邑 公暁＠情報工学専攻.京大
                                      tsumura at example.com
                    http://www.lab3.kuis.kyoto-u.ac.jp/~tsumura/


Mew 1.93b6 への patch です。

--- mew-summary.el.org	Sun Dec  7 16:41:47 1997
+++ mew-summary.el	Sun Dec  7 16:40:56 1997
@@ -1319,7 +1319,8 @@
 	    ;; XEmacs doesn't draw attachments unless sit for 0...
 	    (sit-for 0) 
 	    ;; XEmacs doesn't draw toolbar, so...
-	    (if mew-icon-p
+	    (if (and mew-icon-p
+                     (specifier-instance default-toolbar-visible-p))
 		(progn
 		  (set-specifier default-toolbar-visible-p nil)
 		  (set-specifier default-toolbar-visible-p t)
@@ -1360,7 +1361,8 @@
 	      ;; XEmacs doesn't draw attachments unless sit for 0...
 	      (sit-for 0) 
 	      ;; XEmacs doesn't draw toolbar, so...
-	      (if mew-icon-p
+	      (if (and mew-icon-p
+                       (specifier-instance default-toolbar-visible-p))
 		  (progn
 		    (set-specifier default-toolbar-visible-p nil)
 		    (set-specifier default-toolbar-visible-p t)