;;; emh.el --- MIME extender for mh-e
-;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
;; Created: 1993/11/21
;; Renamed: 1993/11/27 from mh-e-mime.el
;; Renamed: 1997/02/21 from tm-mh-e.el
-;; Version: $Revision: 0.24 $
;; Keywords: MH, MIME, multimedia, encoded-word, multilingual, mail
;; This file is part of emh.
(require 'mh-e)
(require 'mime-view)
+(or (get-unified-alist mime-acting-condition '((type . text)))
+ (error "Please install latest SEMI."))
+(eval-when-compile (require 'mime-text))
;;; @ version
;;;
-(defconst emh-RCS-ID
- "$Id: emh.el,v 0.24 1997-11-27 15:07:49 morioka Exp $")
-
-(defconst emh-version (get-version-string emh-RCS-ID))
+(defconst emh-version "1.1.3")
;;; @ variable
;;; @ for mime-view
;;;
-(fset 'emh-text-decode-buffer
- (symbol-function 'mime-text-decode-buffer))
+(set-alist 'mime-raw-buffer-coding-system-alist
+ 'mh-show-mode 'no-conversion)
(set-alist 'mime-text-decoder-alist
- 'mh-show-mode
- (function emh-text-decode-buffer))
+ 'mh-show-mode 'mime-text-decode-buffer)
(defvar emh-content-header-filter-hook
(if window-system
It is registered to variable `mime-view-content-header-filter-alist'."
(goto-char (point-min))
(mime-view-cut-header)
- (emh-text-decode-buffer default-mime-charset)
- (eword-decode-header)
+ (eword-decode-header default-mime-charset)
(run-hooks 'emh-content-header-filter-hook)
)
(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))
;;; @@ for mime-partial
;;;
-(eval-after-load
- "mime-view"
- '(progn
- (autoload 'mime-combine-message/partials-automatically
- "mime-partial"
- "Internal method to combine message/partial messages automatically.")
- (set-atype 'mime-acting-condition
- '((type . "message/partial")
- (method . mime-combine-message/partials-automatically)
- (major-mode . mh-show-mode)
- (summary-buffer-exp
- . (and (or (string-match "^article-\\(.+\\)$"
- article-buffer)
- (string-match "^show-\\(.+\\)$" article-buffer))
- (substring article-buffer
- (match-beginning 1) (match-end 1))
- ))
- ))
- (set-alist 'mime-view-partial-message-method-alist
- 'mh-show-mode
- (function
- (lambda ()
- (let ((emh-automatic-mime-preview t))
- (emh-show)
- ))))
- ))
+(autoload 'mime-method-to-combine-message/partial-pieces
+ "mime-partial"
+ "Internal method to combine message/partial messages automatically.")
+
+(set-atype 'mime-acting-condition
+ '((type . message)(subtype . partial)
+ (method . mime-method-to-combine-message/partial-pieces)
+ (major-mode . mh-show-mode)
+ (summary-buffer-exp
+ . (and (or (string-match "^article-\\(.+\\)$"
+ article-buffer)
+ (string-match "^show-\\(.+\\)$" article-buffer))
+ (substring article-buffer
+ (match-beginning 1) (match-end 1))
+ ))
+ ))
+
+(set-alist 'mime-view-partial-message-method-alist
+ 'mh-show-mode
+ (function
+ (lambda ()
+ (let ((emh-automatic-mime-preview t))
+ (emh-show)
+ ))))
;;; @ set up
(if buf
(let ((the-buf (current-buffer)))
(switch-to-buffer buf)
- (if (and mime-view-buffer
- (setq buf (get-buffer mime-view-buffer))
+ (if (and mime-preview-buffer
+ (setq buf (get-buffer mime-preview-buffer))
)
(progn
(switch-to-buffer the-buf)