[mew-dist 18033] Re: Function mew-mime-text/html-w3m is not executable here.

[Tak Ota]

On Thu, 12 Jul 2001 10:15:46 +0900 (JST), Hideyuki SHIRAI (白井秀行) <shirai at example.com> wrote:

白井> From: Tak Ota <Takaaki.Ota at example.com> さん曰く
白井> Subject: [mew-dist 18026] Function mew-mime-text/html-w3m is not executable here.
白井> Message-ID: <20010711.110344.78177414.Takaaki.Ota at example.com>
白井> Date: Wed, 11 Jul 2001 11:03:44 -0700 (PDT)
白井> 
白井> ota> 添付内容が html であるにもかかわらずそ内容を Application/Octet-Stream 
白井> ota> と指定して添付してあるメッセージを受け取りました。その添付内容を Mew 
白井> ota> から直接 w3m で見ようと C-u C-c C-e で text/html と指定したところ
白井> 
白井> ota> Function mew-mime-text/html-w3m is not executable here.
白井> 
白井> ota> というメッセージが出て w3m を起動してくれません。
白井> 
白井> これをやりたいのだったら、
白井> 
白井> dot.mew.emacs の例の
白井> (setq mew-prog-html '(mew-mime-text/html-w3m nil nil))
白井> 
白井> ではなく、
白井> 
白井> (setq mew-prog-html '(mew-mime-text/html mew-mime-text/html-ext))
白井> ;; ↑これは default 値
白井> (setq mew-prog-text/html 'mew-mime-text/html-w3m)
白井> (setq mew-prog-text/html-ext 'mew-mime-text/html-w3m)
白井> 
白井> とすれば OK です。dot.mew.emacs や mew-w3m.el の設定例もこっちの
白井> 方が良いかも。
白井> 
白井> だけど、試してみたら、mew-mime.el の mew-mime-text/html-ext() に
白井> 以下のパッチが必要でした。

パッチを施し、上の三行を実行してから同じことを試みたところ以下のエラー
に遭遇しました。見よう見まねで意味がわからずやっているので何が悪いのか
皆目わからないです。手間を掛けさせてすみません。


Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  aref(nil 3)
  (w3m-form-plist formobj)
  (plist-put (w3m-form-plist formobj) (intern name) (cons value (w3m-form-get ... name)))
  (aset formobj 3 (plist-put (w3m-form-plist formobj) (intern name) (cons value ...)))
  (let ((formobj ...)) (aset formobj 3 (plist-put ... ... ...)))
  (w3m-form-put (car forms) name (cons value (w3m-form-get ... name)))
  (progn (w3m-form-put (car forms) name (cons value ...)))
  (if name (progn (w3m-form-put ... name ...)))
  (when name (w3m-form-put (car forms) name (cons value ...)))
  (let (name value type) (while (cond ... ... ... ... ...) (goto-char ...) (skip-chars-forward " 	
\f\n")) (skip-chars-forward "^>") (forward-char) (when name (w3m-form-put ... name ...)))
  (w3m-parse-attributes (name value (type :case-ignore)) (when name (w3m-form-put ... name ...)))
  (cond ((match-string 2) (w3m-parse-attributes ... ...)) ((match-string 3) (w3m-parse-attributes ... ...)) (t))
  (while (re-search-forward "<\\(\\(form\\)\\|\\(input\\)\\|select\\)[ 	
\f\n]+" nil t) (cond (... ...) (... ...) (t)))
  (let ((case-fold-search t) forms) (goto-char (point-min)) (while (re-search-forward "<\\(\\(form\\)\\|\\(input\\)\\|select\\)[ 	
\f\n]+" nil t) (cond ... ... ...)) (set (make-local-variable ...) (nreverse forms)))
  (save-restriction (narrow-to-region start end) (let (... forms) (goto-char ...) (while ... ...) (set ... ...)))
  w3m-form-parse-region(1 5842)
  (progn (w3m-form-parse-region (point-min) (point-max)))
  (if w3m-use-form (progn (w3m-form-parse-region ... ...)))
  (when w3m-use-form (w3m-form-parse-region (point-min) (point-max)))
  (save-restriction (narrow-to-region start end) (set-buffer-multibyte t) (when w3m-use-form (w3m-form-parse-region ... ...)) (w3m-message "Rendering...") (let (... ... ... ...) (dolist ... ...) (apply ... ... ... ... t t nil ...)) (w3m-message "Rendering... done") (goto-char (point-min)) (and (looking-at "<!DOCTYPE w3mhalfdump public") (search-forward "\n<pre>\n" nil t) (delete-region ... ...)) (goto-char (point-min)) (let (title) (dolist ... ... ...) (if ... ...) (or title "<no-title>")))
  w3m-rendering-region(1 5842)
  (setq w3m-current-title (w3m-rendering-region (point-min) (point-max)))
  (save-restriction (narrow-to-region start end) (when (eq w3m-type ...) (encode-coding-region ... ... w3m-coding-system)) (setq w3m-current-title (w3m-rendering-region ... ...)) (w3m-fontify) (setq w3m-display-inline-image-status (quote off)) (when (w3m-display-inline-image-p) (and w3m-force-redisplay ...) (w3m-toggle-inline-images ...)))
  w3m-region(1 5842)
  (if cache (w3m-region (point) (progn ... ...)) (w3m-region begin end))
  (let ((coding-system-for-read mew-cs-dummy) (coding-system-for-write wcs) (jka-compr-inhibit t)) (if cache (w3m-region ... ...) (w3m-region begin end)) (put-text-property (point-min) (1+ ...) (quote w3m) t))
  (mew-frwlet mew-cs-dummy wcs (if cache (w3m-region ... ...) (w3m-region begin end)) (put-text-property (point-min) (1+ ...) (quote w3m) t))
  (let ((buffer-read-only nil) (inhibit-read-only t) (zmacs-regions nil)) (setq charset (mew-syntax-get-param params "charset")) (if charset (setq wcs ...) (setq wcs mew-cs-text-for-write)) (mew-frwlet mew-cs-dummy wcs (if cache ... ...) (put-text-property ... ... ... t)))
  (mew-elet (setq charset (mew-syntax-get-param params "charset")) (if charset (setq wcs ...) (setq wcs mew-cs-text-for-write)) (mew-frwlet mew-cs-dummy wcs (if cache ... ...) (put-text-property ... ... ... t)))
  (if (and cache (or execute ...)) (apply (quote mew-mime-text/html) (list cache begin end params execute)) (mew-elet (setq charset ...) (if charset ... ...) (mew-frwlet mew-cs-dummy wcs ... ...)))
  (let ((w3m-display-inline-image mew-w3m-auto-insert-image) w3m-force-redisplay charset wcs cache begin end params execute) (if (= ... 2) (setq begin ... end ...) (setq cache ...) (setq begin ...) (setq end ...) (setq params ...) (setq execute ...)) (if (and cache ...) (apply ... ...) (mew-elet ... ... ...)))
  mew-mime-text/html-w3m(1 5842)
  funcall(mew-mime-text/html-w3m 1 5842)
  (let (source) (set-buffer cache) (setq source (mew-buffer-substring begin end)) (set-buffer (mew-buffer-message)) (mew-elet (mew-erase-buffer) (insert source)) (funcall mew-prog-text/html-ext (point-min) (point-max)))
  (cond ((and ... ...) (let ... ... ... ... ... ...)) ((stringp mew-prog-text/html-ext) (when ... ...)))
  mew-mime-text/html-ext(#<buffer  *mew cache*6> 67827 73668 (("name" "WSJ4_com.htm")))
  funcall(mew-mime-text/html-ext #<buffer  *mew cache*6> 67827 73668 (("name" "WSJ4_com.htm")))
  (if (mew-ct-imagep ct) (funcall (nth 1 program) cache begin end params fname) (funcall (nth 1 program) cache begin end params))
  (if (fboundp (nth 1 program)) (if (mew-ct-imagep ct) (funcall ... cache begin end params fname) (funcall ... cache begin end params)) (message (substitute-command-keys "Use '\\<mew-summary-mode-map>\\[mew-summary-execute-command]' or \\[universal-argument] \\<mew-summary-mode-map>\\[mew-summary-execute-external]'")))
  (cond ((and ... ... ...) (if ... ... ...)) (t (cond ... ...) (if ... ... ...)))
  (if (not doit) (message "No body") (setq begin (mew-syntax-get-begin stx)) (setq end (mew-syntax-get-end stx)) (setq params (mew-syntax-get-params ctl)) (setq cdpl (mew-syntax-get-cdp stx)) (setq fname (mew-syntax-get-filename cdpl ctl)) (when ask-type (cond ... ...) (setq ct ...)) (setq program (or com ...)) (cond (... ...) (t ... ...)))
  (let* ((fld ...) (msg ...) (part ...) (cache ...) (syntax ...) (stx ...) (ctl ...) (ct ...) begin end params program fname cdpl options async doit pt fl) (if (not ...) (setq doit t) (setq stx ...) (if ... ... ... ... ...)) (if (not doit) (message "No body") (setq begin ...) (setq end ...) (setq params ...) (setq cdpl ...) (setq fname ...) (when ask-type ... ...) (setq program ...) (cond ... ...)))
  mew-summary-execute-base((4) nil nil)
  (cond ((eobp) (message "No message")) ((not ...) (message "No message")) (t (mew-summary-execute-base arg nil nil)))
  (mew-summary-msg-or-part (mew-summary-execute-base arg nil nil))
  mew-summary-execute-external((4))
  call-interactively(mew-summary-execute-external)