From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 9 Oct 2017 16:33:07 +0000 (-0400)
Subject: * lisp/gnus/message.el: Improve last commit
X-Git-Tag: emacs-26.0.90~29
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c2b1e89efe90e1b55bc0f0296e68efa52dbcbc1;p=emacs.git

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

(message-clone-locals): Don't mistakenly match other variables whose
name happens to include "message-default-charset".
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index f874a0e3b8e..8212eeafa91 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -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)))