[MD:1074]browse-url-at-mouse on 1.03.

[kyota@xxxxxxxxxxxxx (Kyotaro HORIGUCHI)]

堀口です. 1.03 になって browse-url が変わったようで mew でトラぶ
ります.

 mew(1.94b13 は browse-url-browser-function を 
browse-url-or-mew(url) に設定しています.

browse-url-at-mouse@xxxx(20.2)では

 (defun browse-url-at-mouse (event)
  ...
      (browse-url url))))

 で, args が '("http://.....") の場合には
(browse-url-or-mew "http:/.") となって正しく動作していました.


これが browse-ur-at-mousel@xxxx(20.3) では 

  (defun browse-url-at-mouse (event)
    ...
      (browse-url url browse-url-new-window-p))))

 となってしまったため, (browse-url-or-mew "http:/..." nil) となっ
てしまって,エラーになります.

 ちなみに Xemacs 20.4 の browse-url-at-mouse はこんなでした.

(defun browse-url-at-mouse (event)
 ...
    (funcall browse-url-browse-function url))))


 なぜ 20.3 だけこうなのかは知りませんが, とりあえず他のバージョン
の仕様が問題なのではない限り browse-url の方を修正するべきなよう
な気がするのですがどんなものなのでしょう?



*** browse-url.el.org	Thu Feb 04 15:34:38 1999
--- browse-url.el	Thu Mar 11 10:19:38 1999
***************
*** 651,657 ****
      (let ((url (browse-url-url-at-point)))
        (if (string-equal url "")
  	  (error "No URL found"))
!       (browse-url url browse-url-new-window-p))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Browser-specific commands
--- 651,657 ----
      (let ((url (browse-url-url-at-point)))
        (if (string-equal url "")
  	  (error "No URL found"))
!       (browse-url url))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Browser-specific commands
-- 
堀口恭太郎