[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 4367c29 2/2: Fix `G c' in Gnus group buffers for non-ASCII text
From: |
Lars Ingebrigtsen |
Subject: |
master 4367c29 2/2: Fix `G c' in Gnus group buffers for non-ASCII text |
Date: |
Mon, 28 Oct 2019 10:11:09 -0400 (EDT) |
branch: master
commit 4367c296cead5540acf7804b1b7423d7fe649e53
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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).
---
lisp/gnus/gnus-cus.el | 9 ---------
1 file changed, 9 deletions(-)
diff --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el
index 2e3fbfe..5291d1d 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)