From e2f3a892fdcb61d501e5ca2b2b11b8f875f8ac62 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 17 Jun 1998 18:24:32 +0000 Subject: [PATCH] (mime-entity-uu-filename): New function; abolish `mime-raw-get-uu-filename'. --- mime-view.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) 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) "")) -- 1.7.10.4