[mhc:00032] mhc on windows(Meadow-1.01)

[Toru Ito <ito@xxxxxxxxxxxxxxxxxxxxxxxxx>]

           初めまして、伊藤＠豊田織機 と申します。


 こちらのMLには初参加です。どうぞよろしくお願い致します。

 実は、自分はMewをwindows(Meadow)上で使っております。
 今回、mhcをwindows上で使用出来ないかと、言う事で、ここ1週間程前から、
 個人的に乃村さんにご迷惑をおかけしていた者です。


 乃村さん、お言葉に甘えてこちらに移動して参りました。
 引き続き、よろしくお願い致します。



> おそらく環境変数の HOME を設定されていると思いますが、どういう値
> になっていますか? 伊藤さんの mscan2 の修正の中に、
>   $HOME         = $ENV{'/ito'};←修正
> というくだりがあって、よーく見ると、おかしなことになってます。
> (気がつきませんでした。ごめんなさい。)

 これは、0.15辺りまでやっていましたが、0.16からはdefaultのままでうまく
 動いていたので、かまり前から変更していません。
 現在のc:/usr/meadow/mew/mhc-0.16/mscan2ですが…
------------------------------------------
# $NKF          = "nkf";
$NKF          = "/usr/bin/nkf";
$SCAN         = "imls";
$USER         = $ENV{'USERNAME'} || $ENV{'USER'} || $ENV{'LOGNAME'};
$HOME         = $ENV{'HOME'};

$MailDir      = "$HOME/Mail";
$rootFolder   = "schedule";
$ScheduleDir  = "$MailDir/$rootFolder";
$dot_schedule = "$HOME/.schedule";
$intersect    = "intersect";
$dot_schedule = "$HOME/.schedule";
------------------------------------------
 っとなっております。またautoexec.batは、今回のmhc導入に関して全く変更
 した部分は無く
------------------------------------------
SET MSINPUT=C:\MSINPUT
call C:\WINDOWS\SYSTEM\_nw_nds.bat C:\WINDOWS\SYSTEM
loadhigh C:\WINDOWS\COMMAND\nlsfunc.exe C:\WINDOWS\country.sys
SET PATH=C:\PERL\BIN;%PATH%;c:\cygnus\cygwin-b20\H-i586-cygwin32\bin;C:\PROGRA~1\TCL\bin
rem SET PATH=C:\PERL\BIN;%PATH%;C:\PROGRA~1\TCL\bin
set HOME=c:\ito
set TZ=JST-9
set PGPPATH=c:\usr\meadow\mew\pgp263ix
------------------------------------------
 っとなっております。
 mscan2に関して、再度確認しておきますと…0.16に対して変更した部分は
------------------------------------------
# $NKF          = "nkf";
$NKF          = "/usr/bin/nkf";
--- と ---------
## if argument doesn't have '+schddule/...' nor '-month', scan normally.
# exec ("$SCAN", @ARGV) if (!$scheduleFLG);
if (!$scheduleFLG){
    exec('/Perl/bin/perl', '/Perl/bin/imls', @ARGV)
	|| die "Can't exec $SCAN.\n";
}
--- と ---------
#    foreach (<$scDir/[0-9]*>, <$ScheduleDir/$intersect/[0-9]*>){
#	last if (! -f $_);
    foreach (<$scDir/*>, <$ScheduleDir/$intersect/*>){
	next if (! /\/\d+$/);
	last if (! -f $_);
------------------------------------------
 だけとなっております。



> あと ^M が行末に残るのは、mhc.el の中の、
> (defun mhc-summary-scan-func-for-mew (folder) ;; virtual only
>   (if (get-buffer folder)
>       (switch-to-buffer folder)
>     (mew-summary-folder-create folder))
>   (mew-summary-scan-body mew-prog-imls 'mew-virtual-mode folder
> 			 mew-cs-scan '("all" erase) (list folder)))
> の mew-cs-scan を mew-cs-virtual に変更すればなおると思います。
> 昔の mhc は virtual を使ってなかったので、そのままになっていたと
> いうバグでした。
> # UNIX の場合は、mew-cs-virtual と mew-cs-scan は同じものなので
> # 発覚しなかったのだな。。

 次の様にc:/usr/meadow/mew/mhc-0.16/mhc.elを修正してみたのですが…
------------------------------------------------------------
(defun mhc-summary-scan-func-for-mew (folder) ;; virtual only
  (if (get-buffer folder)
      (switch-to-buffer folder)
    (mew-summary-folder-create folder))
  (mew-summary-scan-body mew-prog-imls 'mew-virtual-mode folder
;			 mew-cs-scan '("all" erase) (list folder)))
			 mew-cs-virtual '("all" erase) (list folder)))
------------------------------------------------------------
 …残念です、やはりmessageが表示されて参りません。
 症状は、先にmailさせて頂いた状況と全く同じです。
 既に登録してある5/18でspaceしても、表示されませんし…新たに同じ
 message(mail)を5/19に登録してみると…
   0 | 05/17  Mon
   1 | 05/18  Tue  00:00 財形貯蓄の件
   2 | 05/19  Wed  14:00 財形貯蓄の件
   0 | 05/20  Thu
 …までは出てくるのですが、やはり5/19でspaceしてもmessageは表示されま
 せんでした(もちろん~ito/Mail/schedule/1999/05/2は出来ています)。

 それから、先にmailした"C-cd"でのmode lineの表示も同じです。


 ちなみにmhc.elに関しましても確認しておきますと…0.16からの変更点は…
------------------------------------------------------------
(defun mhc-summary-scan-func-for-mew (folder) ;; virtual only
  (if (get-buffer folder)
      (switch-to-buffer folder)
    (mew-summary-folder-create folder))
  (mew-summary-scan-body mew-prog-imls 'mew-virtual-mode folder
;			 mew-cs-scan '("all" erase) (list folder)))
			 mew-cs-virtual '("all" erase) (list folder)))
--- と ---------
(defun mhc-draft-refile (folder)
  (let ((tmp-file (or (buffer-file-name)
		      (expand-file-name (make-temp-name mhc-tmp-file-name)
					mhc-mail-path))))
    (cond
;    ((string< "20.2" emacs-version) ;; emacs 20.3 or higher
     ((string< "20.3" emacs-version) ;; emacs 20.3 or higher
      (let ((coding-system-for-write 'iso-2022-jp))
	(write-region (point-min) (point-max) tmp-file nil
------------------------------------------------------------
 っとなっております。

 以上、よろしくお願い致します。


            _  _ TOYOTA AUTOMATIC LOOM WORKS, LTD.
          /_/_(_)       Toru Ito
           /_/   Office:ito@xxxxxxxxxxxxxxxxxxxxxxxxx
          TOYOTA Private:toru@xxxxxxxxxxxxxxx