[Mew-Win32 01247] Re: [MD:1075]browse-url-at-mouse on 1.03.

[Shuichi Kitaguchi]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [MD:1075]browse-url-at-mouse on 1.03.
Date: Thu, 11 Mar 1999 11:21:40 +0900

# Mew-Win32 ML に引っ越しました。

IE が壊れて動かなくなっているので、browse-url を使っていない北口です(^^;

堀口> 堀口です. 1.03 になって browse-url が変わったようで mew でトラぶ
堀口> ります.
...
白井> ちなみに、私の個人的な設定では、いろんな Emacs で使っているので

白井> (defun browse-url-or-mew-shirai (url &optional dummy)
白井>    …… 

白井> となっています。めんどくさいので dummy は function のなかでは扱っ
白井> ていません。netscape がデフォルトだし。

白井> ## というわけで、mew-win32.el を変えましょう。> 北口さん

こんな感じでよいでしょうか?

--- mew-win32.el.original	Fri Feb 12 16:39:33 1999
+++ mew-win32.el	Thu Mar 11 17:47:26 1999
@@ -118,7 +118,13 @@
 (defvar browse-mew-append-always-file nil)    ;; for dialup user
 (defvar browse-mew-append-always-mailto nil)  ;; for emacs19.28
 
-(defun browse-url-or-mew (url)
+(if (and (>= 20 emacs-major-version) (>= 3 emacs-minor-version))
+    (defun browse-url-or-mew (url &optional args)
+      (browse-url-or-mew-go url))
+  (defun browse-url-or-mew (url)
+    (browse-url-or-mew-go url)))
+
+(defun browse-url-or-mew-go (url)
   "browse URL or mew-send."
   (interactive)
   (let* ((append-buffer (and browse-mew-append-file

Win32 環境ではどうせ fiber に渡されるので ARGS はいらないだろう、
ということで無視しています。本当は mew-browse.el とか作って
UNIX でも使えるようにした方がよいのだろうな、とは思いつつ...


--
Shuichi Kitaguchi <kit at example.com>

私事ですが、私は来週から引っ越し等でばたばたしますので、Mew の
サポート等は滞ると思います。ご迷惑をおかけしますがご了承下さい。

で、4 月からは関東の人になる予定です(^^;