[Mew-dist 08546] Re: mc-flag of mew cache buffer

[Kazu Yamamoto ( 山本和彦 )]

From: TSUMURA Tomoaki <tsumura at example.com>
Subject: [Mew-dist 08545] Re: mc-flag of mew cache buffer
Date: Fri, 9 Apr 1999 17:34:52 +0900

> 最近は, APEL required な package が多いんで, APEL が load された
> 環境になる可能性が高いわけですが, APEL で set-buffer-multibyte が
> emulate 定義されてるので, そういう環境では cond のひとつめに
> match しちゃいますね。

すると、これで直りますか？

--かず

-------------- next part --------------
Index: mew-decode.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-decode.el,v
retrieving revision 1.63
diff -c -r1.63 mew-decode.el
*** mew-decode.el	1999/04/06 00:28:49	1.63
--- mew-decode.el	1999/04/09 08:56:16
***************
*** 306,316 ****
    ;; afer reading the file
    (if mew-mule-p
        (cond
         ((fboundp (function set-buffer-multibyte))
! 	(set-buffer-multibyte t))
!        (mew-temacs-p
! 	(setq mc-flag nil) ;; for re-search-forward
! 	)))
    ;; Illegal messages may not have end-of-header.
    ;; Truncated messages may not have end-of-header.
    (if (re-search-forward mew-eoh nil t)
--- 306,315 ----
    ;; afer reading the file
    (if mew-mule-p
        (cond
+        ((boundp 'mc-flag)
+ 	(setq mc-flag nil)) ;; for re-search-forward
         ((fboundp (function set-buffer-multibyte))
! 	(set-buffer-multibyte t))))
    ;; Illegal messages may not have end-of-header.
    ;; Truncated messages may not have end-of-header.
    (if (re-search-forward mew-eoh nil t)