projects
/
elisp
/
emh.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Abolish `emh-RCS-ID'.
[elisp/emh.git]
/
emh.el
diff --git
a/emh.el
b/emh.el
index
ba23340
..
9fd0885
100644
(file)
--- a/
emh.el
+++ b/
emh.el
@@
-38,10
+38,7
@@
;;; @ version
;;;
;;; @ version
;;;
-(defconst emh-RCS-ID
- "$Id: emh.el,v 1.5 1998-03-13 16:19:40 morioka Exp $")
-
-(defconst emh-version (get-version-string emh-RCS-ID))
+(defconst emh-version "1.1.1")
;;; @ variable
;;; @ variable
@@
-231,12
+228,14
@@
digest are inserted into the folder after that message."
;;; @ for mime-view
;;;
;;; @ for mime-view
;;;
+(set-alist 'mime-raw-buffer-coding-system-alist
+ 'mh-show-mode 'no-conversion)
+
(fset 'emh-text-decode-buffer
(symbol-function 'mime-text-decode-buffer))
(set-alist 'mime-text-decoder-alist
(fset 'emh-text-decode-buffer
(symbol-function 'mime-text-decode-buffer))
(set-alist 'mime-text-decoder-alist
- 'mh-show-mode
- (function emh-text-decode-buffer))
+ 'mh-show-mode #'emh-text-decode-buffer)
(defvar emh-content-header-filter-hook
(if window-system
(defvar emh-content-header-filter-hook
(if window-system
@@
-272,9
+271,8
@@
It is registered to variable `mime-view-content-header-filter-alist'."
(mh-show (mh-get-msg-num t))
))
(mh-show (mh-get-msg-num t))
))
-(set-alist 'mime-view-quitting-method-alist
- 'mh-show-mode
- (function emh-quitting-method))
+(set-alist 'mime-preview-quitting-method-alist
+ 'mh-show-mode #'emh-quitting-method)
(set-alist 'mime-view-show-summary-method
'mh-show-mode
(function emh-quitting-method))
(set-alist 'mime-view-show-summary-method
'mh-show-mode
(function emh-quitting-method))