Mercurial > emacs
comparison lisp/mh-e/mh-mime.el @ 56751:72a02133177e
Upgraded to MH-E version 7.81.
See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Sun, 22 Aug 2004 05:11:27 +0000 |
parents | e9a6cbc8ca5e |
children | 25da1d331c99 |
comparison
equal
deleted
inserted
replaced
56750:5ca81cc9c2de | 56751:72a02133177e |
---|---|
848 (and cte (intern (downcase | 848 (and cte (intern (downcase |
849 (gnus-strip-whitespace cte)))) | 849 (gnus-strip-whitespace cte)))) |
850 (car ct)))))) | 850 (car ct)))))) |
851 | 851 |
852 ;;;###mh-autoload | 852 ;;;###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 | |
853 (defun mh-decode-message-header () | 861 (defun mh-decode-message-header () |
854 "Decode RFC2047 encoded message header fields." | 862 "Decode RFC2047 encoded message header fields." |
855 (when mh-decode-mime-flag | 863 (when mh-decode-mime-flag |
856 (let ((buffer-read-only nil)) | 864 (let ((buffer-read-only nil)) |
857 (rfc2047-decode-region (point-min) (mh-mail-header-end))))) | 865 (rfc2047-decode-region (point-min) (mh-mail-header-end))))) |