From 5563d1cd829e6c17d22c18e345101feaf736312a Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Fri, 21 Jun 2019 13:35:27 -0700 Subject: Remove all remaining uses of gnus-group-decoded-name * lisp/gnus/gnus-art.el (gnus-article-setup-buffer): * lisp/gnus/nnrss.el (nnrss-retrieve-groups): * lisp/gnus/message.el (message-forward-subject-author-subject): (message-forward-subject-name-subject): * lisp/gnus/gnus-msg.el (gnus-inews-insert-gcc): (gnus-inews-make-draft): * lisp/gnus/gnus-group.el (gnus-group-compact-group): (gnus-group-list-active): (gnus-group-kill-group): (gnus-group-set-current-level): (gnus-group-expire-articles-1): (gnus-group-catchup-current): (gnus-group-edit-group): (gnus-group-rename-group): (gnus-group-delete-group): (gnus-group-name-at-point): Remove calls in all these places, group names are always decoded. * lisp/gnus/gnus-cache.el: Remove variables gnus-cache-unified-group-names and gnus-cache-decoded-group-names, and function gnus-cache-decoded-group-name. (gnus-cache-generate-active): Do not access gnus-cache-unified-group-names. (gnus-cache-file-name): Don't decode. --- lisp/gnus/message.el | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) (limited to 'lisp/gnus/message.el') diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index c2374c70730..97b6d7e231a 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -1884,7 +1884,6 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'." (autoload 'gnus-delay-article "gnus-delay") (autoload 'gnus-extract-address-components "gnus-util") (autoload 'gnus-find-method-for-group "gnus") -(autoload 'gnus-group-decoded-name "gnus-group") (autoload 'gnus-group-name-charset "gnus-group") (autoload 'gnus-group-name-decode "gnus-group") (autoload 'gnus-groups-from-server "gnus") @@ -7322,12 +7321,11 @@ news, Source is the list of newsgroups is was posted to." (let* ((group (message-fetch-field "newsgroups")) (from (message-fetch-field "from")) (prefix - (if group - (gnus-group-decoded-name group) - (or (and from (or - (car (gnus-extract-address-components from)) - (cadr (gnus-extract-address-components from)))) - "(nowhere)")))) + (or group + (or (and from (or + (car (gnus-extract-address-components from)) + (cadr (gnus-extract-address-components from)))) + "(nowhere)")))) (concat "[" (if message-forward-decoded-p prefix @@ -7341,10 +7339,9 @@ Source is the sender, and if the original message was news, Source is the list of newsgroups is was posted to." (let* ((group (message-fetch-field "newsgroups")) (prefix - (if group - (gnus-group-decoded-name group) - (or (message-fetch-field "from") - "(nowhere)")))) + (or group + (or (message-fetch-field "from") + "(nowhere)")))) (concat "[" (if message-forward-decoded-p prefix -- cgit v1.2.1