From: keiichi <keiichi>
Date: Thu, 23 Dec 1999 10:16:35 +0000 (+0000)
Subject: (mail-header-parse-content-type): Use `mime-parse-Content-Type'.
X-Git-Tag: nana-gnus-7_1_0_16~96
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9fc4d1c36c7597fd9c3c9fb4e90c3dadb97b232b;p=elisp%2Fgnus.git-

(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'.
---

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)