[Mew-Win32 01452] Re: mew-virtual-thread (Re: mew-win32-mvm.el 手パッチ)

[Mitsuru FURUI]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
shirai> 
shirai> お手軽版なら北口さんがつくってくれていますよ。場所は "beta" の下
shirai> だったかな？

  見つけました。昼食前に見つけまして早速インストールし thread 表示を試し
てみました。確かにこれは良いですねぇ。ROM している ML の記事を追い掛ける
際には最高です。


shirai> M-x toggle-debug-on-error してから動かすと、*Backtrace* が出来ま
shirai> すのでそれを見せていただけますか？ > 古井さん

  1.93 の方に戻して上記コマンドを発してから試してみました。
  出力を添付します。
  …で、以下に添付したつもりですがマルチパートのメールの作成が初めての
ことなので…私自身戻ってくるメールがどうなっているのか楽しみです。
  もし見られる状態にありましたらそのような感じになっていました。^^;


shirai> 特に全体的に動作が速くなった(特定のコマンドはめちゃくちゃ速くなっ
shirai> た)ので、それだけでも Version-up の価値はあると思います。

  何となくですが速くなった気がします。
  ただ meadow の方で shell buffer がちゃんと動かないので当分 BOW の方が
メインになりそうです。

# meadow-users ML の入会案内ってどこでやっているんですか？
---
Mitsuru FURUI(mailto:mfurui at example.com)
古井　充（ふるい　みつる）
-------------- next part --------------

Signaling: (file-error "Spawning child process" "exec format error")
  start-process("imls" #<buffer ++mew-win32-thread> "imls" "--width=100" "--help=no" "--debug=no" "--thread=yes" "--src=+mew-win32" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16" "17" "18" "19" "20" "21" "22" "23" "24" "25" "26" "27" "28" "29" "30" "31" "32" "33" "34" "35" "36" "37" "38" "39" "40" "41" "42" "43" "44" "45" "46" "47" "48" "49" "50" "51" "52" "53" "54" "55" "56" "57" "58" "59" "60" "61" "62" "63" "64" "65" "66" "67" "68" "69" "70" "71" "72" "73" "74" "75" "76" "77" "78" "79" "80" "81" "82" "83" "84" "85" "86" "87" "88")
  apply(start-process "imls" #<buffer ++mew-win32-thread> "imls" "--width=100" ("--help=no" "--debug=no" "--thread=yes" "--src=+mew-win32" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16" "17" "18" "19" "20" "21" "22" "23" "24" "25" "26" "27" "28" "29" "30" "31" "32" "33" "34" "35" "36" "37" "38" "39" "40" "41" "42" "43" "44" "45" "46" ... . ("47" "48" "49" "50" "51" "52" "53" "54" "55" "56" "57" "58" "59" "60" "61" "62" "63" "64" "65" "66" "67" "68" "69" "70" "71" "72" "73" "74" "75" "76" "77" "78" "79" "80" "81" "82" "83" "84" "85" "86" "87" "88")))
  (setq mew-summary-buffer-process (apply (function start-process) mew-prog-imls (current-buffer) mew-prog-imls (format "--width=%d" ...) (append mew-prog-im-arg ... ...)))
  (let ((call-process-hook nil) (coding-system-for-read mew-cs-virtual) (coding-system-for-write mew-cs-noconv)) (setq mew-summary-buffer-process (apply ... mew-prog-imls ... mew-prog-imls ... ...)))
  (mew-piolet mew-cs-virtual mew-cs-noconv (setq mew-summary-buffer-process (apply ... mew-prog-imls ... mew-prog-imls ... ...)))
  (let ((process-connection-type mew-connection-type1)) (message "Listing %s ..." vfld) (setq mew-summary-buffer-start-point (point)) (setq mew-summary-buffer-string nil) (mew-piolet mew-cs-virtual mew-cs-noconv (setq mew-summary-buffer-process ...)) (mew-set-process-cs mew-summary-buffer-process mew-cs-virtual mew-cs-noconv) (set-process-filter mew-summary-buffer-process (quote mew-virtual-thread-scan-filter)) (set-process-sentinel mew-summary-buffer-process (quote mew-summary-scan-sentinel)) (setq mew-summary-buffer-reviews nil) (process-kill-without-query mew-summary-buffer-process))
  (condition-case nil (let (...) (message "Listing %s ..." vfld) (setq mew-summary-buffer-start-point ...) (setq mew-summary-buffer-string nil) (mew-piolet mew-cs-virtual mew-cs-noconv ...) (mew-set-process-cs mew-summary-buffer-process mew-cs-virtual mew-cs-noconv) (set-process-filter mew-summary-buffer-process ...) (set-process-sentinel mew-summary-buffer-process ...) (setq mew-summary-buffer-reviews nil) (process-kill-without-query mew-summary-buffer-process)) (quit (set-process-sentinel mew-summary-buffer-process nil) (setq mew-summary-buffer-start-point nil) (setq mew-summary-buffer-process nil) (setq mew-summary-buffer-string nil) (setq mew-summary-buffer-reviews nil)))
  (if (not (mew-summary-exclusive-p)) nil (setq mew-virtual-thread-original-folder fld) (delete-other-windows) (if (eq major-mode ...) nil (mew-virtual-mode) (mew-folder-setup ...) (mew-buffers-setup ...)) (setq buffer-read-only nil) (buffer-disable-undo) (goto-char (point-max)) (condition-case nil (let ... ... ... ... ... ... ... ... ... ...) (quit ... ... ... ... ...)) (setq buffer-read-only t) (set-buffer-modified-p nil))
  (let* ((fld ...) (vfld ...) buf num) (setq buf (get-buffer-create vfld)) (switch-to-buffer buf) (if (not ...) nil (setq mew-virtual-thread-original-folder fld) (delete-other-windows) (if ... nil ... ... ...) (setq buffer-read-only nil) (buffer-disable-undo) (goto-char ...) (condition-case nil ... ...) (setq buffer-read-only t) (set-buffer-modified-p nil)))
  mew-virtual-thread-scan(("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16" "17" "18" "19" "20" "21" "22" "23" "24" "25" "26" "27" "28" "29" "30" "31" "32" "33" "34" "35" "36" "37" "38" "39" "40" "41" "42" "43" "44" "45" "46" "47" "48" "49" "50" ... . ("51" "52" "53" "54" "55" "56" "57" "58" "59" "60" "61" "62" "63" "64" "65" "66" "67" "68" "69" "70" "71" "72" "73" "74" "75" "76" "77" "78" "79" "80" "81" "82" "83" "84" "85" "86" "87" "88")))
  (if range (mew-virtual-thread-scan range) (message "Can't make Virtual thread mode."))
  (let (range beg end) (if (not arg) (progn ... ...) (if ... ... ...)) (if range (mew-virtual-thread-scan range) (message "Can't make Virtual thread mode.")))
  (if (and (interactive-p) (not ...)) (message "This command can be used in Summary mode only") (let (range beg end) (if ... ... ...) (if range ... ...)))
  (mew-summary-only (let (range beg end) (if ... ... ...) (if range ... ...)))
  mew-virtual-thread(nil)
* call-interactively(mew-virtual-thread)