;; Author: Hiroshi Ueno <zodiac@ibm.net>
;; modified by MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Renamed: 1997/2/26 from tm-tar.el
-;; Version: $Id: mime-tar.el,v 0.0 1997-02-26 04:57:33 tmorioka Exp $
+;; Version: $Id: mime-tar.el,v 0.7 1997-05-12 12:30:42 morioka Exp $
;; Keywords: tar, tar+gzip, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;;; Code:
-(require 'emu)
(require 'mime-view)
(goto-char beg)
(save-excursion
(while (re-search-forward mime-tar-file-search-regexp end t)
- (tm:add-button (point)
- (progn
- (end-of-line)
- (point))
- 'mime-tar-view-file)
+ (mime-add-button (point)
+ (progn
+ (end-of-line)
+ (point))
+ 'mime-tar-view-file)
))
)))
(mime-tar-file-name
(expand-file-name
(concat (make-temp-name
- (expand-file-name "tm" mime/tmp-dir)) ".tar")))
+ (expand-file-name "tm" mime-temp-directory)) ".tar")))
(mime-tar-tmp-file-name
- (expand-file-name (make-temp-name
- (expand-file-name "tm" mime/tmp-dir))))
+ (expand-file-name
+ (make-temp-name (expand-file-name "tm" mime-temp-directory))))
new-buf)
(find-file mime-tar-tmp-file-name)
(setq new-buf (current-buffer))
(re-search-forward "^$")
(append-to-buffer new-buf (+ (match-end 0) 1) end)
)
- (if (member coding mime-viewer/uuencode-encoding-name-list)
+ (if (member coding mime-view-uuencode-encoding-name-list)
(progn
(goto-char (point-min))
(if (re-search-forward "^begin [0-9]+ " nil t)
(call-process mime-tar-mmencode-program nil nil nil "-u" "-q"
"-o" mime-tar-file-name mime-tar-tmp-file-name)
)
- ((member coding mime-viewer/uuencode-encoding-name-list)
+ ((member coding mime-view-uuencode-encoding-name-list)
(call-process mime-tar-uudecode-program nil nil nil
mime-tar-tmp-file-name)
)
(setq mime-button-mother-dispatcher 'mime-tar-mouse-button-2)
))
(mime-tar-set-properties)
- (mime-tar-mode mime::article/preview-buffer)
+ (mime-tar-mode mime-view-buffer)
(kill-buffer mime-tar-view-buffer)
(kill-buffer mime-tar-list-buffer)
(delete-file mime-tar-file-name)
;;;
(cond ((boundp 'MULE)
- (define-program-coding-system mime-tar-view-buffer nil *autoconv*)
+ (define-program-coding-system mime-tar-view-buffer nil '*autoconv*)
)
((boundp 'NEMACS)
(define-program-kanji-code mime-tar-view-buffer nil 1)
;;; @@ message types to use mime-tar
;;;
-(set-atype 'mime/content-decoding-condition
+(set-atype 'mime-acting-condition
'((type . "application/octet-stream")
(method . mime-decode-message/tar)
(mode . "play") ("type" . "tar")
))
-(set-atype 'mime/content-decoding-condition
+(set-atype 'mime-acting-condition
'((type . "application/octet-stream")
(method . mime-decode-message/tar)
(mode . "play") ("type" . "tar+gzip")
))
-(set-atype 'mime/content-decoding-condition
+(set-atype 'mime-acting-condition
'((type . "application/x-gzip")
(method . mime-decode-message/tar)
(mode . "play") ("type" . "tar")
))
-(set-atype 'mime/content-decoding-condition
+(set-atype 'mime-acting-condition
'((type . "application/x-tar")
(method . mime-decode-message/tar)
(mode . "play")