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