(wl-summary-toggle-mime): Added optional argument

`no-mime'. if it is non-nil, call `wl-summary-redisplay-no-mime'
with `ask-coding' is non-nil.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 6829992..ba37e9b 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2004-09-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-summary.el (wl-summary-toggle-mime): Added optional argument
+       `no-mime'. if it is non-nil, call `wl-summary-redisplay-no-mime'
+       with `ask-coding' is non-nil.
+
 2004-09-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-thread.el (wl-thread-set-parent): If parent is a message

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 248b8e0..a9dfcd8 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4339,15 +4339,19 @@ Use function list is `wl-summary-write-current-folder-functions'."
            (wl-summary-redisplay)))
     (message "No last message.")))
 
-(defun wl-summary-toggle-mime ()
-  "Toggle MIME decoding."
-  (interactive)
-  (setq wl-summary-buffer-display-as-is
-       (not wl-summary-buffer-display-as-is))
-  (wl-summary-redisplay)
-  (wl-summary-update-modeline)
-  (message "MIME decoding: %s"
-          (if wl-summary-buffer-display-as-is "OFF" "ON")))
+(defun wl-summary-toggle-mime (&optional no-mime)
+  "Toggle MIME decoding.
+If NO-MIME is non-nil, force displaying the message without MIME decoding
+and ask coding-system for the message."
+  (interactive "P")
+  (if no-mime
+      (wl-summary-redisplay-no-mime 'ask-coding)
+    (setq wl-summary-buffer-display-as-is
+         (not wl-summary-buffer-display-as-is))
+    (wl-summary-redisplay)
+    (wl-summary-update-modeline)
+    (message "MIME decoding: %s"
+            (if wl-summary-buffer-display-as-is "OFF" "ON"))))
 
 (defun wl-summary-redisplay (&optional arg)
   "Redisplay message."
@@ -4370,7 +4374,7 @@ If ASK-CODING is non-nil, coding-system for the message is asked."
             (or (read-coding-system "Coding system: ")
                 elmo-mime-display-as-is-coding-system)
           elmo-mime-display-as-is-coding-system)))
-    (wl-summary-redisplay-internal nil nil nil t 'all-header)))
+    (wl-summary-redisplay-internal nil nil nil 'as-is 'all-header)))
 
 (defun wl-summary-redisplay-internal (&optional folder number force-reload
                                                as-is all-header)