[mhc:00957] Re: cmail

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>]

From: Takeshi Ohmura <ohmura.takeshi@xxxxxxxxxxx> さん曰く
Subject: [mhc:00955] Re: cmail
Message-ID: <4129-Mon07Aug2000132409+0900-ohmura.takeshi@xxxxxxxxxxx>
Date: Mon,  7 Aug 2000 13:24:09 +0900

おおむら> > '/dev/null' ってWin32 だと動かない人もいるような気がするのですが、
おおむら> > 大丈夫ですか？ > おおむらさん
おおむら> 
おおむら> 大丈夫くないと思います。

ですよね。普通。

おおむら> > もし、動かないのなら
おおむら> > 
おおむら> > (cond
おおむら> >  ((memq system-type '(OS/2 emx))
おおむら> >   (defvar mhc-cmail/dummy-file "NUL")) ;; 知らない
おおむら> >  ((eq system-type 'windows-nt)
おおむら> >   (defvar mhc-cmail/dummy-file "NUL"))
おおむら> >  (t
おおむら> >   (defvar mhc-cmail/dummy-file "/dev/null")))
おおむら> 
おおむら> これを mhc-cmail.el の先頭に入れて、/dev/null を
おおむら>  mhc-cmail/dummy-file に置きかえたのですが、
おおむら> うまくいきません。

ありゃ。

おおむら> 予定が入っていない日で SPC を押すと d:/dev/null
おおむら> なるファイルはないとおこられてしまいました。
おおむら> 
おおむら> # 他でも使っているというわけですね。

cmail-2.60+20000726.tar.gz を貰ってきて、
WinNT4.0 + Meadow 1.13b1 で立ち上げてみたのですが、動きましたよ。

# /dev/null は他に使っている人はいなかったです。

current の mhc-cmail に付属のパッチをあてただけです。設定は、
cmail のことを良くわかっていないので、

	(autoload 'cmail "cmail" nil t)
	(setq cmail-path "~/Cmail/")
	(setq cmail-always-display-folders nil)
	(setq cmail-use-mime t)
	(setq cmail-mime-decode t)
	(autoload 'mhc-cmail-setup "mhc-cmail")
	(add-hook 'cmail-startup-hook 'mhc-cmail-setup)

これだけです。(あれ、Header を decode してくれないなぁ)

○ mhc-cmail/dummy-file => "NUL" となっているか？

○ mhc の summary を *scratch* にでも yank したときに、

0 | 08月20日(日)             夏期休暇 ^M c:/home/shirai/Mail/schedule/2000/08/13
0 | 08月21日(月)             ^M NUL
~~~~ => (1)                  ~~~~~~ => (2)

 (1) ここは invisible なのでそのままでは見えない。
 (2) これも summary では selective-display が効いているので見え
  ないけど、*scratch* なら '^M' の後に schedule の file名が入っ
  ているのが見える。

で、上の例のように 'NUL' なら大丈夫みたいなのですが。。。

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)

以下、試したパッチ (OS/2 はわからないので書いていない)。

--- mhc-cmail.el.orig	Mon Aug 07 14:12:28 2000
+++ mhc-cmail.el	Mon Aug 07 14:19:11 2000
@@ -38,6 +38,12 @@
 (defconst mhc-cmail/summary-message-alist
   '((cmail-summary-mode . cmail-readmail-mode)))
 
+(cond
+ ((eq system-type 'windows-nt)
+  (defvar mhc-cmail/dummy-file "NUL"))
+ (t
+  (defvar mhc-cmail/dummy-file "/dev/null")))
+
 ;; Setup function:
 
 ;;;###autoload
@@ -97,7 +103,7 @@
 
 (defun mhc-cmail/schedule-foldermsg (schedule)
   (let ((path (mhc-record-name (mhc-schedule-record schedule))))
-    (concat "\r " (or path "/dev/null"))))
+    (concat "\r " (or path mhc-cmail/dummy-file))))
 
 (defun mhc-cmail-insert-summary-contents (inserter)
   (insert mhc-cmail/header-string)
@@ -147,7 +153,7 @@
      (no-err
       nil)
      ((and (boundp 'mhc-mode) mhc-mode)
-      "/dev/null")
+      mhc-cmail/dummy-file)
      (t
       (cmail-error-resource 'get-page-number-from-summary)))))