;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for ZMail version 74.3
;;; Reason:
;;;  Fix UPDATE-ZMAIL-PROFILE-CHOICE-WINDOW so if Zmail window is not found
;;;  (e.g.  if user killed Zmail), it doesn't blow out.  Now it offers to
;;;  create ZMail window.  This is a big improvement for future patches that
;;;  define profile variables, since this gets called within LOAD-PATCHES,
;;;  when errors are unfortunate.
;;; Written 29-Sep-88 21:06:55 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 1
;;; with Experimental System 126.94, Experimental ZWEI 126.13, Experimental ZMail 74.2, Experimental Local-File 76.0, Experimental File-Server 25.0, Experimental Lambda-Diag 18.0, Experimental Unix-Interface 15.0, Experimental Tape 26.4, microcode 1762, SDU Boot Tape 3.14, SDU ROM 103.



; From modified file DJ: L.ZMAIL; TOP.LISP#561 at 29-Sep-88 21:06:59
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZMAIL; TOP  "

(defun find-or-maybe-initialize-zmail-window (&optional reason)
  (or (tv:find-window-of-flavor 'zmail-frame)
      (and (yes-or-no-p "Start up ZMail~@[ ~A~]?" reason)
	   (prog2 (initialize-zmail) *zmail-window*))))

))

; From modified file DJ: L.ZMAIL; DEFS.LISP#283 at 29-Sep-88 21:07:13
#8R ZWEI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ZMAIL; DEFS  "


;;; Call this to update the item list of the Profile CVV window.  Needs to be done when patches
;;; call DEFINE-ZMAIL-USER-OPTION.
;;;>>>Then hope patches don't get loaded in world where ZMail is not running
;;;   (maybe user killed it).  So, at least check first.  If user says to make
;;;   a window, do so.

(defun update-zmail-profile-choice-window ()
  "Update the ZMail profile window from the current user option (variables) list.
If ZMail is not up and running, the user is asked whether to start it up (default is no)."
  (let ((zmail (find-or-maybe-initialize-zmail-window "to update profile window")))
    (if zmail
	(prog2 (send
		 (send (symeval-in-closure (send zmail :editor-closure) '*profile-window*)
		       :get-pane 'choose-window)
		 :set-items *zmail-user-option-alist*)
	       t)
      (warn "No ZMail window running -- cannot update profile window"))))

))