Mercurial > emacs

comparison lisp/mh-e/mh-mime.el @ 56751:72a02133177e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)))))