diff options
| author | Lars Ingebrigtsen | 2019-10-28 15:10:51 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-10-28 15:10:51 +0100 |
| commit | 4367c296cead5540acf7804b1b7423d7fe649e53 (patch) | |
| tree | c7c0f6ccab8c4f224077f2cab0dd055114dd890d | |
| parent | 2864c5201d5c4ddfcfe1e8f2fca4168077c7f44f (diff) | |
| download | emacs-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.el | 9 |
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) |