From 1dee377bad00737c4730339f62467f45224b5089 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 13 Apr 2025 10:59:47 -0400 Subject: [PATCH] lisp/gnus/gnus-start.el (gnus-dribble-eval-file): Ignore lexbind warning --- lisp/gnus/gnus-start.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index d167a7c4dd6..7133df15322 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -892,9 +892,9 @@ If REGEXP is given, lines that match it will be deleted." (when (or (file-exists-p auto) (file-exists-p dribble-file)) ;; Load whichever file is newest -- the auto save file ;; or the "real" file. - (if (file-newer-than-file-p auto dribble-file) - (nnheader-insert-file-contents auto) - (nnheader-insert-file-contents dribble-file)) + (nnheader-insert-file-contents + (if (file-newer-than-file-p auto dribble-file) + auto dribble-file)) (unless (zerop (buffer-size)) (set-buffer-modified-p t)) ;; Set the file modes to reflect the .newsrc file modes. @@ -916,9 +916,10 @@ If REGEXP is given, lines that match it will be deleted." (defun gnus-dribble-eval-file () (when gnus-dribble-eval-file (setq gnus-dribble-eval-file nil) - (let ((gnus-dribble-ignore t)) - (with-current-buffer gnus-dribble-buffer - (eval-buffer (current-buffer)))))) + (with-current-buffer gnus-dribble-buffer + (let ((gnus-dribble-ignore t) + (warning-inhibit-types '((files missing-lexbind-cookie)))) + (eval-buffer (current-buffer)))))) (defun gnus-dribble-delete-file () (when (file-exists-p (gnus-dribble-file-name))