(mml-menu): Disable mml-quote-region if mark is inactive.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d85cd1..22711c4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * mml.el (mml-generate-mime-1): Don't use format=flowed with
        inline PGP.
+       (mml-menu): Disable mml-quote-region if mark is inactive.
 
 2004-03-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/mml.el b/lisp/mml.el
index 11b3b35..81f7f5f 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -36,6 +36,7 @@
   (autoload 'gnus-setup-posting-charset "gnus-msg")
   (autoload 'gnus-make-local-hook "gnus-util")
   (autoload 'message-fetch-field "message")
+  (autoload 'message-mark-active-p "message")
   (autoload 'fill-flowed-encode "flow-fill")
   (autoload 'message-posting-charset "message")
   (autoload 'x-dnd-get-local-file-name "x-dnd"))
@@ -872,7 +873,10 @@ If HANDLES is non-nil, use it instead reparsing the buffer."
      ["S/MIME Encrypt Part" mml-secure-encrypt-smime t])
     ["Encrypt/Sign off" mml-unsecure-message t]
     ;;["Narrow" mml-narrow-to-part t]
-    ["Quote MML" mml-quote-region t]
+    ["Quote MML" mml-quote-region
+     :active (message-mark-active-p)
+     ,@(if (featurep 'xemacs) nil
+        '(:help "Quote MML tags in region"))]
     ["Validate MML" mml-validate t]
     ["Preview" mml-preview t]))