From xemacs-m  Mon Apr 14 18:21:38 1997
Received: from mailhost.lanl.gov (mailhost.lanl.gov [128.165.3.12])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id SAA18671
	for <xemacs-beta@xemacs.org>; Mon, 14 Apr 1997 18:21:38 -0500 (CDT)
Received: from branagh.ta52.lanl.gov (branagh.ta52.lanl.gov [128.165.144.9]) by mailhost.lanl.gov (8.8.5/8.8.3) with SMTP id RAA19794; Mon, 14 Apr 1997 17:21:25 -0600 (MDT)
Received: by branagh.ta52.lanl.gov (SMI-8.6/SMI-SVR4)
	id RAA21686; Mon, 14 Apr 1997 17:16:03 -0600
Date: Mon, 14 Apr 1997 17:16:03 -0600
Message-Id: <199704142316.RAA21686@branagh.ta52.lanl.gov>
From: "John A. Turner" <turner@lanl.gov>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: bug-vm@uunet.uu.net, xemacs-beta@xemacs.org
Subject: Re: Visit no longer works
In-Reply-To: <199704142305.RAA21652@branagh.ta52.lanl.gov>
References: <199704142305.RAA21652@branagh.ta52.lanl.gov>
X-Mailer: VM 6.24 under 20.1 XEmacs Lucid (beta15)

John A. Turner writes:
 > Apologies if this has already been reported.
 > 
 > Click Visit toolbar button, new frame pops up, folders and directories 
 > highlighted when mouse passes over, but whereas both button1 and
 > button2 used to select the folder/directory, now nothing happens.

When I click Visit, then do C-h k button1 or button2 in new frame, I
get:

ignore:
Do nothing and return nil.
This function accepts any number of arguments, but ignores them.

Tried running with -q, and although Visit seems to work, when I do C-h 
k button1 I get 

Symbol's value as variable is void: vm-mouse-read-file-prompt

in the minibuffer and the following *Backtrace*:

  # bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error key-doc start list string)
  vm-mouse-read-file-name-event-handler(".")
  (and string (vm-mouse-read-file-name-event-handler string))
)
  # bind (string)
  (let ((string ...)) (and string (vm-mouse-read-file-name-event-handler string)))
)
  # bind (e)
  (lambda (e) (interactive "e") (let (...) (and string ...)))(#<buttonup-event button2up>)
  # bind (command-debug-status)
  call-interactively((lambda (e) (interactive "e") (let (...) (and string ...))))
  # (condition-case ... . error)
  # (catch exit ...)
  # bind (standard-input standard-output)
  # (unwind-protect ...)
  recursive-edit()
  # (unwind-protect ...)
  # (unwind-protect ...)
  # bind (history initial must-match default dir prompt)
  vm-mouse-read-file-name("Visit folder: " "/home/turner/Mail" nil nil nil vm-folder-history)
  # bind (history initial must-match default dir prompt)
  vm-read-file-name("Visit folder: " "/home/turner/Mail" nil nil nil vm-folder-history)
  (list (vm-read-file-name (format "Visit%s folder:%s " ... ...) default-directory default nil nil (quote vm-folder-history)) current-prefix-arg)
)
  # bind (last-command this-command default default-directory)
  (let ((default-directory ...) (default ...) (this-command this-command) (last-command last-command)) (list (vm-read-file-name ... default-directory default nil nil ...) current-prefix-arg))
)
  # (unwind-protect ...)
  (save-excursion (vm-session-initialization) (vm-select-folder-buffer) (let (... ... ... ...) (list ... current-prefix-arg)))
)
  call-interactively(vm-toolbar-visit-command)
  # bind (callback button event)
  release-and-activate-toolbar-button(#<buttonup-event button1up>)
  # bind (command-debug-status)
  call-interactively(release-and-activate-toolbar-button)
  # (condition-case ... . error)
  # (catch exit ...)
  # bind (standard-input standard-output)
  # (unwind-protect ...)
  recursive-edit()
  # (unwind-protect ...)
  # (unwind-protect ...)
  # bind (history initial must-match default dir prompt)
  vm-mouse-read-file-name("Visit folder: " "/home/turner/Mail" nil nil nil vm-folder-history)
  # bind (history initial must-match default dir prompt)
  vm-read-file-name("Visit folder: " "/home/turner/Mail" nil nil nil vm-folder-history)
  (list (vm-read-file-name (format "Visit%s folder:%s " ... ...) default-directory default nil nil (quote vm-folder-history)) current-prefix-arg)
)
  # bind (last-command this-command default default-directory)
  (let ((default-directory ...) (default ...) (this-command this-command) (last-command last-command)) (list (vm-read-file-name ... default-directory default nil nil ...) current-prefix-arg))
)
  # (unwind-protect ...)
  (save-excursion (vm-session-initialization) (vm-select-folder-buffer) (let (... ... ... ...) (list ... current-prefix-arg)))
)
  call-interactively(vm-toolbar-visit-command)
  # bind (callback button event)
  release-and-activate-toolbar-button(#<buttonup-event button1up>)
  # bind (command-debug-status)
  call-interactively(release-and-activate-toolbar-button)
  # (condition-case ... . error)
  # (catch top-level ...)

Am I doing something dumb?  I see basically the same thing in 19.15
(release) / VM 6.22.

-J

