EasyPG menu to mml.el update breaks XEmacs

[Dave Goldberg <david.goldberg6@verizon.net>]

[-- Attachment #1: Type: text/plain, Size: 614 bytes --]

After a fresh CVS update this morning I now get the attached backtrace
any time I try to send a mail (e.g. enter message-mode) on either

XEmacs 21.4 (patch 20) "Double Solitaire" [Lucid] (i686-pc-linux, Mule) of Mon Oct 22 2007 on dsg-laptop

It also happens with 21.4.21.

Unfortunately, I do not understand the easymenu-define function - my
one attempt to patch this also broke - so I cannot suggest a fix other
than, for now, backing out to CVS version 7.62 of mml.el.  If nothing
happens in the mean time, I will try again later when I'm done with
work.

Thanks,
-- 
Dave Goldberg
david.goldberg6@verizon.net

[-- Attachment #2: Type: text/plain, Size: 5673 bytes --]


Debugger entered--Lisp error: (error "unknown menu item keyword" :visible ["Externalize Attachments" (lambda nil (interactive) (setq gnus-gcc-externalize-attachments (not gnus-gcc-externalize-attachments)) (message "gnus-gcc-externalize-attachments is `%s'." gnus-gcc-externalize-attachments)) :visible (and (boundp (quote gnus-gcc-externalize-attachments)) (memq gnus-gcc-externalize-attachments (quote (all t nil)))) :style toggle :selected gnus-gcc-externalize-attachments])
  signal(error ("unknown menu item keyword" :visible ["Externalize Attachments" (lambda nil ... ... ...) :visible (and ... ...) :style toggle :selected gnus-gcc-externalize-attachments]))
  check-menu-syntax(("Attachments" ["Attach File..." mml-attach-file t] ["Attach Buffer..." mml-attach-buffer t] ["Attach External..." mml-attach-external t] ["Externalize Attachments" (lambda nil ... ... ...) :visible (and ... ...) :style toggle :selected gnus-gcc-externalize-attachments] "----" ("Change Security Method" ["PGP/MIME" ... :style radio :selected ...] ["S/MIME" ... :style radio :selected ...] ["Inline PGP" ... :style radio :selected ...]) ["Sign Message" mml-secure-message-sign t] ["Encrypt Message" mml-secure-message-encrypt t] ["Sign and Encrypt Message" mml-secure-message-sign-encrypt t] ["Encrypt/Sign off" mml-unsecure-message t] ["Sign Part" mml-secure-sign t] ["Encrypt Part" mml-secure-encrypt t] "----" ["Insert Part..." mml-insert-part :active (message-in-body-p)] ["Insert Multipart..." mml-insert-multipart :active (message-in-body-p)] ["Quote MML in region" mml-quote-region :active (message-mark-active-p)] ["Validate MML" mml-validate t] ["Preview" mml-preview t] "----" ["Emacs MIME manual" (lambda nil ... ...) t] ["PGG manual" (lambda nil ... ...) :visible (equal mml2015-use ...) t] ["EasyPG manual" (lambda nil ... ...) :visible (equal mml2015-use ...) t]) nil)
  add-submenu(nil ("Attachments" ["Attach File..." mml-attach-file t] ["Attach Buffer..." mml-attach-buffer t] ["Attach External..." mml-attach-external t] ["Externalize Attachments" (lambda nil ... ... ...) :visible (and ... ...) :style toggle :selected gnus-gcc-externalize-attachments] "----" ("Change Security Method" ["PGP/MIME" ... :style radio :selected ...] ["S/MIME" ... :style radio :selected ...] ["Inline PGP" ... :style radio :selected ...]) ["Sign Message" mml-secure-message-sign t] ["Encrypt Message" mml-secure-message-encrypt t] ["Sign and Encrypt Message" mml-secure-message-sign-encrypt t] ["Encrypt/Sign off" mml-unsecure-message t] ["Sign Part" mml-secure-sign t] ["Encrypt Part" mml-secure-encrypt t] "----" ["Insert Part..." mml-insert-part :active (message-in-body-p)] ["Insert Multipart..." mml-insert-multipart :active (message-in-body-p)] ["Quote MML in region" mml-quote-region :active (message-mark-active-p)] ["Validate MML" mml-validate t] ["Preview" mml-preview t] "----" ["Emacs MIME manual" (lambda nil ... ...) t] ["PGG manual" (lambda nil ... ...) :visible (equal mml2015-use ...) t] ["EasyPG manual" (lambda nil ... ...) :visible (equal mml2015-use ...) t]) nil)
  add-menu(nil "Attachments" (["Attach File..." mml-attach-file t] ["Attach Buffer..." mml-attach-buffer t] ["Attach External..." mml-attach-external t] ["Externalize Attachments" (lambda nil ... ... ...) :visible (and ... ...) :style toggle :selected gnus-gcc-externalize-attachments] "----" ("Change Security Method" ["PGP/MIME" ... :style radio :selected ...] ["S/MIME" ... :style radio :selected ...] ["Inline PGP" ... :style radio :selected ...]) ["Sign Message" mml-secure-message-sign t] ["Encrypt Message" mml-secure-message-encrypt t] ["Sign and Encrypt Message" mml-secure-message-sign-encrypt t] ["Encrypt/Sign off" mml-unsecure-message t] ["Sign Part" mml-secure-sign t] ["Encrypt Part" mml-secure-encrypt t] "----" ["Insert Part..." mml-insert-part :active (message-in-body-p)] ["Insert Multipart..." mml-insert-multipart :active (message-in-body-p)] ["Quote MML in region" mml-quote-region :active (message-mark-active-p)] ["Validate MML" mml-validate t] ["Preview" mml-preview t] "----" ["Emacs MIME manual" (lambda nil ... ...) t] ["PGG manual" (lambda nil ... ...) :visible (equal mml2015-use ...) t] ["EasyPG manual" (lambda nil ... ...) :visible (equal mml2015-use ...) t]))
  easy-menu-add(("Attachments" ["Attach File..." mml-attach-file t] ["Attach Buffer..." mml-attach-buffer t] ["Attach External..." mml-attach-external t] ["Externalize Attachments" (lambda nil ... ... ...) :visible (and ... ...) :style toggle :selected gnus-gcc-externalize-attachments] "----" ("Change Security Method" ["PGP/MIME" ... :style radio :selected ...] ["S/MIME" ... :style radio :selected ...] ["Inline PGP" ... :style radio :selected ...]) ["Sign Message" mml-secure-message-sign t] ["Encrypt Message" mml-secure-message-encrypt t] ["Sign and Encrypt Message" mml-secure-message-sign-encrypt t] ["Encrypt/Sign off" mml-unsecure-message t] ["Sign Part" mml-secure-sign t] ["Encrypt Part" mml-secure-encrypt t] "----" ["Insert Part..." mml-insert-part :active (message-in-body-p)] ["Insert Multipart..." mml-insert-multipart :active (message-in-body-p)] ["Quote MML in region" mml-quote-region :active (message-mark-active-p)] ["Validate MML" mml-validate t] ["Preview" mml-preview t] "----" ["Emacs MIME manual" (lambda nil ... ...) t] ["PGG manual" (lambda nil ... ...) :visible (equal mml2015-use ...) t] ["EasyPG manual" (lambda nil ... ...) :visible (equal mml2015-use ...) t]) #<keymap size 1 0x3213>)
  mml-mode()
  message-mode()
  message-pop-to-buffer("*mail*" nil)
  message-mail()
  gnus-summary-mail-other-window(nil)
  call-interactively(gnus-summary-mail-other-window)