diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-10-09 12:33:07 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-10-09 12:33:07 -0400 |
| commit | 6c2b1e89efe90e1b55bc0f0296e68efa52dbcbc1 (patch) | |
| tree | 4f2946a0d2adf393e8ba410b9553d72d5ad5113c | |
| parent | 7ed73608559c2254ac66cf440f6f9eec934c4dae (diff) | |
| download | emacs-6c2b1e89efe90e1b55bc0f0296e68efa52dbcbc1.tar.gz | |
* lisp/gnus/message.el: Improve last commit
(message-clone-locals): Don't mistakenly match other variables whose
name happens to include "message-default-charset".
| -rw-r--r-- | lisp/gnus/message.el | 3 |
1 files changed, 1 insertions, 2 deletions
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))) |