aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2019-10-28 15:10:51 +0100
committerLars Ingebrigtsen2019-10-28 15:10:51 +0100
commit4367c296cead5540acf7804b1b7423d7fe649e53 (patch)
treec7c0f6ccab8c4f224077f2cab0dd055114dd890d
parent2864c5201d5c4ddfcfe1e8f2fca4168077c7f44f (diff)
downloademacs-4367c296cead5540acf7804b1b7423d7fe649e53.tar.gz
emacs-4367c296cead5540acf7804b1b7423d7fe649e53.zip
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).
-rw-r--r--lisp/gnus/gnus-cus.el9
1 files changed, 0 insertions, 9 deletions
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."))
421 (delq elem tmp)) 421 (delq elem tmp))
422 (setq tmp (cdr tmp)))) 422 (setq tmp (cdr tmp))))
423 423
424 ;; Decode values posting-style holds.
425 (dolist (style (cdr (assq 'posting-style values)))
426 (when (stringp (cadr style))
427 (setcdr style (list (decode-coding-string (cadr style) 'utf-8)))))
428
429 (setq gnus-custom-params 424 (setq gnus-custom-params
430 (apply 'widget-create 'group 425 (apply 'widget-create 'group
431 :value values 426 :value values
@@ -497,10 +492,6 @@ form, but who cares?"
497 "Apply changes and bury the buffer." 492 "Apply changes and bury the buffer."
498 (interactive) 493 (interactive)
499 (let ((params (widget-value gnus-custom-params))) 494 (let ((params (widget-value gnus-custom-params)))
500 ;; Encode values posting-style holds.
501 (dolist (style (cdr (assq 'posting-style params)))
502 (when (stringp (cadr style))
503 (setcdr style (list (encode-coding-string (cadr style) 'utf-8)))))
504 (if gnus-custom-topic 495 (if gnus-custom-topic
505 (gnus-topic-set-parameters gnus-custom-topic params) 496 (gnus-topic-set-parameters gnus-custom-topic params)
506 (gnus-group-edit-group-done 'params gnus-custom-group params) 497 (gnus-group-edit-group-done 'params gnus-custom-group params)