From 89bd942923385b3d39195c60a855428c982c54f2 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Sat, 16 May 1998 02:44:40 +0000
Subject: [PATCH] (mime-raw-get-subject): Use
 'mime-content-disposition-filename.

---
 mime-view.el |   31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

diff --git a/mime-view.el b/mime-view.el
index 34e1a1c..48e5abb 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -900,22 +900,21 @@ The compressed face will be piped to this command.")
 
 (defun mime-raw-get-subject (entity)
   (or (std11-find-field-body '("Content-Description" "Subject"))
-      (let ((ret
-	     (or
-	      (let ((ret (mime-entity-content-disposition entity)))
-		(and ret
-		     (assoc "filename"
-			    (mime-content-disposition-parameters ret))
-		     ))
-	      (let ((param (mime-content-type-parameters
-			    (mime-entity-content-type entity))))
-		(or (assoc "name" param)
-		    (assoc "x-name" param))
-		)
-	      )))
-	(if ret
-	    (std11-strip-quoted-string (cdr ret))
-	  ))
+      (let ((ret (mime-entity-content-disposition entity)))
+	(and ret
+	     (setq ret (mime-content-disposition-filename ret))
+	     (std11-strip-quoted-string ret)
+	     ))
+      (let ((ret (mime-entity-content-type entity)))
+	(and ret
+	     (setq ret
+		   (cdr
+		    (let ((param (mime-content-type-parameters ret)))
+		      (or (assoc "name" param)
+			  (assoc "x-name" param))
+		      )))
+	     (std11-strip-quoted-string ret)
+	     ))
       (if (member (mime-entity-encoding entity)
 		  mime-view-uuencode-encoding-name-list)
 	  (mime-raw-get-uu-filename))
-- 
1.7.10.4