* lisp/gnus/message.el: Improve last commit

(message-clone-locals): Don't mistakenly match other variables whose
name happens to include "message-default-charset".
This commit is contained in:
Stefan Monnier 2017-10-09 12:33:07 -04:00
parent 7ed7360855
commit 6c2b1e89ef

View file

@ -8063,8 +8063,7 @@ regexp VARSTR."
;; Cloning message-default-charset could cause an already
;; encoded text to be encoded again, yielding raw bytes
;; instead of characters in the message.
(unless (string-match "message-default-charset"
(symbol-name (car local)))
(unless (eq 'message-default-charset (car local))
(set (make-local-variable (car local))
(cdr local))))))
locals)))