From 488e6dd784d37da58a46dc48819a7a6cda4c2455 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 7 Jul 1997 17:06:36 +0000 Subject: [PATCH] Constant `mime::dtype-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 2826f04..f23e4ce 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.11 1997-07-07 17:01:51 morioka Exp $ +;; Version: $Id: mime-parse.el,v 0.12 1997-07-07 17:06:36 morioka Exp $ ;; Keywords: parse, MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -124,12 +124,10 @@ which are string or symbol." (cons ctype (nreverse dest)) ))) -(defconst mime::dtype-regexp (concat "^" mime-disposition-type-regexp)) - (defun mime-parse-Content-Disposition (string) "Parse STRING as field-body of Content-Disposition field." (setq string (std11-unfold-string string)) - (if (string-match mime::dtype-regexp string) + (if (string-match `,(concat "^" mime-disposition-type-regexp) string) (let* ((e (match-end 0)) (ctype (downcase (substring string 0 e))) ret dest) -- 1.7.10.4