From 7dbbb12f849a308aca9d6bcd5b2c4723328622b9 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 1 Mar 2000 11:09:14 +0000 Subject: [PATCH] (mime-entity-header-buffer): Mark it as obsolete. (mime-goto-header-start-point): Likewise. (mime-entity-header-start-point): Likewise. (mime-entity-header-end-point): Likewise. (mime-entity-body-start): Use `defalias'; don't recommend to use `mime-entity-body-start-point' instead. (mime-entity-body-end): Use `defalias'; don't recommend to use `mime-entity-body-end-point' instead. (mime-entity-body-buffer): Mark it as obsolete. (mime-goto-body-start-point): Likewise. (mime-goto-body-end-point): Likewise. (mime-entity-body-start-point): Likewise. (mime-entity-body-end-point): Likewise. (mime-entity-buffer): Don't recommend to use `mime-entity-header-buffer' or `mime-entity-body-buffer' instead. (mime-entity-point-min): Don't recommend to use `mime-entity-header-start-point' instead. (mime-entity-point-max): Don't recommend to use `mime-entity-body-end-point' instead. --- mime.el | 35 +++++++++++++++++++++-------------- 1 file changed, 21 insertions(+), 14 deletions(-) diff --git a/mime.el b/mime.el index 63af880..c2cad3a 100644 --- a/mime.el +++ b/mime.el @@ -1,8 +1,6 @@ ;;; mime.el --- MIME library module -;; Copyright (C) 1998,1999 Free Software Foundation, Inc. -;; Copyright (C) 1999 Electrotechnical Laboratory, JAPAN. -;; Licensed to the Free Software Foundation. +;; Copyright (C) 1998,1999,2000 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko ;; Keywords: MIME, multimedia, mail, news @@ -143,7 +141,7 @@ If MESSAGE is specified, it is regarded as root entity." (null (mime-entity-parent entity message))) -;;; @ Header buffer +;;; @ Header buffer (obsolete) ;;; (luna-define-generic mime-entity-header-buffer (entity)) @@ -157,8 +155,13 @@ If MESSAGE is specified, it is regarded as root entity." (luna-define-generic mime-entity-header-end-point (entity) "Return header-end-position of ENTITY.") +(make-obsolete 'mime-entity-header-buffer "don't use it.") +(make-obsolete 'mime-goto-header-start-point "don't use it.") +(make-obsolete 'mime-entity-header-start-point "don't use it.") +(make-obsolete 'mime-entity-header-end-point "don't use it.") -;;; @ Body buffer + +;;; @ Body buffer (obsolete) ;;; (luna-define-generic mime-entity-body-buffer (entity)) @@ -172,28 +175,32 @@ If MESSAGE is specified, it is regarded as root entity." (luna-define-generic mime-entity-body-start-point (entity) "Return body-start-position of ENTITY.") -(define-obsolete-function-alias - 'mime-entity-body-start 'mime-entity-body-start-point) - (luna-define-generic mime-entity-body-end-point (entity) "Return body-end-position of ENTITY.") -(define-obsolete-function-alias - 'mime-entity-body-end 'mime-entity-body-end-point) +(defalias 'mime-entity-body-start 'mime-entity-body-start-point) +(defalias 'mime-entity-body-end 'mime-entity-body-end-point) + +(make-obsolete 'mime-entity-body-buffer "don't use it.") +(make-obsolete 'mime-goto-body-start-point "don't use it.") +(make-obsolete 'mime-goto-body-end-point "don't use it.") +(make-obsolete 'mime-entity-body-start-point "don't use it.") +(make-obsolete 'mime-entity-body-end-point "don't use it.") +(make-obsolete 'mime-entity-body-start "don't use it.") +(make-obsolete 'mime-entity-body-end "don't use it.") ;;; @ Entity buffer (obsolete) ;;; (luna-define-generic mime-entity-buffer (entity)) -(make-obsolete 'mime-entity-buffer - "use mime-entity-header-buffer or mime-entity-body-buffer instead.") +(make-obsolete 'mime-entity-buffer "don't use it.") (luna-define-generic mime-entity-point-min (entity)) -(make-obsolete 'mime-entity-point-min 'mime-entity-header-start-point) +(make-obsolete 'mime-entity-point-min "don't use it.") (luna-define-generic mime-entity-point-max (entity)) -(make-obsolete 'mime-entity-point-max 'mime-entity-body-end-point) +(make-obsolete 'mime-entity-point-max "don't use it.") ;;; @ Entity Header -- 1.7.10.4