bug#25645: reproducer?

[Eli Zaretskii]

> From: Alex Bennée <alex.bennee@linaro.org>
> Cc: 25645@debbugs.gnu.org
> Date: Wed, 04 Oct 2017 09:46:17 +0100
> 
> > A stab in the dark: what if you filter out message-default-charset
> > from the cloned locals?
> 
> Good guess:
> 
> (defun message-clone-locals (buffer &optional varstr)
>   "Clone the local variables from BUFFER to the current buffer."
>   (message "message-clone-locals: %s" buffer)
>   (let ((locals (with-current-buffer buffer (buffer-local-variables)))
>       (regexp 
> "^gnus\\|^nn\\|^message\\|^sendmail\\|^smtp\\|^user-mail-address"))
>     (mapcar
>      (lambda (local)
>        (when (and (consp local)
>                 (car local)
>                 (string-match regexp (symbol-name (car local)))
>                 (or (null varstr)
>                     (string-match varstr (symbol-name (car local)))))
>        (ignore-errors
>            (unless (string-match "message-default-charset" (symbol-name (car 
> local)))
>              (message "copying: %s -> %s" (car local) (cdr local))
>            (set (make-local-variable (car local))
>                 (cdr local))))))
>      locals)))

Thanks, I installed this, and I'm marking the bug done.