Changes committed gnus/lisp (ChangeLog mml.el)

Modified: ChangeLog mml.el

* mml.el (mml-menu): Add toggle for gnus-gcc-externalize-attachments.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1799 gnus/lisp/ChangeLog:7.1800
--- ChangeLog:7.1799	Wed Mar 19 17:02:22 2008
+++ ChangeLog	Wed Mar 19 17:11:31 2008
@@ -1,5 +1,7 @@
 2008-03-19  Reiner Steib  <[email protected]>
 
+	* mml.el (mml-menu): Add toggle for gnus-gcc-externalize-attachments.
+
 	* message.el (message-info): Hanlde EasyPG manual.
 
 	* mml.el (mml-menu): Add entry for EasyPG.
Index: mml.el
diff -u gnus/lisp/mml.el:7.63 gnus/lisp/mml.el:7.64
--- mml.el:7.63	Wed Mar 19 17:02:22 2008
+++ mml.el	Wed Mar 19 17:11:30 2008
@@ -1017,14 +1017,6 @@
     (define-key main "\C-c\C-m" map)
     main))
 
-(defun mml-toggle-gcc-externalize-attachments ()
-  (interactive)
-  (prog1
-      (setq gnus-gcc-externalize-attachments
-	    (not gnus-gcc-externalize-attachments))
-    (message "gnus-gcc-externalize-attachments is `%s'."
-	     gnus-gcc-externalize-attachments)))
-
 (easy-menu-define
   mml-menu mml-mode-map ""
   `("Attachments"
@@ -1037,13 +1029,22 @@
     ["Attach External..." mml-attach-external
      ,@(if (featurep 'xemacs) '(t)
 	 '(:help "Attach reference to an external file"))]
-    ;; ["Externalize Attachments"
-    ;;  (lambda () (interactive) (mml-toggle-gcc-externalize-attachments))
-    ;; ,@(if (featurep 'xemacs) nil
-    ;; 	'(:help "Save attachments as external parts in Gcc copies"))
-    ;; :visible (booleanp gnus-gcc-externalize-attachments)
-    ;; :style radio
-    ;; :selected (equal gnus-gcc-externalize-attachments t) ]
+    ;; FIXME: Is it possible to do this without using
+    ;; `gnus-gcc-externalize-attachments'?
+    ["Externalize Attachments"
+     (lambda ()
+       (interactive)
+       (setq gnus-gcc-externalize-attachments
+	     (not gnus-gcc-externalize-attachments))
+       (message "gnus-gcc-externalize-attachments is `%s'."
+		gnus-gcc-externalize-attachments))
+     :visible (and (boundp 'gnus-gcc-externalize-attachments)
+		   (memq gnus-gcc-externalize-attachments
+			 '(all t nil)))
+     :style toggle
+     :selected gnus-gcc-externalize-attachments
+     ,@(if (featurep 'xemacs) nil
+	 '(:help "Save attachments as external parts in Gcc copies"))]
     "----"
     ;;
     ("Change Security Method"