[Mew-dist 05628] toolbar on XEmacs

[Naoki Wakamatsu ( 若松直貴 )]

わかまつ＠会津大 です．

--without-toolbars オプションをつけてコンパイルした XEmacs-21.0-b50 で
M-x mew (1.93b48)を実行すると mew-xemacs.el を読んだときに

Symbol's function definition is void: toolbar-make-button-list

と叱られます．

Mew-1.93b48 に当たる修正パッチを作りました．
動作確認は Mew-1.93b48 + XEmacs-21.0-b50 でしかしてないので，ひょっ
としたらチョンボがあるかもしれません．

＃mew-xemacs-p が t なのに mew-temacs.el を読むのは邪道ですか？
---
若松直貴
s1031159 at example.com


-------------- next part --------------
--- mew-env.el.orig	Thu Jul 23 04:17:50 1998
+++ mew-env.el	Thu Jul 23 04:42:26 1998
@@ -22,8 +22,12 @@
  ((string-match "XEmacs" emacs-version)
   (setq mew-temacs-p nil)
   (setq mew-xemacs-p t)
-  (require 'mew-xemacs)
-  (if (and window-system (valid-image-instantiator-format-p 'xpm))
+  (if (featurep 'toolbar)
+      (require 'mew-xemacs)
+    (require 'mew-temacs))
+  (if (and window-system
+	   (featurep 'toolbar)
+	   (valid-image-instantiator-format-p 'xpm))
       (setq mew-icon-p t))
   (if (string-match "^19" emacs-version)
       (require 'mew-mule0)
--- mew-summary.el.orig	Thu Jul 23 04:21:46 1998
+++ mew-summary.el	Thu Jul 23 04:19:49 1998
@@ -258,6 +258,7 @@
 	     (sit-for 0) 
 	     ;; XEmacs doesn't draw toolbar, so...
 	     (if (and mew-icon-p
+		      (featurep 'toolbar)
 		      (specifier-instance default-toolbar-visible-p))
 		 (progn
 		   (set-specifier default-toolbar-visible-p nil)