[mew-win32 03976] Re: string-bytesの実行結果が違う？

[Kazu Yamamoto ( 山本和彦 )]

From: Taiji Miyazawa <t-miyazawa at example.com>
Subject: [mew-win32 03975] Re: string-bytesの実行結果が違う？

> すみません、会社の FireWall のせいで anonCVS への
> 接続が出来ません。
> 申し訳ないのですが、patch として配布いただけない
> でしょうか。

3.3 に当るか分りませんが、こんな感じです。

--かず

Index: mew-func.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-func.el,v
retrieving revision 1.134
retrieving revision 1.135
diff -c -r1.134 -r1.135
*** mew-func.el	2003/07/30 00:37:06	1.134
--- mew-func.el	2003/10/01 07:43:46	1.135
***************
*** 1053,1063 ****
       , at example.com))
  
  (defsubst mew-region-bytes (beg end buf)
!   (if (fboundp 'string-bytes)
!       (save-excursion
! 	(set-buffer buf)
! 	(string-bytes (mew-buffer-substring beg end)))
!     (- end beg)))
  
  (defun mew-count-lines (beg end)
    "Return number of lines between BEG and END."
--- 1053,1066 ----
       , at example.com))
  
  (defsubst mew-region-bytes (beg end buf)
!   (save-excursion
!     (set-buffer buf)
!     (save-restriction
!       (narrow-to-region beg end)
!       (mew-set-buffer-multibyte nil)
!       (prog1
! 	  (- (point-max) (point-min))
! 	(mew-set-buffer-multibyte t)))))
  
  (defun mew-count-lines (beg end)
    "Return number of lines between BEG and END."