From: morioka <morioka>
Date: Wed, 17 Jun 1998 18:24:32 +0000 (+0000)
Subject: (mime-entity-uu-filename): New function; abolish
X-Git-Tag: remi-199811302358~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e2f3a892fdcb61d501e5ca2b2b11b8f875f8ac62;p=elisp%2Fsemi.git

(mime-entity-uu-filename): New function; abolish
`mime-raw-get-uu-filename'.
---

diff --git a/mime-view.el b/mime-view.el
index 930326c..694e1e1 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -243,12 +243,15 @@ If optional argument MESSAGE-INFO is not specified,
 
 (defvar mime-view-uuencode-encoding-name-list '("x-uue" "x-uuencode"))
 
-(defun mime-raw-get-uu-filename ()
-  (save-excursion
-    (if (re-search-forward "^begin [0-9]+ " nil t)
-	(if (looking-at ".+$")
-	    (buffer-substring (match-beginning 0)(match-end 0))
-	  ))))
+(defun mime-entity-uu-filename (entity)
+  (if (member (mime-entity-encoding entity)
+	      mime-view-uuencode-encoding-name-list)
+      (save-excursion
+	(set-buffer (mime-entity-buffer entity))
+	(if (re-search-forward "^begin [0-9]+ " nil t)
+	    (if (looking-at ".+$")
+		(buffer-substring (match-beginning 0)(match-end 0))
+	      )))))
 
 (defun mime-view-entity-title (entity)
   (or (mime-entity-read-field entity 'Content-Description)
@@ -268,9 +271,7 @@ If optional argument MESSAGE-INFO is not specified,
 		      )))
 	     (std11-strip-quoted-string ret)
 	     ))
-      (if (member (mime-entity-encoding entity)
-		  mime-view-uuencode-encoding-name-list)
-	  (mime-raw-get-uu-filename))
+      (mime-entity-uu-filename entity)
       ""))