mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 10:50:49 -08:00
Code Issues Projects Releases Wiki Activity

Add a new variable 'gnus-global-groups'

Browse source 
* doc/misc/gnus.texi (HTML): Document it.

* lisp/gnus/gnus-art.el (gnus-global-groups): New variable.
(gnus-block-private-groups): Use it.
This commit is contained in:
Lars Ingebrigtsen 2020-09-19 21:16:35 +02:00
parent 091cb97a2a
commit eda48b6fed
3 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
doc/misc/gnus.texi
View file

@ -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 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. 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}. Also @pxref{Misc Article} for @code{gnus-inhibit-images}.
@item gnus-html-cache-directory @item gnus-html-cache-directory

8
etc/NEWS
View file

@ -363,6 +363,14 @@ tags to be considered as well.
** Gnus ** 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. *** New scoring types for the Date header.
You can now score based on the relative age of an article with the new You can now score based on the relative age of an article with the new

10
lisp/gnus/gnus-art.el
View file

@ -534,6 +534,13 @@ that the symbol of the saver function, which is specified by
:group 'gnus-article-saving :group 'gnus-article-saving
:type 'regexp) :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. ;; Note that "Rmail format" is mbox since Emacs 23, but Babyl before.
(defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail
"A function to save articles in your favorite format. "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 "Allows images in newsgroups to be shown, blocks images in all
other groups." other groups."
(if (or (gnus-news-group-p group) (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. ;; Block nothing in news groups.
nil nil
;; Block everything anywhere else. ;; Block everything anywhere else.