From: Vitaly Mayatskikh <v.mayatskih@gmail.com>
Date: Wed, 1 Jul 2009 07:47:02 +0000 (+0200)
Subject: New feature: toggle visibility of mime buttons.
X-Git-Url: https://repo.or.cz/w/more-wl.git/commitdiff_plain/8593b7e3646a55d5f140599a81c8414e47dae342

New feature: toggle visibility of mime buttons.

This patch adds new customizable var: wl-default-mime-button-invisible and
keybinding to hide/unhide mime buttons.

Patch requires change in SEMI.
---

diff --git a/elmo/elmo-mime.el b/elmo/elmo-mime.el
index c9c1028..b3eec05 100644
--- a/elmo/elmo-mime.el
+++ b/elmo/elmo-mime.el
@@ -81,7 +81,8 @@ use for keymap of representation buffer.")
 					      original-major-mode
 					      keymap)
   (let ((elmo-message-displaying t)
-	(default-mime-charset 'x-unknown))
+	(default-mime-charset 'x-unknown)
+	(default-mime-button-invisible wl-default-mime-button-invisible))
     (mime-display-message entity
 			  preview-buffer
 			  nil
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index ac04708..7817579 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -430,6 +430,7 @@ See also variable `wl-use-petname'."
   (define-key wl-summary-mode-map "\C-c\C-n" 'wl-summary-next-buffer)
   (define-key wl-summary-mode-map "H"    'wl-summary-toggle-all-header)
   (define-key wl-summary-mode-map "M"    'wl-summary-toggle-mime)
+  (define-key wl-summary-mode-map "\C-cm" 'wl-summary-toggle-mime-buttons)
   (define-key wl-summary-mode-map "B"    'wl-summary-burst)
   (define-key wl-summary-mode-map "Z"    'wl-status-update)
   (define-key wl-summary-mode-map "#"    'wl-summary-print-message)
@@ -5109,6 +5110,13 @@ If ARG is numeric number, decode message as following:
 	  (wl-message-header-narrowing-toggle)
 	  (and wpos (set-window-start mwin wpos)))))))
 
+(defun wl-summary-toggle-mime-buttons ()
+  "Toggle visibility of mime buttons."
+  (interactive)
+  (setq wl-default-mime-button-invisible (not wl-default-mime-button-invisible))
+  (wl-message-buffer-cache-clean-up)
+  (wl-summary-redisplay))
+
 (require 'product)
 (product-provide (provide 'wl-summary) (require 'wl-version))
 
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index dea7a78..9e5e572 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -3077,6 +3077,10 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format."
 (defvar wl-plugged-port-indent 4)
 (defvar wl-plugged-queue-status-column 25)
 
+;; mime
+(defcustom wl-default-mime-button-invisible nil
+  "Hide mime buttons by default.")
+
 ;;;; Obsolete variables.
 
 ;; 2005-01-23