From: morioka <morioka>
Date: Thu, 12 Mar 1998 12:39:12 +0000 (+0000)
Subject: Abolish mime-file.el.
X-Git-Tag: JR-Himi-~21
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ba751684a9f1a36152ffdecc8db80b15d4becaec;p=elisp%2Fsemi.git

Abolish mime-file.el.
---

diff --git a/mime-file.el b/mime-file.el
deleted file mode 100644
index a2de8d9..0000000
--- a/mime-file.el
+++ /dev/null
@@ -1,85 +0,0 @@
-;;; mime-file.el --- mime-view internal method for file extraction
-
-;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; modified by Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Keywords: file, extract, MIME, multimedia, mail, news
-
-;; This file is part of SEMI (Saver for Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'mime-view)
-
-(defun mime-extract-current-entity (beg end cal)
-  (goto-char beg)
-  (let* ((name
-	  (save-restriction
-	    (narrow-to-region beg end)
-	    (mime-article/get-filename cal)
-	    ))
-	 (encoding (cdr (assq 'encoding cal)))
-	 (filename
-          (if (and name (not (string-equal name "")))
-	      (expand-file-name name
-				(call-interactively
-				 (function
-				  (lambda (dir)
-				    (interactive "DDirectory: ")
-				    dir))))
-	    (call-interactively
-	     (function
-	      (lambda (file)
-		(interactive "FFilename: ")
-		(expand-file-name file))))))
-	 )
-    (if (file-exists-p filename)
-        (or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
-            (error "")))
-    (re-search-forward "\n\n")
-    (mime-write-decoded-region (match-end 0)(point-max) filename encoding)
-    ))
-
-
-;;; @ setup
-;;;
-
-(set-atype 'mime-acting-condition
-	   '((type . "application/octet-stream")
-	     (method . mime-extract-current-entity)
-	     )
-	   'ignore '(method)
-	   'replacement)
-
-(set-atype 'mime-acting-condition
-	   '((mode . "extract")
-	     (method . mime-extract-current-entity)
-	     )
-	   'remove
-	   '((method "tm-file"  nil 'file 'type 'encoding 'mode 'name)
-	     (mode . "extract"))
-	   'replacement)
-
-
-;;; @ end
-;;;
-
-(provide 'mime-file)
-
-;;; end of mime-file.el