Remove all remaining uses of gnus-group-decoded-namescratch/gnus-decoded

* 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.

1 files changed, 8 insertions, 11 deletions

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