From 1d3600d34bf1bf318d2bc4be0ee9de03f8bf42c4 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 7 Jul 1997 17:08:03 +0000 Subject: [PATCH] Constant `mime::ctype-regexp' was abolished. --- mime-parse.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/mime-parse.el b/mime-parse.el index f23e4ce..df068dc 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.12 1997-07-07 17:06:36 morioka Exp $ +;; Version: $Id: mime-parse.el,v 0.13 1997-07-07 17:08:03 morioka Exp $ ;; Keywords: parse, MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -107,12 +107,10 @@ which are string or symbol." (substring str e) )))) -(defconst mime::ctype-regexp (concat "^" mime-media-type/subtype-regexp)) - (defun mime-parse-Content-Type (string) "Parse STRING as field-body of Content-Type field." (setq string (std11-unfold-string string)) - (if (string-match mime::ctype-regexp string) + (if (string-match `,(concat "^" mime-media-type/subtype-regexp) string) (let* ((e (match-end 0)) (ctype (downcase (substring string 0 e))) ret dest) -- 1.7.10.4