[mew-dist 27615] URL関連の強化 (goto-next-url と url-at-point)

[KOIE Hidetaka ( 鯉江英隆 )]

tabで次のURLを移動できるようにしてみました。
C-u tabで前のURLに移動します。
(defun mew-message-goto-next-url (&optional arg)
  (interactive "P")
  (let ((next (if arg
                   'previous-single-property-change
                 'next-single-property-change))
        pos)
    (setq pos (funcall next (point) 'mew-url))
    (if pos
        (if (not (get-text-property pos 'mew-url))
            (setq pos (funcall next pos 'mew-url))))
    (when pos
      (goto-char pos))))
(define-key mew-message-mode-map "\C-i" 'mew-message-goto-next-url)

mew-browse-url-at-mouse()をまねて -at-point版をつくりました。
(defun mew-browse-url-at-point ()
  (interactive)
  (let (url)
    (setq url (get-text-property (point) 'mew-url))
    (if (and url (string-match mew-regex-nonascii url))
	(setq url (mew-puny-encode url)))
    (if url (browse-url url))))
(define-key mew-message-mode-map "g" 'mew-browse-url-at-point)

--
KOIE Hidetaka <hide at example.com>