(mailcap-skip-comment): Check `chr' is nil.

[elisp/semi.git] / mime-tar.el

diff --git a/mime-tar.el b/mime-tar.el
index 1daf4a3..129820c 100644 (file)
--- a/mime-tar.el
+++ b/mime-tar.el
@@ -5,7 +5,7 @@
 ;; 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.4 1997-03-15 20:33:06 morioka 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).
@@ -253,7 +253,7 @@
          (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)
@@ -277,7 +277,7 @@
               (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)
               )
@@ -307,7 +307,7 @@
              (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)
@@ -327,25 +327,25 @@
 ;;; @@ 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")