From eda48b6fed851a14e183c38b737c5bc3992862c4 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 19 Sep 2020 21:16:35 +0200 Subject: [PATCH] Add a new variable 'gnus-global-groups' * doc/misc/gnus.texi (HTML): Document it. * lisp/gnus/gnus-art.el (gnus-global-groups): New variable. (gnus-block-private-groups): Use it. --- doc/misc/gnus.texi | 5 +++++ etc/NEWS | 8 ++++++++ lisp/gnus/gnus-art.el | 10 +++++++++- 3 files changed, 22 insertions(+), 1 deletion(-) diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi index 2a0b51bd88c..a1c8b327f26 100644 --- a/doc/misc/gnus.texi +++ b/doc/misc/gnus.texi @@ -11979,6 +11979,11 @@ anything that isn't a newsgroup. This means that no external images will be fetched as a result of reading mail, so that nobody can use web bugs (and the like) to track whether you've read email. +@vindex gnus-global-groups +If you have specific private groups that you want to have treated as +if they were public groups, you can add the name of that group to the +@code{gnus-global-groups} list. + Also @pxref{Misc Article} for @code{gnus-inhibit-images}. @item gnus-html-cache-directory diff --git a/etc/NEWS b/etc/NEWS index 458f93379af..67cfd5fd00a 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -363,6 +363,14 @@ tags to be considered as well. ** Gnus ++++ +*** New variable 'gnus-global-groups'. +Gnus handles private groups differently from public (i.e., NNTP-like) +groups. Most importantly, Gnus doesn't download external images from +mail-like groups. This can be overridden by putting group names in +'gnus-global-groups': Any group present in that list will be treated +like a public group. + +++ *** New scoring types for the Date header. You can now score based on the relative age of an article with the new diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 13a85379970..4484b95075c 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -534,6 +534,13 @@ that the symbol of the saver function, which is specified by :group 'gnus-article-saving :type 'regexp) +(defcustom gnus-global-groups nil + "Groups that should be considered like \"news\" groups. +This means that images will be automatically loaded, for instance." + :type '(repeat string) + :version "28.1" + :group 'gnus-article) + ;; Note that "Rmail format" is mbox since Emacs 23, but Babyl before. (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail "A function to save articles in your favorite format. @@ -7138,7 +7145,8 @@ If given a prefix, show the hidden text instead." "Allows images in newsgroups to be shown, blocks images in all other groups." (if (or (gnus-news-group-p group) - (gnus-member-of-valid 'global group)) + (gnus-member-of-valid 'global group) + (member group gnus-global-groups)) ;; Block nothing in news groups. nil ;; Block everything anywhere else. -- 2.39.2