Re: wanderlust & octet.el

[Yuuichi Teranishi <teranisi@xxxxxxxxxx>]

At Sat, 30 Mar 2002 20:04:30 +0900,
Hiroya Murata wrote:
> 
>   (multibyte-string-p (mime-entity-content entity))
>     => t
> 
> となります. 結局, unibyte のバッファに multibyte の文字列を 
> insert するので, この時点でバッファの内容が壊れてしまっているのが
> 原因の様です.
> 
>   (with-temp-buffer
>     (set-buffer-multibyte t)
>     (insert (mime-entity-content entity))
>     (set-buffer-multibyte nil)
>     ...
> 
> とか
> 
>   (with-temp-buffer
>     (set-buffer-multibyte nil)
>     (mime-insert-entity-body entity)
>     (mime-decode-region (point-min) (point-max)
>                         (mime-entity-encoding entity))
>     ...
> 
> とかすれば, 動くのは確認したんですが, どっちも何かすっきりしませ
> ん. どう直すのが, 良いでしょうか?

うーむ、そういえば昔 EMY でも同じようなこと言ってたような。
…と思って、EMY のソースをのぞいてみたら、こうなってました。

   (wit-temp-buffer
       (if (featurep 'xemacs)
            (insert (mime-entity-content entity))
          (let ((content (mime-entity-content entity)))
            (if (not (multibyte-string-p content))
                (set-buffer-multibyte nil))
            (insert content)))

--
Yuuichi Teranishi (寺西裕一) <teranisi@gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"Love is needing to be loved..."