Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Handle 'lexical-binding' cookie in nnrss output

Browse source 
* 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)
This commit is contained in:
Manuel Giraud 2025-08-08 17:53:01 +02:00 committed by Eli Zaretskii
parent 034d755f2f
commit cc37d199b0
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/nnrss.el
View file

@ -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)))))