(rfc822-looking-at): store-match-data => set-match-data.

diff --git a/lisp/mail/rfc822.el b/lisp/mail/rfc822.el
index 39f02b9..633a2e2 100644 (file)
--- 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 ()