;;
;; UNIX MAGAZINE 1995/1 ``Mule2 のインストール'' 白崎博生氏
;; からの引用
;; + 「末摘花」以降の追加
;;
;;
(if (stringp mule-version)
  (progn
    (mapcar (function
      (lambda (args)
	(if (string-match (car args) mule-version)
	    (setq mule-version
		  (concat (substring mule-version 0
				     (match-beginning 0))
			  (cdr args)
			  (substring mule-version (match-end 0)))))))
	    '(("KIRITSUBO"    . "桐壷")
	      ("HAHAKIGI"     . "帚木")
	      ("UTSUSEMI"     . "空蝉")
	      ("YUUGAO"       . "夕顔")
	      ("WAKAMURASAKI" . "若紫")
	      ("SUETSUMUHANA" . "末摘花")
	      ("MOMIJINOGA"   . "紅葉賀")
	      ("HANANOEN"     . "花宴")
	      ("AOI"          . "葵")
	      ("SAKAKI"       . "賢木")
	      ("HANACHIRUSATO" . "花散里")
	      ("SUMA"         . "須磨")
	      ("AKASHI"       . "明石")
	      ("MIWOTSUKUSHI" . "澪標")
	      ("YOMOGIU"      . "蓬生")
	      ("SEKIYA"       . "関屋")
	      ("EAWASE"       . "絵合")
	      ("MATSUKAZE"    . "松風")
	      ("USUKUMO"      . "薄雲")
	      ("ASAGAO"       . "槿")
	      ("WOTOME"       . "少女")
	      ("TAMAKAZURA"   . "玉鬘")
	      ("HATSUNE"      . "初音")
	      ("KOCHO"	      . "胡蝶")
	      ("HOTARU"       . "蛍")
	      ("TOKONATSU"    . "常夏")
	      ("KAGARIHI"     . "篝火")
	      ("NOWAKI"       . "野分")
	      ("MIYUKI"       . "行幸")
	      ("FUDIBAKAMA"   . "藤袴")
	      ("MAKIBASHIRA"  . "真木柱")
	      ("UMEGAE"       . "梅枝")
	      ("FUJINOURAHA"  . "藤裏葉")
	      ("WAKANA"       . "若菜")
	      ("KASHIWAGI"    . "柏木")
	      ("YOKOBUE"      . "横笛")
	      ("SUZUMUSHI"    . "鈴虫")
	      ("YUUGIRI"      . "夕霧")
	      ("MINORI"       . "御法")
	      ("MABOROSHI"    . "幻")
	      ("KUMOGAKURE"   . "雲隠")
	      ("NIHOUNOMIYA"  . "匂宮")
	      ("KOUBAI"       . "紅梅")
	      ("TAKEKAWA"     . "竹河")
	      ("HASHIHIME"    . "橋姫")
	      ("SHIIGAMOTO"   . "椎本")
	      ("AGEMAKI"      . "総角")
	      ("SAWARABI"     . "早蕨")
	      ("YADORIGI"     . "宿木")
	      ("ADUMAYA"      . "東屋")
	      ("UKIFUNE"      . "浮舟")
	      ("KAGEROU"      . "蜻蛉")
	      ("TENARAI"      . "手習")
	      ("YUMENOUKIHASHI" . "夢浮橋")))
    ))
;;
;;