projects
/
elisp
/
tm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was generated by cvs2svn to compensate for changes in r509,
[elisp/tm.git]
/
tm-mh-e.el
diff --git
a/tm-mh-e.el
b/tm-mh-e.el
index
36230c3
..
0628ab3
100644
(file)
--- a/
tm-mh-e.el
+++ b/
tm-mh-e.el
@@
-21,7
+21,7
@@
;;; @ version
;;;
(defconst tm-mh-e/RCS-ID
;;; @ version
;;;
(defconst tm-mh-e/RCS-ID
- "$Id: tm-mh-e.el,v 5.1 1994/10/17 07:26:36 morioka Exp $")
+ "$Id: tm-mh-e.el,v 5.3 1994/10/25 09:06:36 morioka Exp $")
(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
@@
-55,17
+55,16
@@
With arg, turn MIME processing on if arg is positive."
;;; @ set up
;;;
;;; @ set up
;;;
+
+(defun tm-mh-e/decode-message-header ()
+ (make-local-variable 'minor-mode-alist)
+ (mime/add-header-decoding-mode-to-mode-line)
+ (let ((buffer-read-only nil))
+ (mime/decode-message-header-if-you-need)
+ (set-buffer-modified-p nil)
+ ))
(add-hook 'mh-show-mode-hook
(add-hook 'mh-show-mode-hook
- (function
- (lambda ()
- (make-local-variable 'minor-mode-alist)
- (mime/add-header-decoding-mode-to-mode-line)
- (let ((buffer-read-only nil))
- (if mime/header-decoding-mode
- (mime/decode-message-header)
- )
- (set-buffer-modified-p nil)
- ))))
+ (function tm-mh-e/decode-message-header))
(define-key mh-folder-mode-map "\et" 'tm-mh-e/toggle-header-decoding-mode)
(define-key mh-folder-mode-map "v" 'tm-mh-e/view-message)
(define-key mh-folder-mode-map "\et" 'tm-mh-e/toggle-header-decoding-mode)
(define-key mh-folder-mode-map "v" 'tm-mh-e/view-message)