[Mew-Win32 02107] Re: gnuserv

[Hideyuki SHIRAI ( 白井秀行 )]

白井＠マルチフォロー

From: Takayoshi "TK" KAWATE <taka at example.com> さん曰く
Subject: [Mew-Win32 02102] Re: [Mew-dist 11120] gnuserv
Message-ID: <19991101222057C.taka at example.com>
Date: Mon, 01 Nov 1999 22:20:57 +0900 (JST)

白井> 違いは RFC2368 の解析です。といっても前の文書と一緒だから、例を
白井> あげると、mew-url-mailto にすると(NetScape や W3 なら)

(か)> 単純な

(か)>   <a href="mailto:daredare at example.com">daredare at example.com</a>

(か)> だけじゃなくて，ご紹介頂いた複雑なものも大丈夫，ということで
(か)> いいでしょうか？＜理解力不足(^^;)

そうです。実際に hoge.html でも書いて試してみて下さいね。IE 4.0
でも大丈夫なのを確かめました。

From: Takayoshi "TK" KAWATE <taka at example.com> さん曰く
Subject: [Mew-Win32 02104] Re: [Mew-dist 11120] gnuserv
Message-ID: <19991101225247K.taka at example.com>
Date: Mon, 01 Nov 1999 22:52:47 +0900 (JST)

ぱん> こっちはもしかして、contrib フォルダの中に入っている
ぱん> mew-mailto.el がインストールされていないからではないでしょうか?

(か)> mew-mailto.elの中身を見て，.emacsに
(か)>   (add-hook 'mew-init-hook (lambda () (require 'mew-mailto)))
(か)> を追加してみましたが，やっぱり同じでした。

mew-mailto.el と mew-browse.el は共存しません。senさんと私とで意
地になってつくってしまいました。^^;;;

# それぞれ長所短所があると思うので、お好みの方をどうぞ :-)

From: Motohiko Minakuchi <zxcv at example.com> さん曰く
Subject: [Mew-Win32 02105] Re: gnuserv
Message-ID: <19991101233249L.zxcv at example.com>
Date: Mon, 01 Nov 1999 23:32:49 +0900 (JST)

水口> 前回は深い問題だと思わずに、「うまくいっています」で済ませてしまったの
水口> ですが、旅行から帰ってきて問題の複雑さに驚いています。

# 旅行いいですねぇ。出張では、先月いろんなところに行ってますけ
# ど。。。出張では、ちょっと(全然だぁ)違うしね。

ちなみに問題が複雑なのではなくて、私の環境が何かしら腐っているの
がいけないんです。(福中さんもだけど)

水口> 「URL:MailTo プロトコル 」 の内容は、「Open」というアクションに
水口> 「E:\Emacs\bin\gnudoitw.exe "(gnuserv-mailto \"%1\")"」と指定して、IE5 
水口> で Mailto リンクをクリックすると正常な Draftバッファが作成されます。

結局、ダメな人はダメで、大丈夫な人は何をやっても大丈夫ということ
ですね。あとで、もう少し(？) user の多い meadow-users-jp で聞い
てみます。

P.S.

水口> 私は、.emacs に
水口> (setq mew-auto-get nil)
水口> と書いてMew起動時の新規メッセージ自動取得を抑止しています。ダイアルアッ
水口> プ環境では、便利なオプションだと思いますよ。

私も nil なのでたいして気にしていなかったのですが、やはりよろし
くないので、附属のパッチをどうぞ。

## めんどくさかったから以前の動作にしてしまったんです。
## ごめんなさい。
-------------- next part --------------
--- mew-browse.el.orig	Wed Oct 20 20:20:54 1999
+++ mew-browse.el	Mon Nov  1 18:19:15 1999
@@ -75,7 +75,9 @@
   (interactive
    (list (read-from-minibuffer "Mew URL: ")))
   (if (or (not (boundp 'mew-mail-path)) (null mew-mail-path))
-      (save-excursion (mew)))
+      (save-excursion
+	(require 'mew)
+	(mew-init)))
   (let* ((append-buffer (and mew-browse-append-file
 			     (string= buffer-file-name
 				      (expand-file-name mew-browse-append-file))))
@@ -157,7 +159,9 @@
   (interactive
    (list (read-from-minibuffer "Mew mailto: ")))
   (if (or (not (boundp 'mew-mail-path)) (null mew-mail-path))
-      (save-excursion (mew)))
+      (save-excursion
+	(require 'mew)
+	(mew-init)))
   (mew-browse-url-mailto url))
 
 (defun mew-browse-url-mailto (url)