From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 4 Aug 2022 15:46:14 +0000 (+0200)
Subject: Suppress compilation warnings in netrc.el
X-Git-Tag: emacs-29.0.90~1447^2~436
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bccb3abef7d627cfa1c5170cb0d30d0450284ec3;p=emacs.git

Suppress compilation warnings in netrc.el

* lisp/obsolete/netrc.el (netrc-machine-user-or-password)
(netrc-credentials): Suppress some warnings.
---

diff --git a/lisp/obsolete/netrc.el b/lisp/obsolete/netrc.el
index 9d3ae315141..f664a77a9b1 100644
--- a/lisp/obsolete/netrc.el
+++ b/lisp/obsolete/netrc.el
@@ -164,7 +164,8 @@ default ports DEFAULTS to `netrc-machine'.
 MODE can be \"login\" or \"password\", suitable for passing to
 `netrc-get'."
   (let ((authinfo-list (if (stringp authinfo-file-or-list)
-			   (netrc-parse authinfo-file-or-list)
+                           (with-suppressed-warnings ((obsolete netrc-parse))
+			     (netrc-parse authinfo-file-or-list))
 			 authinfo-file-or-list))
 	(ports (or ports '(nil)))
 	(defaults (or defaults '(nil)))
@@ -227,7 +228,8 @@ MODE can be \"login\" or \"password\", suitable for passing to
   "Return a user name/password pair.
 Port specifications will be prioritized in the order they are
 listed in the PORTS list."
-  (let ((list (netrc-parse))
+  (let ((list (with-suppressed-warnings ((obsolete netrc-parse))
+                (netrc-parse)))
 	found)
     (if (not ports)
 	(setq found (netrc-machine list machine))