Re: Fixing Gnus, and string encoding question

[Noam Postavsky]

On Sun, 7 Apr 2019 at 00:10, Eric Abrahamsen <address@hidden> wrote:

> You can get the string I'm fighting with by saving the attached file and
> running:
>
> (with-temp-buffer
>   (set-buffer-multibyte t)
>   (let ((coding-system-for-read 'raw-text))
>     (insert-file-contents "active")
>     (goto-char (point-min))
>     (symbol-name (read (current-buffer)))))
>
> I'm trying to turn that into something that looks like
> "nnml:ã\203\206ã\202¹ã\203\210"

Ah, needs multibyte-char-to-unibyte:

(apply #'string
       (mapcar #'multibyte-char-to-unibyte
               (with-temp-buffer
                 (set-buffer-multibyte t)
                 (let ((coding-system-for-read 'raw-text))
                   (insert-file-contents "active")
                   (goto-char (point-min))
                   (symbol-name (read (current-buffer)))))))