From xemacs-m  Tue Apr  1 12:50:08 1997
Received: from master.control.att.com ([135.205.52.13])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id MAA18977
	for <xemacs-beta@xemacs.org>; Tue, 1 Apr 1997 12:50:08 -0600 (CST)
Received: from i.control.att.com by master.control.att.com with esmtp
	(Smail3.1.29.1 #3) id m0wC8c9-002iwvC; Tue, 1 Apr 97 13:49 EST
Received: by i.control.att.com (Smail3.1.29.1 #1)
	id m0wC8c9-000mUTC; Tue, 1 Apr 97 13:49 EST
Message-Id: <m0wC8c9-000mUTC@i.control.att.com>
Date: Tue, 1 Apr 97 13:49 EST
From: Larry Auton <lda@control.att.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: patl@lcs.mit.edu, jin@atype.com
Cc: xemacs-beta@xemacs.org
Subject: mailcrypt in xemacs-20.1-b10
X-Mailer: VM 6.22 under 20.1 XEmacs Lucid (beta10)

By "doing the wrong thing" I found that I could get mailcrypt to
crash.  Xemacs handled it fine so no damage was done.  I assume that
this is an error with mailcrypt, rather than VM 6.22 or Xemacs.

-lda
----
Here's the sequence that caused the error:

[Note: the last message in my mailbox is encrypted]

$ xemacs -q
M-x load-library<CR>mailcrypt<CR>
M-x vm<CR>
M-x mailcrypt-decrypt<CR>
[
  I was promted to enter my PGP passphrase, so
  I entered my PGP passphrase<CR>

  The minibuffer prompted for my preference on
  replacing the original encrypted message with
  with the newly decrypted messge (y or n)

  Instead of answering (y or n),
    I clicked the mouse on a scroll bar.
]

<<BOOM>>

The minibuffer said:

Wrong type argument: "unable to bind this type of event", #<misc-user-event (scrollbar-vertical-drag (#<window on "edit of [Sender and Subject of the message]" 0xc337 . 663))>

and a *Backtrace* buffer popped up as follows:

  # bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error)
  key-binding(#<misc-user-event (scrollbar-vertical-drag (#<window on "edit of AlanB's note re: Re: UWIN is cool" 0xc33> . 663))>)
  # bind (cursor-in-echo-area inhibit-quit event prompt yn pre)
  # (unwind-protect ...)
  # bind (prompt)
  y-or-n-p-minibuf("Replace encrypted message with decrypted? ")
  # bind (prompt)
  y-or-n-p("Replace encrypted message with decrypted? ")
  # bind (vm-frame-per-edit from-line)
  mc-vm-decrypt-message()
  # bind (func mode-alist)
  #<compiled-function (from "mc-toplev.elc") nil "...(17)" [major-mode mc-modes-alist mode-alist decrypt mc-decrypt-message func] 3 ("/usr/local/xemacs/lib/xemacs-20.1-b10/lisp/mailcrypt/mc-toplev.elc" . -3216) nil>()
  call-interactively(mailcrypt-decrypt)
  command-execute(mailcrypt-decrypt t)
  # bind (prefix-arg)
  execute-extended-command(nil)
  # bind (command-debug-status)
  call-interactively(execute-extended-command)
  # (condition-case ... . error)
  # (catch top-level ...)



