From: Reiner Steib Date: Fri, 20 Jan 2006 20:17:03 +0000 (+0000) Subject: (mml-menu): Add Emacs MIME manual and PGG manual. X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=790ed295ca575375140fbc54c943ebd336085de3 (mml-menu): Add Emacs MIME manual and PGG manual. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 726c1ebe2..416f9512b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,7 @@ 2006-01-20 Reiner Steib * mml.el (mml-attach-file): Describe `description' in doc string. + (mml-menu): Add Emacs MIME manual and PGG manual. 2005-12-12 Richard M. Stallman diff --git a/lisp/mml.el b/lisp/mml.el index 4c9f1f6c3..9e97e4aa5 100644 --- a/lisp/mml.el +++ b/lisp/mml.el @@ -38,6 +38,7 @@ (autoload 'gnus-make-local-hook "gnus-util") (autoload 'message-fetch-field "message") (autoload 'message-mark-active-p "message") + (autoload 'message-info "message") (autoload 'fill-flowed-encode "flow-fill") (autoload 'message-posting-charset "message")) @@ -961,7 +962,14 @@ If HANDLES is non-nil, use it instead reparsing the buffer." ,@(if (featurep 'xemacs) nil '(:help "Quote MML tags in region"))] ["Validate MML" mml-validate t] - ["Preview" mml-preview t])) + ["Preview" mml-preview t] + "----" + ["Emacs MIME manual" (lambda () (interactive) (message-info 4)) + ,@(if (featurep 'xemacs) '(t) + '(:help "Display the Emacs MIME manual"))] + ["PGG manual" (lambda () (interactive) (message-info 16)) + ,@(if (featurep 'xemacs) '(t) + '(:help "Display the PGG manual"))])) (defvar mml-mode nil "Minor mode for editing MML.")