From 490f8305e1901719dcd0e0d3561e37d66fddff18 Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 7 Mar 2021 19:06:45 -0500
Subject: [PATCH] * lisp/net/ange-ftp.el: Fix problem pointed out by compiler
 warning

(ange-ftp-fix-name-for-bs2000): Remove redundant `boundp` test.
---
 lisp/net/ange-ftp.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index fa13dd57d1d..d27eeab82b1 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -6111,8 +6111,7 @@ Other orders of $ and _ seem to all work just fine.")
 				       (1- (match-end 2)))))
 		(filename (if (match-beginning 3)
 			      (substring name (match-beginning 3)))))
-	    (if (and (boundp 'filename)
-		     (stringp filename)
+	    (if (and (stringp filename)
 		     (string-match "[#@].+" filename))
 		(setq filename (concat ange-ftp-bs2000-special-prefix
 				       (substring filename 1))))
-- 
2.39.2