From ab51dcf9d7ac87dc633432c8b407fea1d68e386b Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 11 May 1998 17:17:17 +0000 Subject: [PATCH] Rename 'mime/Content-Disposition -> 'mime-read-Content-Disposition. --- mime-parse.el | 4 ++-- mime-play.el | 2 +- mime-view.el | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mime-parse.el b/mime-parse.el index f656abb..2ccd24c 100644 --- a/mime-parse.el +++ b/mime-parse.el @@ -138,9 +138,9 @@ and return parsed it. Format of return value is as same as (cons ctype (nreverse dest)) ))) -(defun mime/Content-Disposition () +(defun mime-read-Content-Disposition () "Read field-body of Content-Disposition field from current-buffer, -and return parsed it. [mime-parse.el]" +and return parsed it." (let ((str (std11-field-body "Content-Disposition"))) (if str (mime-parse-Content-Disposition str) diff --git a/mime-play.el b/mime-play.el index 95d93e1..cfdcbfd 100644 --- a/mime-play.el +++ b/mime-play.el @@ -335,7 +335,7 @@ window.") (defun mime-raw-get-original-filename (param &optional encoding) (or (mime-raw-get-uu-filename param encoding) (let (ret) - (or (if (or (and (setq ret (mime/Content-Disposition)) + (or (if (or (and (setq ret (mime-read-Content-Disposition)) (setq ret (assoc "filename" (cdr ret))) ) (setq ret (assoc "name" param)) diff --git a/mime-view.el b/mime-view.el index 1ac09d0..2f5e96f 100644 --- a/mime-view.el +++ b/mime-view.el @@ -917,7 +917,7 @@ The compressed face will be piped to this command.") (defun mime-raw-get-subject (param &optional encoding) (or (std11-find-field-body '("Content-Description" "Subject")) (let (ret) - (if (or (and (setq ret (mime/Content-Disposition)) + (if (or (and (setq ret (mime-read-Content-Disposition)) (setq ret (assoc "filename" (cdr ret))) ) (setq ret (assoc "name" param)) -- 1.7.10.4