[Mew-dist 12646] Re: url

[Hideyuki SHIRAI ( 白井秀行 )]

From: Tomohiro Yamauchi (山内 朋浩) <handy at example.com> さん曰く
Subject: [Mew-dist 12641] url
Message-ID: <20000309151953X.handy at example.com>
Date: Thu, 9 Mar 2000 15:19:54 +0900

山内> どこまでがmewの範囲なのか、わかりませんが、

# 全く Mew の範囲では無いと思いますけども。:-)

山内> <Esc>(J を使用している場合でも、うまくNetscapeにURLを渡すことは
山内> できるのでしょうか？

私も XEmacs や (わざわざ) FSF Emacs で latin-jisx0201 と ascii
を区別する表示にしているので、山内さんと同じ様になります。URL を
クリックしたいときだけ、latin-jisx0201 の文字を ascii に変えてい
ます。

というわけで、いつも私が使っているものから、余分なものと FSF
Emacs の部分を除いたものをお付けしますので、よろしかったら適当な
キーにバインドしてお使い下さい。
XEmacs で最初から latin-jisx0201 と ascii を同一視する方法がある
といいのですが、私は知りません。(知っていてもやらない :-)

# mime-iso646-character-unification-alist は APEL で定義されてい
# ます。コア部分は守岡さんの書かれたものです。

(defun mew-message-jisx0201-to-ascii ()
  (interactive)
  (mew-summary-msg-or-part
   (save-excursion
     (let ((mbuf (get-buffer (mew-buffer-message))))
       (if (not mbuf)
	   ()
	   (set-buffer mbuf)
	   (save-restriction
	     (widen)
	     (if (memq 'latin-jisx0201 (mew-find-cs-region (point-min) (point-max)))
		 (let ((rest mime-iso646-character-unification-alist)
		       (buffer-read-only nil)
		       (i 0))
		   (message "latin-jisx0201 Conv ...")
		   (while rest
		     (let ((pair (car rest)))
		       (goto-char (point-min))
		       (while (search-forward (car pair) nil t)
			 (setq i (1+ i))
			 (replace-match (cdr pair) 'fixed-case 'literal))
		       (setq rest (cdr rest))))
		   (mew-highlight-url)
		   (mew-highlight-body)
		   (message "latin-jisx0201 Conv ... done (%d)." i)))))))))

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