(mml-menu): Add Emacs MIME manual and PGG manual.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 726c1eb..416f951 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2006-01-20  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * 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  <rms@gnu.org>
 

diff --git a/lisp/mml.el b/lisp/mml.el
index 4c9f1f6..9e97e4a 100644 (file)
--- 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.")