changeset 98440:9f489d6f8e69

(mml-menu): Don't assume mml2015 is bound.
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 30 Sep 2008 23:11:17 +0000
parents 90863e3da520
children 38ad371acd1d
files lisp/gnus/mml.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/mml.el	Tue Sep 30 23:11:11 2008 +0000
+++ b/lisp/gnus/mml.el	Tue Sep 30 23:11:17 2008 +0000
@@ -1102,13 +1102,13 @@
     ["PGG manual" (lambda () (interactive) (message-info mml2015-use))
      ;; XEmacs barfs on :visible.
      ,@(if (featurep 'xemacs) nil
-	 '(:visible (equal mml2015-use 'pgg)))
+	 '(:visible (and (boundp 'mml2015-use) (equal mml2015-use 'pgg))))
      ,@(if (featurep 'xemacs) '(t)
 	 '(:help "Display the PGG manual"))]
-    ["EasyPG manual" (lambda () (interactive) (message-info mml2015-use))
+    ["EasyPG manual" (lambda () (interactive) (require 'mml2015) (message-info mml2015-use))
      ;; XEmacs barfs on :visible.
      ,@(if (featurep 'xemacs) nil
-	 '(:visible (equal mml2015-use 'epg)))
+	 '(:visible (and (boundp 'mml2015-use) (equal mml2015-use 'epg))))
      ,@(if (featurep 'xemacs) '(t)
 	 '(:help "Display the EasyPG manual"))]))