[Mew-Win32 00177] Re: fiber & browse-url

[Hideyuki SHIRAI]

白井です。

From: 白井 曰く
Subject: [Mew-Win32 00175] Re: fiber & browse-url
Message-ID: <19980204132601H.shirai at example.com>
Date: Wed, 4 Feb 1998 13:26:10 +0900

白井> gen> > (setq browse-url-regexp "\\(\\([^\-A-Z ……)のバグ等ありましたら
白井> gen> > どんどん教えて下さい。
白井> gen> > 
白井> gen> hoge at example.com の前に全角のSPCがあると、それも拾ってくるみたいで
白井> gen> す。
白井> 
白井> 考えてみます。

考えました。ほとんど Cut&Try ^^;
北口さん、patch形式じゃなくてごめんなさい。入れ換えて下さい。

(setq browse-url-regexp "\\(\\([^-A-Za-z0-9!_.]\\|^\\)[-A-Za-z0-9._!]+@[A-Za-z0-9][-A-Za-z0-9._!]+[A-Za-z0-9]\\)\\|\\(\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]+\\)")

(defun browse-url-or-mew (url)
  (interactive)
  "browse-url or mew-send."
  (message "Starting browse-url... or mew-send...")
  (cond
   ((string-match "^mailto:" url)
    (mew-send (substring url 7 nil)))
   ((string-match "^\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\):" url)
    (apply (function start-process)
	   (format "*mew %s*" mew-ext-prog-url)
	   mew-buffer-tmp mew-ext-prog-url
	   (append mew-ext-prog-url-args (list url))))
   (t (progn
	(string-match "\\([A-Za-z0-9]\\)" url)
	(mew-send (substring url (match-beginning 1) nil))))))

効能:
・mail:Shirai at example.com にも対応した。
 (たまにsignatureに書いている人がいるから)
・よくよく正規表現のマニュアルをみたら、不必要な"\"がたくさんあっ
 たので消したら、少しは見やすくなった。 

新たな弱点:
・ftp://anonymous@foo/pub/hogehoge
 をメールアドレスと勘違いするようになった。^^;;;

です。

ちょっと質問
その1. メールアドレスの第1文字目って絶対[A-Za-z0-9]ですよね？
その2. メールアドレス内で、『!』『-』『_』『.』以外の記号って使っ
 てますか？ 見たことありますか？

--
白井@mew-distで僕のメールが帰って来る前に酒井さんのお返事が来た(?_?)