From: yamaoka <yamaoka>
Date: Wed, 17 Mar 2004 22:12:12 +0000 (+0000)
Subject: Synch to No Gnus 200403171616.
X-Git-Tag: t-gnus-6_17_4-quimby-~1009
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=800676599d7d5ae89c6e475d4e93872f2f044240;p=elisp%2Fgnus.git-

Synch to No Gnus 200403171616.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d85cd1..22711c4 100644
--- 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 3199a0d..81f7f5f 100644
--- 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"))
@@ -848,33 +849,36 @@ If HANDLES is non-nil, use it instead reparsing the buffer."
     main))
 
 (easy-menu-define
- mml-menu mml-mode-map ""
- `("Attachments"
-   ["Attach File..." mml-attach-file
-    ,@(if (featurep 'xemacs) '(t)
-	'(:help "Attach a file at point"))]
-   ["Attach Buffer..." mml-attach-buffer t]
-   ["Attach External..." mml-attach-external t]
-   ["Insert Part..." mml-insert-part t]
-   ["Insert Multipart..." mml-insert-multipart t]
-   ["PGP/MIME Sign" mml-secure-message-sign-pgpmime t]
-   ["PGP/MIME Encrypt" mml-secure-message-encrypt-pgpmime t]
-   ["PGP Sign" mml-secure-message-sign-pgp t]
-   ["PGP Encrypt" mml-secure-message-encrypt-pgp t]
-   ["S/MIME Sign" mml-secure-message-sign-smime t]
-   ["S/MIME Encrypt" mml-secure-message-encrypt-smime t]
-   ("Secure MIME part"
-    ["PGP/MIME Sign Part" mml-secure-sign-pgpmime t]
-    ["PGP/MIME Encrypt Part" mml-secure-encrypt-pgpmime t]
-    ["PGP Sign Part" mml-secure-sign-pgp t]
-    ["PGP Encrypt Part" mml-secure-encrypt-pgp t]
-    ["S/MIME Sign Part" mml-secure-sign-smime t]
-    ["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]
-   ["Validate MML" mml-validate t]
-   ["Preview" mml-preview t]))
+  mml-menu mml-mode-map ""
+  `("Attachments"
+    ["Attach File..." mml-attach-file
+     ,@(if (featurep 'xemacs) '(t)
+	 '(:help "Attach a file at point"))]
+    ["Attach Buffer..." mml-attach-buffer t]
+    ["Attach External..." mml-attach-external t]
+    ["Insert Part..." mml-insert-part t]
+    ["Insert Multipart..." mml-insert-multipart t]
+    ["PGP/MIME Sign" mml-secure-message-sign-pgpmime t]
+    ["PGP/MIME Encrypt" mml-secure-message-encrypt-pgpmime t]
+    ["PGP Sign" mml-secure-message-sign-pgp t]
+    ["PGP Encrypt" mml-secure-message-encrypt-pgp t]
+    ["S/MIME Sign" mml-secure-message-sign-smime t]
+    ["S/MIME Encrypt" mml-secure-message-encrypt-smime t]
+    ("Secure MIME part"
+     ["PGP/MIME Sign Part" mml-secure-sign-pgpmime t]
+     ["PGP/MIME Encrypt Part" mml-secure-encrypt-pgpmime t]
+     ["PGP Sign Part" mml-secure-sign-pgp t]
+     ["PGP Encrypt Part" mml-secure-encrypt-pgp t]
+     ["S/MIME Sign Part" mml-secure-sign-smime t]
+     ["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
+     :active (message-mark-active-p)
+     ,@(if (featurep 'xemacs) nil
+	 '(:help "Quote MML tags in region"))]
+    ["Validate MML" mml-validate t]
+    ["Preview" mml-preview t]))
 
 (defvar mml-mode nil
   "Minor mode for editing MML.")