set-frame-size for frame without minibuffer loses mode line

[Drew Adams]

emacs -Q

M-: (setq pop-up-frames t)
M-: (setq minibuffer-frame-alist (cons (quote (minibuffer . only))
                                       minibuffer-frame-alist))
M-: (setq default-frame-alist (cons (quote (minibuffer))
                                    default-frame-alist))
M-: (make-frame minibuffer-frame-alist)
C-x 4 d some directory

With the dired frame selected:
M-: (set-frame-size (selected-frame) 30 40)

The dired frame is correctly resized, but an empty extra line appears
below the mode line (there is no minibuffer on this frame).

With the dired frame selected, repeat the last command (that is,
repeat (set-frame-size (selected-frame) 30 40)):

C-x ESC ESC

Now, both the extra empty "minibuffer" line and the mode line have
disappeared.

The more serious bug is the disappearance of the mode line. No matter
how many times the `set-frame-size' is repeated, the mode line does
not reappear.

IOW, the first `set-frame-size' is OK (except for the extra blank
line), but repeating it removes the mode line.

This is not related to C-x ESC ESC or M-:. The same thing happens
from Lisp code that calls `set-frame-size'. If there is a standalone
minibuffer, then the problem arises.


In GNU Emacs 22.1.1 (i386-mingw-nt5.1.2600)
 of 2007-06-02 on RELEASE
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --cflags -Ic:/gnuwin32/include'