w3m-minor-mode (was: [Oort Gnus] HTML anchor)

[TSUCHIYA Masatoshi <tsuchiya@xxxxxxxxxxxxxxxxxxxxxxx>]

Semi-gnus-ja ML から引っ越してきました．

>> On Mon, 21 Oct 2002 17:23:12 +0900
>> 「土」== tsuchiya@pine.kuee.kyoto-u.ac.jp (TSUCHIYA Masatoshi) said as follows:

土> Oort Gnus で例えば，nnshimbun+slashdot-jp などの HTML なページに含
土> まれている anchor 上で RET を叩いても(= M-x w3m-view-this-url RET 
土> しても)，emacs-w3m のバッファが現れません．なお，w3m-pop-up-frames
土> => nil の状態で使ってます．

土> 動作を調べてみましたが，mime-w3m.el の場合は 
土> mime-w3m-view-this-url() に rebinding してあるので window が 
土> pop-up していたのだろうと思います．とすると，同様に mm-view.el で
土> も rebinding する必要がありそうですが，そうなっていないのは何か故
土> あってのことでしょうか?

>> On Mon, 21 Oct 2002 17:44:04 +0900
>> 「山」== yamaoka@jpl.org (Katsumi Yamaoka) said as follows:

山> そう言えば何ででしょう。mm-view.el にこんな関数↓を入れるのは
山>     (defun mime-w3m-view-this-url () ...)
山> 何だかよその家に土足で上がるような気がして遠慮したのかしら?

>> On Mon, 21 Oct 2002 18:02:56 +0900
>> 「土」== tsuchiya@pine.kuee.kyoto-u.ac.jp (TSUCHIYA Masatoshi) said as follows:

土> 言われてみると，確かにその通り．どっちかと言えば，emacs-w3m 側で定
土> 義を持つべきのような気がしますねえ．w3m-gnus-view-this-url() でも
土> 作りますか．

よくよく考えてみると，この事情は実は mew でも同じはずですから，SEMI
MUA / Oort Gnus / Mew の3者を統合した解決が考えられるのではないかとい
う気がしてきました．

現在，mew-w3m.el の実装では w3m-mode-map をそのまま minor-mode-map と
して利用していますが，

(1) mime-w3m-view-this-url() は w3m-view-this-url() に対して，<form> 
    によって作成された anchor or button を考慮しない，という違いがあり
    ます．これは，悪意のある送信者から text/html なパートを含むメール
    を受け取った場合には重要な違いになりますから，Mew でも使うべきだと
    思います．

(2) 記事バッファ内での移動コマンドなどは極力 MUA 由来のキーを活かして
    おくべきですから，実は mime-w3m-mode-map も mm-w3m-mode-map も 
    mew-w3m-minor-mode-map(?) も殆んど同じ内容になるはずです．

というわけで，ちと影響範囲が広いのですが，MUA 間で minor-mode-map を共
通化する変更を行ってみました(幹のみ)．

更に，mm-view.el には以下のような変更を計画しています．

--- CVS/Base/mm-view.el	2002-10-21 10:11:21.000000000 +0900
+++ mm-view.el	2002-10-22 12:46:58.000000000 +0900
@@ -181,62 +181,6 @@
 	      (delete-region ,(point-min-marker)
 			     ,(point-max-marker)))))))))
 
-(defvar mm-w3m-mode-map nil
-  "Local keymap for inlined text/html part rendered by emacs-w3m.  It will
-be different from `w3m-mode-map' to use in the article buffer.")
-
-(defvar mm-w3m-mode-command-alist
-  '((backward-char)
-    (describe-mode)
-    (forward-char)
-    (goto-line)
-    (next-line)
-    (previous-line)
-    (w3m-antenna)
-    (w3m-antenna-add-current-url)
-    (w3m-bookmark-add-current-url)
-    (w3m-bookmark-add-this-url)
-    (w3m-bookmark-view)
-    (w3m-close-window)
-    (w3m-copy-buffer)
-    (w3m-delete-buffer)
-    (w3m-dtree)
-    (w3m-edit-current-url)
-    (w3m-edit-this-url)
-    (w3m-gohome)
-    (w3m-goto-url)
-    (w3m-goto-url-new-session)
-    (w3m-history)
-    (w3m-history-restore-position)
-    (w3m-history-store-position)
-    (w3m-namazu)
-    (w3m-next-buffer)
-    (w3m-previous-buffer)
-    (w3m-quit)
-    (w3m-redisplay-with-charset)
-    (w3m-reload-this-page)
-    (w3m-scroll-down-or-previous-url)
-    (w3m-scroll-up-or-next-url)
-    (w3m-search)
-    (w3m-select-buffer)
-    (w3m-switch-buffer)
-    (w3m-view-header)
-    (w3m-view-parent-page)
-    (w3m-view-previous-page)
-    (w3m-view-source)
-    (w3m-weather))
-  "Alist of commands to use for emacs-w3m in the article buffer.  Each
-element looks like (FROM-COMMAND . TO-COMMAND); FROM-COMMAND should be
-registered in `w3m-mode-map' which will be substituted by TO-COMMAND
-in `mm-w3m-mode-map'.  If TO-COMMAND is nil, an article command key
-will not be substituted.")
-
-(defvar mm-w3m-mode-dont-bind-keys (list [up] [right] [left] [down])
-  "List of keys which should not be bound for the emacs-w3m commands.")
-
-(defvar mm-w3m-mode-ignored-keys (list [down-mouse-2])
-  "List of keys which should ignore.")
-
 (defvar mm-w3m-setup nil
   "Whether gnus-article-mode has been setup to use emacs-w3m.")
 
@@ -244,20 +188,6 @@
   "Setup gnus-article-mode to use emacs-w3m."
   (unless mm-w3m-setup
     (require 'w3m)
-    (unless mm-w3m-mode-map
-      (setq mm-w3m-mode-map (copy-keymap w3m-mode-map))
-      (dolist (def mm-w3m-mode-command-alist)
-	(condition-case nil
-	    (substitute-key-definition (car def) (cdr def) mm-w3m-mode-map)
-	  (error)))
-      (dolist (key mm-w3m-mode-dont-bind-keys)
-	(condition-case nil
-	    (define-key mm-w3m-mode-map key nil)
-	  (error)))
-      (dolist (key mm-w3m-mode-ignored-keys)
-	(condition-case nil
-	    (define-key mm-w3m-mode-map key 'ignore)
-	  (error))))
     (unless (assq 'gnus-article-mode w3m-cid-retrieve-function-alist)
       (push (cons 'gnus-article-mode 'mm-w3m-cid-retrieve)
 	    w3m-cid-retrieve-function-alist))
@@ -300,7 +230,7 @@
 	  (add-text-properties
 	   (point-min) (point-max)
 	   (append '(mm-inline-text-html-with-w3m t)
-		   (gnus-local-map-property mm-w3m-mode-map)))))
+		   (gnus-local-map-property w3m-minor-mode-map)))))
       (mm-handle-set-undisplayer
        handle
        `(lambda ()
動作確認にご協力をお願いします．

-- 
土屋 雅稔 ( TSUCHIYA Masatoshi )