diff options
Diffstat (limited to 'lisp/gnus/gnus-salt.el')
-rw-r--r-- | lisp/gnus/gnus-salt.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gnus/gnus-salt.el b/lisp/gnus/gnus-salt.el index abaa844f58a..e222d24b694 100644 --- a/lisp/gnus/gnus-salt.el +++ b/lisp/gnus/gnus-salt.el @@ -1,4 +1,4 @@ -;;; gnus-salt.el --- alternate summary mode interfaces for Gnus +;;; gnus-salt.el --- alternate summary mode interfaces for Gnus -*- lexical-binding: t; -*- ;; Copyright (C) 1996-1999, 2001-2021 Free Software Foundation, Inc. @@ -103,7 +103,7 @@ It accepts the same format specs that `gnus-summary-line-format' does." ((not (derived-mode-p 'gnus-summary-mode)) (setq gnus-pick-mode nil)) ((not gnus-pick-mode) ;; FIXME: a buffer-local minor mode removing globally from a hook?? - (remove-hook 'gnus-message-setup-hook 'gnus-pick-setup-message)) + (remove-hook 'gnus-message-setup-hook #'gnus-pick-setup-message)) (t ;; Make sure that we don't select any articles upon group entry. (setq-local gnus-auto-select-first nil) @@ -113,7 +113,7 @@ It accepts the same format specs that `gnus-summary-line-format' does." (gnus-update-format-specifications nil 'summary) (gnus-update-summary-mark-positions) ;; FIXME: a buffer-local minor mode adding globally to a hook?? - (add-hook 'gnus-message-setup-hook 'gnus-pick-setup-message) + (add-hook 'gnus-message-setup-hook #'gnus-pick-setup-message) (setq-local gnus-summary-goto-unread 'never) ;; Set up the menu. (when (gnus-visual-p 'pick-menu 'menu) @@ -609,7 +609,7 @@ Two predefined functions are available: beg end) (add-text-properties (setq beg (point)) - (setq end (progn (eval gnus-tree-line-format-spec) (point))) + (setq end (progn (eval gnus-tree-line-format-spec t) (point))) (list 'gnus-number gnus-tmp-number)) (when (or t (gnus-visual-p 'tree-highlight 'highlight)) (gnus-tree-highlight-node gnus-tmp-number beg end)))) |