850 |
(car ct)))))) |
(car ct)))))) |
851 |
|
|
852 |
;;;###mh-autoload |
;;;###mh-autoload |
853 |
|
(defun mh-toggle-mh-decode-mime-flag () |
854 |
|
"Toggle whether MH-E should decode MIME or not." |
855 |
|
(interactive) |
856 |
|
(setq mh-decode-mime-flag (not mh-decode-mime-flag)) |
857 |
|
(mh-show nil t) |
858 |
|
(message (format "(setq mh-decode-mime-flag %s)" mh-decode-mime-flag))) |
859 |
|
|
860 |
|
;;;###mh-autoload |
861 |
(defun mh-decode-message-header () |
(defun mh-decode-message-header () |
862 |
"Decode RFC2047 encoded message header fields." |
"Decode RFC2047 encoded message header fields." |
863 |
(when mh-decode-mime-flag |
(when mh-decode-mime-flag |