From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 28 Oct 2019 14:10:51 +0000 (+0100)
Subject: Fix `G c' in Gnus group buffers for non-ASCII text
X-Git-Tag: emacs-27.0.90~853
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4367c296cead5540acf7804b1b7423d7fe649e53;p=emacs.git

Fix `G c' in Gnus group buffers for non-ASCII text

* lisp/gnus/gnus-cus.el (gnus-group-customize): Decoding is
superfluous here -- everything is utf-8 already.
(gnus-group-customize-done): Don't double-encode the text (bug#37901).
---

diff --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el
index 2e3fbfe9d46..5291d1d64d1 100644
--- a/lisp/gnus/gnus-cus.el
+++ b/lisp/gnus/gnus-cus.el
@@ -421,11 +421,6 @@ category."))
 	    (delq elem tmp))
 	  (setq tmp (cdr tmp))))
 
-      ;; Decode values posting-style holds.
-      (dolist (style (cdr (assq 'posting-style values)))
-	(when (stringp (cadr style))
-	  (setcdr style (list (decode-coding-string (cadr style) 'utf-8)))))
-
       (setq gnus-custom-params
             (apply 'widget-create 'group
                    :value values
@@ -497,10 +492,6 @@ form, but who cares?"
   "Apply changes and bury the buffer."
   (interactive)
   (let ((params (widget-value gnus-custom-params)))
-    ;; Encode values posting-style holds.
-    (dolist (style (cdr (assq 'posting-style params)))
-      (when (stringp (cadr style))
-	(setcdr style (list (encode-coding-string (cadr style) 'utf-8)))))
     (if gnus-custom-topic
 	(gnus-topic-set-parameters gnus-custom-topic params)
       (gnus-group-edit-group-done 'params gnus-custom-group params)