From: morioka <morioka>
Date: Sat, 15 Mar 1997 20:24:54 +0000 (+0000)
Subject: (mime-article/decode-message/external-ftp): Unused local variable
X-Git-Tag: Hokutetsu-Ishikawa-new~137
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a2e215f3a282be7683888f73d02d50011696a64f;p=elisp%2Fsemi.git

(mime-article/decode-message/external-ftp): Unused local variable
`access-type' was abolished; Comment out `mode'.
---

diff --git a/mime-play.el b/mime-play.el
index 650b4c9..95b5eb7 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/9/26 (separated from tm-view.el)
 ;;	Renamed: 1997/2/21 from tm-play.el
-;; Version: $Id: mime-play.el,v 0.14 1997-03-15 20:21:47 morioka Exp $
+;; Version: $Id: mime-play.el,v 0.15 1997-03-15 20:24:54 morioka Exp $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -410,11 +410,10 @@
     ))
 
 (defun mime-article/decode-message/external-ftp (beg end cal)
-  (let* ((access-type (cdr (assoc "access-type" cal)))
-	 (site (cdr (assoc "site" cal)))
+  (let* ((site (cdr (assoc "site" cal)))
 	 (directory (cdr (assoc "directory" cal)))
 	 (name (cdr (assoc "name" cal)))
-	 (mode (cdr (assoc "mode" cal)))
+	 ;;(mode (cdr (assoc "mode" cal)))
 	 (pathname (concat "/anonymous@" site ":" directory))
 	 )
     (message (concat "Accessing " (expand-file-name name pathname) "..."))