杉田＠デジタルパッドです。
以下のようなelisp functionを.mewに書いて、tabキーを押すとtext/plainのときも
w3mと似たような動作になるようにしようと思ったのですが、本末転倒で、
w3mでtext/htmlのパートをデコードしたときに通常の<a>タグのところに
飛んでくれなくなりました。(^^;
キーのバインドの仕方がまずいのだと思いますが、どのようにすればよいのでしょうか？
どなたかご教授下さい。
elispはよくわかってないので、適当にそこらじゅうからコードを拾い集めて
書いたので、変な部分があれば、それも直して頂けるとありがたいです。(^^;
;;------
;;; POINT以降のURLを探してジャンプする
(defun mew-message-next-url ()
(interactive)
(forward-char) ;; 同じURLに何度もマッチしないように
(let ((r nil))
(if (re-search-forward mew-regex-url nil t)
(goto-char (match-beginning 0))
(backward-char) ;; 進めたのを戻す
(message "No more URL in message.")
)
))
(define-key mew-message-mode-map "\C-i" 'mew-message-next-url)
; summary-modeのとき -- かってにmessageバッファに移動
;（ただし、別のメッセージにポインタがあっても別メッセージは開かない）
(defun mew-summary-next-url ()
(interactive)
(if (not (mew-summary-goto-msg-mode))
(if (mew-message-next-url)
()
(mew-message-goto-summary) ;; サーチに失敗したらサマリに戻る
)))
(define-key mew-summary-mode-map "\C-i" 'mew-summary-next-url)
;;------
＃mew-summary-next-url もポインタが指しているメッセージを開いてから
＃ジャンプしないのは、出来なかったからやってないだけで、わざとやってる
＃わけじゃないです。(^^;
／／／／／／／／／／／／／／／／／／／／／／／／／／／／／／／
SUGITA Toshinori 杉田 敏典 Digital Pad Inc. .・.
E-MAIL : sugita at example.com ●・
WebPage : http://www.d-pad.co.jp/
メール・スクランブル http://www.d-pad.co.jp/mail/scramble/
アンケートしよう！ http://www.d-pad.co.jp/enquete/make/
有名人にメールしよう http://www.d-pad.co.jp/mail/fame/
アクセス解析サービス http://www.d-pad.co.jp/inspect/