From 9fc4d1c36c7597fd9c3c9fb4e90c3dadb97b232b Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 23 Dec 1999 10:16:35 +0000 Subject: [PATCH] (mail-header-parse-content-type): Use `mime-parse-Content-Type'. (mail-header-parse-content-disposition): Use `mime-parse-Content-Disposition'. (mail-content-type-get): Use `mime-content-type-parameter'. --- lisp/mail-parse.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/mail-parse.el b/lisp/mail-parse.el index d9caac1..c93b890 100644 --- a/lisp/mail-parse.el +++ b/lisp/mail-parse.el @@ -42,9 +42,11 @@ (require 'rfc2047) (require 'rfc2045) -(defalias 'mail-header-parse-content-type 'rfc2231-parse-string) -(defalias 'mail-header-parse-content-disposition 'rfc2231-parse-string) -(defalias 'mail-content-type-get 'rfc2231-get-value) +(defalias 'mail-header-parse-content-type 'mime-parse-Content-Type) +(defalias 'mail-header-parse-content-disposition + 'mime-parse-Content-Disposition) +(defmacro mail-content-type-get (ctl parameter) + `(mime-content-type-parameter ,ctl (symbol-name ,parameter))) (defalias 'mail-header-encode-parameter 'rfc2045-encode-string) (defalias 'mail-header-remove-comments 'ietf-drums-remove-comments) -- 1.7.10.4