From 285b26f5dcaa2299cfa836e2a3bbe091aec2930a Mon Sep 17 00:00:00 2001 From: tmorioka Date: Fri, 28 Feb 1997 04:57:30 +0000 Subject: [PATCH] Function `put-fields' were abolished. --- mime-def.el | 20 +------------------- 1 file changed, 1 insertion(+), 19 deletions(-) diff --git a/mime-def.el b/mime-def.el index 4d7a2ad..4cf573f 100644 --- a/mime-def.el +++ b/mime-def.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko -;; Version: $Id: mime-def.el,v 0.31 1997-02-28 04:56:45 tmorioka Exp $ +;; Version: $Id: mime-def.el,v 0.32 1997-02-28 04:57:30 tmorioka Exp $ ;; Keywords: definition, MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -254,24 +254,6 @@ FUNCTION.") ;;; @ method selector kernel ;;; -;;; @@ field -;;; - -(defun put-fields (tp c) - (catch 'tag - (let ((r tp) f ret) - (while r - (setq f (car r)) - (if (not (if (setq ret (assoc (car f) c)) - (equal (cdr ret)(cdr f)) - (setq c (cons f c)) - )) - (throw 'tag 'error)) - (setq r (cdr r)) - )) - c)) - - ;;; @@ field unifier ;;; -- 1.7.10.4