From f6b4e0f445f7ee58b21e310e125c98b08eac404c Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 14 Mar 1998 04:52:14 +0000
Subject: [PATCH] (rfc822-looking-at): store-match-data => set-match-data.

---
 lisp/mail/rfc822.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/mail/rfc822.el b/lisp/mail/rfc822.el
index 39f02b929ac..633a2e2417e 100644
--- a/lisp/mail/rfc822.el
+++ b/lisp/mail/rfc822.el
@@ -99,7 +99,7 @@
 			t))))
       (let ((tem (match-data)))
 	(rfc822-nuke-whitespace leave-space)
-	(store-match-data tem)
+	(set-match-data tem)
 	t)))
 
 (defun rfc822-snarf-word ()
-- 
2.39.5