From 2579420df09004126fec260cdbe8bf6666033699 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 11 Mar 1998 17:12:44 +0000 Subject: [PATCH 1/1] Rename `mime-article/extract-file' -> `mime-extract-current-entity'. --- mime-file.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/mime-file.el b/mime-file.el index caf4832..6124c3f 100644 --- a/mime-file.el +++ b/mime-file.el @@ -1,13 +1,12 @@ ;;; mime-file.el --- mime-view internal method for file extraction -;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. +;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko ;; modified by Shuhei KOBAYASHI -;; Version: $Id: mime-file.el,v 0.3 1997-10-03 11:55:48 shuhei-k Exp $ ;; Keywords: file, extract, MIME, multimedia, mail, news -;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). +;; 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 @@ -28,7 +27,7 @@ (require 'mime-view) -(defun mime-article/extract-file (beg end cal) +(defun mime-extract-current-entity (beg end cal) (goto-char beg) (let* ((name (save-restriction @@ -74,14 +73,14 @@ (set-atype 'mime-acting-condition '((type . "application/octet-stream") - (method . mime-article/extract-file) + (method . mime-extract-current-entity) ) 'ignore '(method) 'replacement) (set-atype 'mime-acting-condition '((mode . "extract") - (method . mime-article/extract-file) + (method . mime-extract-current-entity) ) 'remove '((method "mime-file" nil 'file 'type 'encoding 'mode 'name) -- 1.7.10.4