--- Standard Input	Thu Oct 21 13:24:54 1999
+++ /home/users/itogawa/lib/el/italk.el	Mon Oct 18 19:02:27 1999
@@ -1,16 +1,22 @@
 ;;
-;; italk.el version 0.41+tak1.9
+;; italk.el version 0.41+tak1.9+itogawa1.01
 ;;   by HARADA Masanori <hrd4@dolphin.c.u-tokyo.ac.jp>
 ;;   modified by Tak. <taka@is.s.u-tokyo.ac.jp>
+;;   modified by Itogawa Akira <itogawa@graco.c.u-tokyo.ac.jp>
 ;;
 ;;(autoload 'italk "italk" "Inter talk" t nil)
 ;;(autoload 'italk-other-frame "italk" "Inter talk" t nil)
 
 ;[最新の italk.el の入手法]
-;   http://dolphin.c.u-tokyo.ac.jp/~hrd4/
-;   http://www-masuda.is.s.u-tokyo.ac.jp/~taka/unofficial/
-;のどちらかにはあるのではないかと予想されます:-)
+;   http://www.st.rim.or.jp/~tak/file/
+;にあるようです。:-)
 
+; history of 0.41+tak1.9 -> 0.41+tak1.9+itogawa1.01
+;  italk-url-faceが「https://」にも反応するようにした。
+;  todo: urlのスキームに関わる正規表現(3箇所にちらばっている)を
+;        1箇所にまとめる。
+; history of 0.41+tak1.2 -> 0.41+tak1.9
+;  ???
 ; history of 0.41 -> 0.41+tak1.2
 ;  色づけ規則の追加、修正。
 ;  #デフォルト色の変更。 TODO: 適当な hook を作る
@@ -61,11 +67,11 @@
 ;  *italk-LOG* を readonly にして、なおかつ undo が効くようにした。
 ;  ログ自動セーブ機能を新設。italk-logsave-modeを.emacsでsetqして使う。
 ;  標準サーバーを proton.is.s.u-tokyo.ac.jp に変更。
-
+;
 ; TODO: 「初回のitalk起動時」「二回目以降のitalk起動時」で必要な初期化が
 ;       全然整理されてないので、きちんと分けないといけない。実害ないけど。
 
-(defconst italk-version "italk.el 0.41+tak1.9")
+(defconst italk-version "italk.el 0.41+tak1.9+itogawa1.01")
 
 ;;
 ;; variables for user customization
@@ -253,7 +259,7 @@
       "]")
       'italk-evil-face
     )
-    '("\\(http:/\\|ftp:/\\|file:/\\|gopher:/\\|telnet:/\\)[!#-'*-;=?-~]*"
+    '("\\(http:/\\|https:/\\|ftp:/\\|file:/\\|gopher:/\\|telnet:/\\)[!#-'*-;=?-~]*"
       italk-url-face)
   )
 )
@@ -1027,9 +1033,9 @@
           (progn
             (forward-char 10)
             (re-search-backward
-              "http:/\\|ftp:/\\|telnet:/\\|file:/\\|gopher:/" nil t 1)
+              "http:/\\|https:/\\|ftp:/\\|telnet:/\\|file:/\\|gopher:/" nil t 1)
             (re-search-forward
-              "\\(\\(http:/\\|ftp:/\\|telnet:/\\|file:/\\|gopher:/\\)[!#-'*-;=?-~]*\\)"
+              "\\(\\(http:/\\|https:/\\|ftp:/\\|telnet:/\\|file:/\\|gopher:/\\)[!#-'*-;=?-~]*\\)"
               nil t 1)
             (buffer-substring (match-beginning 1) (match-end 1))
           )))