From: vitaly <vitaly>
Date: Tue, 19 Jan 2010 13:39:31 +0000 (+0000)
Subject: New feature: toggle visibility of MIME buttons.
X-Git-Tag: elmo-imap4-compliance-root~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=db8dc12b54edb97b4275c37d69d91a8f69b65605;p=elisp%2Fwanderlust.git

New feature: toggle visibility of MIME buttons.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index bfe120d..9f0b64a 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-19  Vitaly Mayatskikh  <v.mayatskih@gmail.com>
+	* wl-summary.el (toplevel): New function
+	`wl-summary-toggle-mime-buttons' and keybinding to toggle
+	visibility of MIME buttons in message view mode.
+
 2010-01-15  Vitaly Mayatskikh  <v.mayatskih@gmail.com>
 
 	* Version number is increased to 2.15.9.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 83998c4..72811d5 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)
@@ -5102,6 +5103,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)
+  (customize-set-value 'mime-view-buttons-visible (not mime-view-buttons-visible))
+  (wl-message-buffer-cache-clean-up)
+  (wl-summary-redisplay))
+
 (require 'product)
 (product-provide (provide 'wl-summary) (require 'wl-version))