From: morioka Date: Wed, 3 Sep 1997 04:53:13 +0000 (+0000) Subject: Rename `mime/Content-Type' -> `mime-read-Content-Type'. X-Git-Tag: semi-0_112~46 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=48fe52527749e46c270a8a612035aa9e490748a3;p=elisp%2Fsemi.git Rename `mime/Content-Type' -> `mime-read-Content-Type'. --- diff --git a/mime-edit.el b/mime-edit.el index 17e1088..417f198 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -7,7 +7,7 @@ ;; Maintainer: MORIOKA Tomohiko ;; Created: 1994/08/21 renamed from mime.el ;; Renamed: 1997/2/21 from tm-edit.el -;; Version: $Revision: 0.86 $ +;; Version: $Revision: 0.87 $ ;; Keywords: MIME, multimedia, multilingual, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -122,7 +122,7 @@ ;;; (defconst mime-edit-RCS-ID - "$Id: mime-edit.el,v 0.86 1997-07-24 15:59:25 morioka Exp $") + "$Id: mime-edit.el,v 0.87 1997-09-03 04:53:10 morioka Exp $") (defconst mime-edit-version `,(get-version-string mime-edit-RCS-ID)) @@ -2472,7 +2472,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n" (defun mime-edit-decode-buffer (not-decode-text) (save-excursion (goto-char (point-min)) - (let ((ctl (mime/Content-Type))) + (let ((ctl (mime-read-Content-Type))) (if ctl (let ((ctype (car ctl)) (params (cdr ctl)) diff --git a/mime-parse.el b/mime-parse.el index 75ff738..77d0663 100644 --- a/mime-parse.el +++ b/mime-parse.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko -;; Version: $Id: mime-parse.el,v 0.15 1997-09-03 04:40:04 morioka Exp $ +;; Version: $Id: mime-parse.el,v 0.16 1997-09-03 04:53:13 morioka Exp $ ;; Keywords: parse, MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -143,9 +143,9 @@ which are string or symbol." ;;; @ field reader ;;; -(defun mime/Content-Type () +(defun mime-read-Content-Type () "Read field-body of Content-Type field from current-buffer, -and return parsed it. [mime-parse.el]" +and return parsed it." (let ((str (std11-field-body "Content-Type"))) (if str (mime-parse-Content-Type str) @@ -232,7 +232,7 @@ and return parsed it. [mime-parse.el]" (defun mime-parse-message (&optional ctl encoding rcnum) "Parse current-buffer as a MIME message. [mime-parse.el]" - (setq ctl (or (mime/Content-Type) ctl)) + (setq ctl (or (mime-read-Content-Type) ctl)) (setq encoding (or (mime/Content-Transfer-Encoding) encoding)) (let ((ctype (car ctl)) (params (cdr ctl))