From 2b365a8804afab600437aa9e8dba3c45ac4363fe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Bidar?= Date: Mon, 16 Dec 2024 19:20:00 +0200 Subject: [PATCH] Fix custom types of gnus-article-treat-head-custom variables lisp/gnus/gnus-art.el (gnus-treat-buttonize-head, gnus-treat-date) (gnus-treat-hide-headers, gnus-treat-hide-boring-headers) (gnus-treat-highlight-headers, gnus-treat-display-x-face) (gnus-treat-display-face, gnus-treat-display-face) (gnus-treat-mail-picon, gnus-treat-newsgroups-picon) (gnus-treat-from-gravatar, gnus-treat-mail-gravatar) (gnus-treat-body-boundary): Fix custom types to include all possible choices mentioned in the docstrings and manual. --- lisp/gnus/gnus-art.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 8243e4e632b..13dfb737243 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -1113,7 +1113,10 @@ gnus-article-treat-custom (defvar gnus-article-treat-head-custom '(choice (const :tag "Off" nil) - (const :tag "Header" head))) + (const :tag "Header" head) + (const :tag "First" first) + (const :tag "Last" last) + (boolean :tag "All body parts" t))) (defvar gnus-article-treat-types '("text/plain" "text/x-verbatim" "text/x-patch" "text/html") -- 2.45.2