drag of mode line fails

[Ehud Karni]

In GNU Emacs 21.1.1 (i686-redhat-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2001-10-22 on beta
configured using `configure  --host=i686-redhat-linux-gnu --with-pop 
--with-x-toolkit=athena'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: C
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

My frame was divided into two windows. I tried to drag the higher mode
line to resize the windows. I got the error:
        byte-code: Wrong type argument: window-live-p, t

I tracked the problem to `mouse-drag-mode-line-1' in mouse.el.
The following patch solves the problem:

diff -c /usr/local/share/emacs/21.1/lisp/mouse_org.el 
/usr/local/share/emacs/21.1/lisp/mouse.el
*** /usr/local/share/emacs/21.1/lisp/mouse_org.el       Tue Aug 28 09:33:37 2001
--- /usr/local/share/emacs/21.1/lisp/mouse.el   Fri Nov  2 11:41:52 2001
***************
*** 313,319 ****
         (start-event-frame (window-frame start-event-window))
         (start-nwindows (count-windows t))
         (old-selected-window (selected-window))
!        (minibuffer (frame-parameter nil 'minibuffer))
         should-enlarge-minibuffer event mouse y top bot edges wconfig growth)
      (track-mouse
        (progn
--- 313,320 ----
         (start-event-frame (window-frame start-event-window))
         (start-nwindows (count-windows t))
         (old-selected-window (selected-window))
!        (minibuffer (cdr-safe (assoc 'minibuffer (frame-parameters))))
         should-enlarge-minibuffer event mouse y top bot edges wconfig growth)
      (track-mouse
        (progn

Diff finished at Fri Nov  2 11:42:22

Ehud.

-- 
 Ehud Karni     Mivtach - Simon  Insurance   /"\
 Tel: +972-3-7966-561 Fax: +972-3-7966-667   \ /  ASCII Ribbon Campaign
 (USA) Fax and  voice  mail: 1-815-5509341    X   Against  HTML  Mail
     Better     Safe     Than     Sorry      / \
     mailto:ehud@unix.simonwiesel.co.il    http://www.simonwiesel.co.il