From 3c04953d121f36a53dff7730c68a2b654e44c43f Mon Sep 17 00:00:00 2001
From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 4 Jul 2024 23:55:16 +0200
Subject: [PATCH] Remove redundant `require`s

* lisp/gnus/canlock.el (sha1):
* lisp/international/utf7.el (base64):
* lisp/net/hmac-md5.el (md5):
* lisp/org/ob-processing.el (sha1):
* lisp/org/org-feed.el (sha1):
* test/lisp/net/rfc2104-tests.el (sha1, md5): Don't require features
that are built-in, and always provided.

(cherry picked from commit 0e591a9112c15bfe7bd19c06fa117cfc9e87f8b5)
---
 lisp/gnus/canlock.el           | 2 --
 lisp/international/utf7.el     | 1 -
 lisp/net/hmac-md5.el           | 1 -
 lisp/org/ob-processing.el      | 1 -
 lisp/org/org-feed.el           | 1 -
 test/lisp/net/rfc2104-tests.el | 2 --
 6 files changed, 8 deletions(-)

diff --git a/lisp/gnus/canlock.el b/lisp/gnus/canlock.el
index 02744a7f0a5..39ae6809a55 100644
--- a/lisp/gnus/canlock.el
+++ b/lisp/gnus/canlock.el
@@ -41,8 +41,6 @@
 
 ;;; Code:
 
-(require 'sha1)
-
 (defvar mail-header-separator)
 
 (defgroup canlock nil
diff --git a/lisp/international/utf7.el b/lisp/international/utf7.el
index 63009b0744a..2b23bee1038 100644
--- a/lisp/international/utf7.el
+++ b/lisp/international/utf7.el
@@ -63,7 +63,6 @@
 
 ;;; Code:
 
-(require 'base64)
 (require 'mm-util)
 
 (defconst utf7-direct-encoding-chars " -%'-*,-[]-}"
diff --git a/lisp/net/hmac-md5.el b/lisp/net/hmac-md5.el
index 1c4ac24a9c4..af323b0d2b0 100644
--- a/lisp/net/hmac-md5.el
+++ b/lisp/net/hmac-md5.el
@@ -29,7 +29,6 @@
 
 (eval-when-compile (require 'hmac-def))
 (require 'hex-util)			; (decode-hex-string STRING)
-(require 'md5)				; expects (md5 STRING)
 
 (defun md5-binary (string)
   "Return the MD5 of STRING in binary form."
diff --git a/lisp/org/ob-processing.el b/lisp/org/ob-processing.el
index 2733b1d1f6d..f7326f0eea7 100644
--- a/lisp/org/ob-processing.el
+++ b/lisp/org/ob-processing.el
@@ -56,7 +56,6 @@
 (org-assert-version)
 
 (require 'ob)
-(require 'sha1)
 
 (declare-function processing-sketch-run "ext:processing-mode" ())
 
diff --git a/lisp/org/org-feed.el b/lisp/org/org-feed.el
index 4077afa0d3c..c90174f0fa7 100644
--- a/lisp/org/org-feed.el
+++ b/lisp/org/org-feed.el
@@ -92,7 +92,6 @@
 (org-assert-version)
 
 (require 'org)
-(require 'sha1)
 
 (declare-function url-retrieve-synchronously "url"
                   (url &optional silent inhibit-cookies timeout))
diff --git a/test/lisp/net/rfc2104-tests.el b/test/lisp/net/rfc2104-tests.el
index be5da619eaa..40e593ad56b 100644
--- a/test/lisp/net/rfc2104-tests.el
+++ b/test/lisp/net/rfc2104-tests.el
@@ -23,8 +23,6 @@
 
 (require 'ert)
 (require 'rfc2104)
-(require 'sha1)
-(require 'md5)
 
 (ert-deftest dbus-test-sha1 ()
   (should
-- 
2.39.2