[xyzzy:05413] keyword regexp

[Toy <s5087@xxxxxxxxxxxxxxxxxxxxx>]

Toy です。

キーワードになりうる文字列かどうかを判定する関数(メールの最後)を作って
みたところ，] という文字もキーワードになりそうなので正規表現で認識でき
るようにいろいろ試したのですが，どうしてもうまくいきません。

そこでどなたか
  [-!%$*+./0-9:<=>?@A-Z[^_a-z{|}~]+
に ] も含む方法を教えていただけないでしょうか…。

等価の正規表現でもっと簡単なものがありましたら，そちらでも結構ですので
どなたかよろしくお願いします。

(let ((str (read-string "String: "))
      begin end length)
  (string-match "[-!%$*+./0-9:<=>?@A-Z[^_a-z{|}~]+" str)
  (setq begin (match-beginning 0)
	end (match-end 0)
	length (length str))
  (message "[~a: ~d] ~d ~d ~a"
	   str length begin end
	   (if (and (= begin 0)
		    (= end length))
	       ":keyword" "")))

---- 
ToY
  E-mail : s5087@xxxxxxxxxxxxxxxxxxxxx