[mew-dist 22220] Re: URL tag search

[Hideyuki SHIRAI ( 白井秀行 )]

From:  Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [mew-dist 22219] Re: URL tag search
Message-ID: <20021108.132741.09101724.shirai at example.com>
Date: Fri, 08 Nov 2002 13:27:41 +0900 (JST)

杉田> 以下のようなelisp functionを.mewに書いて、tabキーを押すとtext/plainのときも
杉田> w3mと似たような動作になるようにしようと思ったのですが、本末転倒で、
杉田> w3mでtext/htmlのパートをデコードしたときに通常の<a>タグのところに
杉田> 飛んでくれなくなりました。(^^;

白井> (setq mew-use-w3m-minor-mode t)
白井> (add-hook 'mew-message-hook 'mew-w3m-minor-mode-setter)

白井> をしてあるなら、message buffer の minor-mode-map で、C-i, M-C-i
白井> が w3m-next-anchor, w3m-previous-anchor に割り当てられているので、
白井> そういうことは無いと思うのですが。。。

あぁそっか、summary 上で C-i したときの話ですね。きっと。
というわけで、でっちあげてみました。

(defun mew-summary-next-url ()
  (interactive)
  (when (and (get-buffer (mew-buffer-message))
	     (get-buffer-window (mew-buffer-message)))
    (pop-to-buffer (mew-buffer-message))
    (let ((pos (point)))
      (mew-message-next-url)
      (when (eq pos (point))
	(message "No URL")
	(mew-message-goto-summary)))))

(defun mew-message-next-url ()
  (interactive)
  (let ((pos (point)))
    (if (get-text-property (point-min) 'w3m) ;; mew-w3m が有効？
	(or (w3m-next-anchor) (goto-char pos))
      (if (eq (get-text-property (point) 'face) 'mew-face-body-url)
	  (goto-char (next-property-change (point)))
     <<ship>>

-- 
白井秀行 (mailto:shirai at example.com)