[Mew-dist 14852] the errors which is related with Mule-UCS (Re: Re: my problems on the upgrading of Mew)

[HOSONO Hidetomo]

ほそのです。Mew-1.95b75でいまだハマり続けています。

## 送受信は出来ているから致命的な問題ではないのですが…。

To: mew-dist at example.com
From: HOSONO Hidetomo <h at example.com>
Subject: [Mew-dist 14850] Re: my problems on the upgrading of Mew (Mew-1.95b43 -> Mew-1.95b75)
Date: Mon, 6 Nov 2000 01:42:08 +0900

> こっちの方がよさそうですね。
> ----------------------------------------------------------------
> ;; Mew起動時のエラーを防ぐ
> (add-hook 'mew-init-hook
> 	  (function (lambda ()
> 		      (set-buffer-file-coding-system 'mew-cs-text-unix)
> 		      )))
> ----------------------------------------------------------------

その後、mew-cs-text-unixコード系を使うより、
変数mew-cs-text-for-writeを使うように改めましたが、
いずれにしてもGNU EmacsでMule-UCS使用時で、
default-buffer-file-coding-systemがutf-8であった際、
起動時にmew-touch-folder-checkでコケることはなくなりました

しかし、他の個所でエラーになることもあるようです。
フォルダ名に空白があると、
そのフォルダでmew-summary-sortをかけようとするときに
エラーになります。以下Backtraceです。
----------------------------------------------------------------
Signaling: (wrong-type-argument integer-or-marker-p nil)
  mew-buffer-substring(nil nil)
  mew-match(1)
  mew-summary-sort()
* call-interactively(mew-summary-sort)
----------------------------------------------------------------
また、~/Mail直下に空白の入ったフォルダがあると、
mew-status-updateでもエラーになりました。
これも以下Backtraceです。
----------------------------------------------------------------
Signaling: (wrong-type-argument integer-or-marker-p "touched by Mew.(test)")
  find-charset-region("touched by Mew.(test)" nil)
  un-define-pre-write-conversion("touched by Mew.(test)" nil)
  write-region("touched by Mew.(test)" nil "/home/h/Mail/.mew-touch" nil no-msg)
  mew-touch-folder-check()
  mew-status-update((4))
* call-interactively(mew-status-update)
----------------------------------------------------------------

実は、こんなパッチをつくってみたりもしたのですが、
----------------------------------------------------------------
--- mew.el.original	Wed Nov  1 10:16:34 2000
+++ mew.el	Mon Nov  6 02:14:20 2000
@@ -193,7 +193,7 @@
 	 time2)
     (if (not (file-writable-p file))
 	()
-      (write-region "touched by Mew.(test)" nil file nil 'no-msg)
+      (write-region-as-coding-system mew-cs-text-for-write "touched by Mew.(test)" nil file nil 'no-msg)
       (if (file-exists-p file) (delete-file file))
       (setq time2 (mew-file-get-time dir))
       (if (equal time1 time2)

----------------------------------------------------------------
この変更を施したMewでは、
起動時にwrite-region-as-coding-systemが定義されておらず、
失敗してしまいました。

--HOSONO Hidetomo@新宿西口のスターバックスでは電源がとれるんです