[mew-int 00513] unibyte

[Kazu Yamamoto ( 山本和彦 )]

Hello all,

This message is mainly for those who live in Europe. If you execute
Emacs with the --unibyte option or with the EMACS_UNIBYTE environment
variable set, please apply the following patch to Mew 2.1rc2.

With pure Mew 2.1rc2, write-region() may produce a broken file. For
example, "y" in Summary mode. 

This patch drastically changes features for Emacs with the --unibyte
option. I believe this patch works well. But I'm not sure. Only field
tests will tell.

Unless I receive a bad news, I will merge it and release Mew 2.1 rc3
maybe on Monday.

--Kazu

Index: mew-env.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-env.el,v
retrieving revision 1.9
diff -c -r1.9 mew-env.el
*** mew-env.el	2001/10/26 05:19:14	1.9
--- mew-env.el	2001/10/26 12:56:45
***************
*** 66,83 ****
      (if (eq window-system 'x) (setq mew-icon-p t))
      (setq mew-gemacs-p t)
      (require 'mew-gemacs))
!   (cond
!    ((null mew-mule-p)
!     (setq mew-mule-ver 0)
!     (require 'mew-mule0))
!    (t
!     (cond
!      (mew-unibyte-p
!       (setq mew-mule-ver 0)
!       (require 'mew-mule0))
!      (t
!       (setq mew-mule-ver 3)
!       (require 'mew-mule3)))))))
  
  ;;;
  ;;; Emacs vs XEmacs
--- 66,73 ----
      (if (eq window-system 'x) (setq mew-icon-p t))
      (setq mew-gemacs-p t)
      (require 'mew-gemacs))
!   (setq mew-mule-ver 3)
!   (require 'mew-mule3)))
  
  ;;;
  ;;; Emacs vs XEmacs
Index: mew-func.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-func.el,v
retrieving revision 1.23
diff -c -r1.23 mew-func.el
*** mew-func.el	2001/10/26 05:19:15	1.23
--- mew-func.el	2001/10/26 12:56:50
***************
*** 1162,1176 ****
  
  (defsubst mew-set-buffer-multibyte (arg)
    (if (fboundp 'set-buffer-multibyte)
!       (if mew-unibyte-p () (set-buffer-multibyte arg))))
  
  (defsubst mew-multibyte-string-p (str)
!   (when (fboundp 'multibyte-string-p)
!     (if mew-unibyte-p () (multibyte-string-p str))))
! 
! (defvar mew-unibyte-p 
!   (and (boundp 'enable-multibyte-characters)
!        (null enable-multibyte-characters)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; 
--- 1162,1172 ----
  
  (defsubst mew-set-buffer-multibyte (arg)
    (if (fboundp 'set-buffer-multibyte)
!       (set-buffer-multibyte arg)))
  
  (defsubst mew-multibyte-string-p (str)
!   (if (fboundp 'multibyte-string-p)
!       (multibyte-string-p str)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;