projects
/
elisp
/
tm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tm 7.81.
[elisp/tm.git]
/
tm-mh-e.el
diff --git
a/tm-mh-e.el
b/tm-mh-e.el
index
96210e3
..
0628ab3
100644
(file)
--- a/
tm-mh-e.el
+++ b/
tm-mh-e.el
@@
-6,19
+6,10
@@
(provide 'tm-mh-e)
(provide 'tm-mh-e)
-;;; @ version
-;;;
-(defconst tm-mh-e/RCS-ID
- "$Id: tm-mh-e.el,v 5.0 1994/09/25 21:28:29 morioka Exp $")
-
-(defconst tm-mh-e/version
- (and (string-match "[0-9][0-9.]*" tm-mh-e/RCS-ID)
- (substring tm-mh-e/RCS-ID (match-beginning 0)(match-end 0))
- ))
-
;;; @ require modules
;;;
;;; @ require modules
;;;
+(require 'tl-str)
(require 'tm-misc)
(require 'mh-e)
(if (not (boundp 'mh-e-version))
(require 'tm-misc)
(require 'mh-e)
(if (not (boundp 'mh-e-version))
@@
-27,6
+18,14
@@
(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
+;;; @ version
+;;;
+(defconst tm-mh-e/RCS-ID
+ "$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))
+
+
;;; @ MIME header decoding mode
;;;
(defun tm-mh-e/toggle-header-decoding-mode (arg)
;;; @ MIME header decoding mode
;;;
(defun tm-mh-e/toggle-header-decoding-mode (arg)
@@
-56,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)