[Mew-Win32 01591] virtual-thread
OCHI Akira
ochi at example.com
1999年 7月 8日 (木) 19:25:45 JST
越智です.
mew-virtual-threadが最近おきにいりで,世の中にはreferenceを使わない
メールソフトも多いのだなあなどと思いながら使っていたのですが.
最近mewのバージョンをあげたら,mew-virtual-threadが動かなくなってしま
いました.(mewを普通に使うには問題ない)
WindowsNT workstation + servicepack4
Meadow 1.00
Mew version 1.94b37
IM117
Active-perl 5.005_03 build 514
の環境です.
T[ret].[ret]
とすると,
Signaling: (file-error "Spawning child process" "exec format error")
といわれます.
imlsの先頭には
#! C:/usr/local/bin/Perl.exe
と書いてありました.
C:/usr/local/bin/perl.exeになっていたので,これが悪いんですかねえ?
一応perl.exe -> Perl.exeに直してからやってみたんですけど,駄目でした.
Mewまわりの設定は以下の通りです.
あとbacktraceを添付しておきます.
解決方法をご存知なら誰か教えてください.
;; -------------------------------------------------------------------
;; Mew
;; -------------------------------------------------------------------
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-mail-domain-list '("aim.nm.fujitsu.co.jp"))
(setq mew-replyto-to-list '("Reply-To:"))
(setq mew-use-petname t)
(setq mew-fcc "+posted")
(setq mew-use-folders-file-p t)
(setq mew-demo nil)
(setq mew-header-max-depth 50)
(setq mew-decode-quoted t)
(setq mew-save-dir "~/tmp/")
(load "mew-menu-ja")
(eval-after-load "mew" '(require 'mew-virtual-thread))
(eval-after-load "mew" '(require 'mew-cite-color))
(setq mew-use-highlight-cursor-line t)
(require 'mew-browse)
(setq mew-browse-noask nil)
(setq mew-browse-append-file "~/env/.mew-browse")
(setq mew-browse-append-always-file nil)
(setq mew-browse-append-always-mailto nil)
(setq mew-browse-append-file-sort nil)
--
越智 亮@沼津.富士通.営利団体.日本
ochi at example.com
-------------- next part --------------
Signaling: (file-error "Spawning child process" "exec format error")
start-process("imls" #<buffer ++inbox-thread> "imls" "--width=80" "--mimedecodequoted=yes" "--help=no" "--debug=no" "--thread=yes" "--src=+inbox" "1-18" "20" "22-23" "25" "28" "30" "32" "37-38" "42-43" "45" "48-58" "60-73")
apply(start-process "imls" #<buffer ++inbox-thread> "imls" "--width=80" "--mimedecodequoted=yes" ("--help=no" "--debug=no" "--thread=yes" "--src=+inbox" "1-18" "20" "22-23" "25" "28" "30" "32" "37-38" "42-43" "45" "48-58" "60-73"))
(setq mew-summary-buffer-process (apply (function start-process) mew-prog-imls (current-buffer) mew-prog-imls (format "--width=%d" ...) (format "--mimedecodequoted=%s" ...) (append mew-prog-im-arg ... ...)))
(let ((call-process-hook nil) (file-name-coding-system mew-cs-dummy) (coding-system-for-read mew-cs-virtual) (coding-system-for-write mew-cs-dummy)) (setq mew-summary-buffer-process (apply ... mew-prog-imls ... mew-prog-imls ... ... ...)))
(mew-piolet mew-cs-virtual mew-cs-dummy (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-dummy (setq mew-summary-buffer-process ...)) (mew-set-process-cs mew-summary-buffer-process mew-cs-virtual mew-cs-dummy) (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-dummy ...) (mew-set-process-cs mew-summary-buffer-process mew-cs-virtual mew-cs-dummy) (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-18" "20" "22-23" "25" "28" "30" "32" "37-38" "42-43" "45" "48-58" "60-73"))
(if range (mew-virtual-thread-scan (mew-virtual-thread-range-conv range)) (message "Can't make Virtual thread mode."))
(let (range beg end) (if (not arg) (progn ... ...) (if ... ... ...)) (if range (mew-virtual-thread-scan ...) (message "Can't make Virtual thread mode.")))
(if (not (mew-summary-exclusive-p)) nil (let (range beg end) (if ... ... ...) (if range ... ...)))
(if (and (interactive-p) (not ...)) (message "This command can be used in Summary mode only") (if (not ...) nil (let ... ... ...)))
(mew-summary-only (if (not ...) nil (let ... ... ...)))
mew-virtual-thread(nil)
* call-interactively(mew-virtual-thread)
Mew-win32 メーリングリストの案内