mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-31 11:13:50 +00:00
Code Issues Releases Activity

(mml-menu): Don't assume mml2015 is bound.

Browse Source
This commit is contained in:
Chong Yidong 2008-09-30 23:11:17 +00:00
parent 059b98fa7f
commit 7335e37637
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/gnus/mml.el
View File

@ -1102,13 +1102,13 @@ If HANDLES is non-nil, use it instead reparsing the buffer."
["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"))]))