[Mew-Win32 01700] Re: b45

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 09880] b45
Message-ID: <19990730122647U.kazu at example.com>
Date: Fri, 30 Jul 1999 12:27:35 +0900

kazu> mew-1.94b45.tar.gz を ftp.mew.org:/pub/Mew/beta に置きまし
kazu> た。

白井> kazu> >   (setq mew-cs-pick *sjis*)
白井> (setq mew-cs-pick default-file-name-coding-system)
白井> 
白井> kazu> >   (setq mew-cs-pick 'sjis)
白井> (setq mew-cs-pick win32-system-coding-system)

ごめんなさい。逆に書いてしまいました。^^;;;
お詫びにもうひとつつけておきます。(__)
-------------- next part --------------
*** mew-win32.el.orig	Fri Jul 30 12:15:53 1999
--- mew-win32.el	Fri Jul 30 12:30:59 1999
***************
*** 44,50 ****
  ;;  (setq mew-prog-shell-arg  shell-command-switch)
    
   ((eq 20 emacs-major-version)
!   (setq mew-cs-pick win32-system-coding-system)
    (setq mew-prog-shell-arg  shell-command-switch)
    
    (if (featurep 'meadow);; Meadow
--- 44,50 ----
  ;;  (setq mew-prog-shell-arg  shell-command-switch)
    
   ((eq 20 emacs-major-version)
!   (setq mew-cs-pick default-file-name-coding-system)
    (setq mew-prog-shell-arg  shell-command-switch)
    
    (if (featurep 'meadow);; Meadow
***************
*** 84,90 ****
  		     NAME BUFFER PROGRAM PROGRAM-ARGS)))))
        )))
   (t				 ;; Mule for Win32
!   (setq mew-cs-pick default-file-name-coding-system)
    (setq mew-use-timer nil)
    (setq mew-prog-shell-arg  shell-command-option)
    (require 'win32-script)
--- 84,90 ----
  		     NAME BUFFER PROGRAM PROGRAM-ARGS)))))
        )))
   (t				 ;; Mule for Win32
!   (setq mew-cs-pick win32-system-coding-system)
    (setq mew-use-timer nil)
    (setq mew-prog-shell-arg  shell-command-option)
    (require 'win32-script)
-------------- next part --------------
*** mew-draft.el.orig	Fri Jul 30 12:37:13 1999
--- mew-draft.el	Fri Jul 30 12:37:32 1999
***************
*** 518,524 ****
        (setq halist (cdr halist))
        (if (not (string-match ":$" key))
  	  (setq key (concat key ":")))
!       (if (string-match mew-body:)
  	  (setq ret val)
  	(mew-draft-header-insert key val)))
      ret))
--- 518,524 ----
        (setq halist (cdr halist))
        (if (not (string-match ":$" key))
  	  (setq key (concat key ":")))
!       (if (string-match mew-body: key)
  	  (setq ret val)
  	(mew-draft-header-insert key val)))
      ret))