From: yamaoka <yamaoka>
Date: Mon, 23 Jan 2006 00:57:04 +0000 (+0000)
Subject: (message-tool-bar-gnome): Comment mml-attach-file, mml-preview and
X-Git-Tag: t-gnus-6_17_4-quimby-~143
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=50b482a61655339deed20ae7299a75eeb03bc4a4;p=elisp%2Fgnus.git-

(message-tool-bar-gnome): Comment mml-attach-file, mml-preview and
 mml-secure-message-sign-encrypt.
(message-tool-bar-retro): Comment mml-attach-file and mml-preview.
---

diff --git a/ChangeLog b/ChangeLog
index 5e5f46c..e1db4f2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2005-01-23  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/message.el (message-tool-bar-gnome): Comment
+	mml-attach-file, mml-preview and mml-secure-message-sign-encrypt.
+	(message-tool-bar-retro): Comment mml-attach-file and mml-preview.
+
 2005-12-22  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
 	* lisp/gnus-namazu.el (gnus-namazu-remote-groups): Accept `t' as an
diff --git a/lisp/message.el b/lisp/message.el
index de89c16..b4a9abc 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -7465,12 +7465,12 @@ Pre-defined symbols include `message-tool-bar-gnome' and
     (message-send-and-exit "send")
     (message-dont-send "save-draft")
     (message-kill-buffer "close") ;; stock_cancel
-    (mml-attach-file "attach" mml-mode-map)
+;;    (mml-attach-file "attach" mml-mode-map)
     (ispell-message "spell" nil :visible (not flyspell-mode))
     ;; We should have a mail-preview icon with an envelope like the one in
     ;; stock_mail-reply.
-    (mml-preview "mail-preview" mml-mode-map)
-    (mml-secure-message-sign-encrypt "lock" mml-mode-map :visible nil)
+;;    (mml-preview "mail-preview" mml-mode-map)
+;;    (mml-secure-message-sign-encrypt "lock" mml-mode-map :visible nil)
     (message-insert-importance-high "important" nil :visible nil)
     (message-insert-importance-low "unimportant" nil :visible nil)
     (message-insert-disposition-notification-to "receipt" nil :visible nil)
@@ -7486,9 +7486,9 @@ See `gmm-tool-bar-from-list' for details on the format of the list."
   '((message-send-and-exit "mail/send")
     (message-kill-buffer "close")
     (message-dont-send "cancel")
-    (mml-attach-file "attach" mml-mode-map)
+;;    (mml-attach-file "attach" mml-mode-map)
     (ispell-message "spell")
-    (mml-preview "preview" mml-mode-map)
+;;    (mml-preview "preview" mml-mode-map)
     (message-insert-importance-high "important")
     (message-insert-importance-low "unimportant")
     (message-insert-disposition-notification-to "receipt"))