Handle 'lexical-binding' cookie in nnrss output

* lisp/gnus/nnrss.el (nnrss-save-server-data)
(nnrss-save-group-data): Add a 'lexical-binding' cookie.
* lisp/gnus/nnrss.el (nnrss-read-server-data)
(nnrss-read-group-data): Allow missing 'lexical-binding' cookie.
(Bug#79199)

1 files changed, 6 insertions, 4 deletions

diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el
index e166fa8424f..60282167409 100644
--- a/lisp/gnus/nnrss.el
+++ b/lisp/gnus/nnrss.el
@@ -496,7 +496,8 @@ which RSS 2.0 allows."
 (defun nnrss-read-server-data (server)
   (setq nnrss-server-data nil)
   (let ((file (nnrss-make-filename "nnrss" server))
-        (file-name-coding-system nnmail-pathname-coding-system))
+        (file-name-coding-system nnmail-pathname-coding-system)
+        (warning-inhibit-types '((files missing-lexbind-cookie))))
     (when (file-exists-p file)
       (load file nil t t))))
 
@@ -505,7 +506,7 @@ which RSS 2.0 allows."
   (let ((coding-system-for-write nnrss-file-coding-system)
         (file-name-coding-system nnmail-pathname-coding-system))
     (with-temp-file (nnrss-make-filename "nnrss" server)
-      (insert (format ";; -*- coding: %s; -*-\n"
+      (insert (format ";; -*- coding: %s; lexical-binding:t -*-\n"
                       nnrss-file-coding-system))
       (gnus-prin1 `(setq nnrss-group-alist ',nnrss-group-alist))
       (insert "\n")
@@ -520,7 +521,8 @@ which RSS 2.0 allows."
     (setq nnrss-group-max (or (cadr pair) 0))
     (setq nnrss-group-min (+ nnrss-group-max 1)))
   (let ((file (nnrss-make-filename group server))
-        (file-name-coding-system nnmail-pathname-coding-system))
+        (file-name-coding-system nnmail-pathname-coding-system)
+        (warning-inhibit-types '((files missing-lexbind-cookie))))
     (when (file-exists-p file)
       (load file nil t t)
       (dolist (e nnrss-group-data)
@@ -535,7 +537,7 @@ which RSS 2.0 allows."
   (let ((coding-system-for-write nnrss-file-coding-system)
         (file-name-coding-system nnmail-pathname-coding-system))
     (with-temp-file (nnrss-make-filename group server)
-      (insert (format ";; -*- coding: %s; -*-\n"
+      (insert (format ";; -*- coding: %s; lexical-binding:t -*-\n"
                       nnrss-file-coding-system))
       (gnus-prin1 `(setq nnrss-group-data ',nnrss-group-data)))))