From 790ed295ca575375140fbc54c943ebd336085de3 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Fri, 20 Jan 2006 20:17:03 +0000 Subject: [PATCH] (mml-menu): Add Emacs MIME manual and PGG manual. --- lisp/ChangeLog | 1 + lisp/mml.el | 10 +++++++++- 2 files changed, 10 insertions(+), 1 deletion(-) 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.") -- 2.34.1