🚀 go-pugleaf

Bart will have an official patch soon. In the meantime, here is an unofficial
patch to fix the compose frame problems under OS 4.0.x and OS 4.1.

	-Bill

*** doproc.c.orig	Wed Oct 24 16:14:56 1990
--- doproc.c	Thu Nov  8 09:12:19 1990
***************
*** 570,581 ****
      open_compose();
      clear_msg_list(msg_list);
      if (do_mail(0, DUBL_NULL, msg_list) == 0) {
  #ifdef SUN_4_0
! 	Panel panel = (Panel)window_get(compose_frame, FRAME_NTH_WINDOW, 1);
  #else
! 	Panel panel = (Panel)window_get(compose_frame, FRAME_NTH_WINDOW, 0);
  #endif /* SUN_4_0 */
! 	Textsw textsw = (Textsw)panel_get(panel, PANEL_CLIENT_DATA);
  	start_textsw_edit(textsw, TRUE);
  	set_comp_items(panel);
      }
--- 570,586 ----
      open_compose();
      clear_msg_list(msg_list);
      if (do_mail(0, DUBL_NULL, msg_list) == 0) {
+ 	Panel panel;
+ 	Textsw textsw;
  #ifdef SUN_4_0
! 	if (do_set(set_options, "compose_icon"))
! 	    panel = (Panel)window_get(compose_frame, FRAME_NTH_WINDOW, 0);
! 	else
! 	    panel = (Panel)window_get(compose_frame, FRAME_NTH_WINDOW, 1);
  #else
! 	panel = (Panel)window_get(compose_frame, FRAME_NTH_WINDOW, 0);
  #endif /* SUN_4_0 */
! 	textsw = (Textsw)panel_get(panel, PANEL_CLIENT_DATA);
  	start_textsw_edit(textsw, TRUE);
  	set_comp_items(panel);
      }
*** tool.c.orig	Thu Nov  8 09:46:47 1990
--- tool.c	Thu Nov  8 09:47:25 1990
***************
*** 194,200 ****
  	    WIN_SHOW,		TRUE,
  	    NULL);
      else
! 	compose_frame = window_create(NULL, FRAME,
  	    FRAME_LABEL,		"Compose Letter",
  	    FRAME_SHOW_LABEL,	TRUE,
  	    FRAME_NO_CONFIRM,	TRUE,
--- 194,200 ----
  	    WIN_SHOW,		TRUE,
  	    NULL);
      else
! 	compose_frame = window_create(tool, FRAME,
  	    FRAME_LABEL,		"Compose Letter",
  	    FRAME_SHOW_LABEL,	TRUE,
  	    FRAME_NO_CONFIRM,	TRUE,