[mhc:02046] Re: guess error (date)

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>]

From: NOGUCHI Yusuke <nogunogu@xxxxxxxxxxxxxxxxx> さん曰く
Subject: [mhc:02044] guess error (date)
Message-ID: <20050316.133052.68531884.nogunogu@xxxxxxxxxxxxxxxxx>
Date: Wed, 16 Mar 2005 13:30:52 +0900 (JST)

> date の guess で、以下のようなフォーマットに対応できませんでした。
> 
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
> ２００５年３月１６日〜２００５年３月３１日
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
> おそらく、mhc-guess-date-regexp-list 変数の設定を調整すれば良いのだろ
> うと思っていますが、具体的にどうすればよいのかまではわかっておりません。

えっとですね。mhc-setup-hook でうにうに(*1)やれば良いのですが、
今回の件は元から直した方が簡単かつ合理的に思えるのでやってみまし
た。最後にパッチをつけて、あとで commit しておきます。

(*1) *うにうに* は修行次第ですが、例えば、こんな感じです。

(add-hook 'mhc-setup-hook
	  (setq mhc-guess-date-regexp-list
		(append
		 `((,(concat "\\([０-９0-9][０-９0-9][０-９0-9][０-９0-9]年\\)?"
			     "\\([０-９0-9][０-９0-9]?\\)月"
			     "\\([０-９0-9][０-９0-9]?\\)日"
			     "\\([〜−-]\\|から\\|より\\)"
			     "\\([０-９0-9][０-９0-9][０-９0-9][０-９0-9]年\\)?"
			     "\\(\\([０-９0-9]?[０-９0-9]\\)月\\)?"
			     "\\([０-９0-9]+\\)日?\\(間\\)?")
		    mhc-guess/make-date-from-mmdd 2 3 7 8 9))
		 mhc-guess-date-regexp-list)))

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)

Index: mhc-guess.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-guess.el,v
retrieving revision 1.20
diff -u -u -r1.20 mhc-guess.el
--- mhc-guess.el	28 Oct 2004 08:39:10 -0000	1.20
+++ mhc-guess.el	16 Mar 2005 08:03:52 -0000
@@ -86,14 +86,16 @@
 	      "\\([０-９0-9][０-９0-9]\\)")
      mhc-guess/make-date-from-yyyymmdd 1 2 3)
 
-    (,(concat "\\([来今０-９0-9]+\\)[\n　 ]*月[\n 　]*の?[\n 　]*"
+    (,(concat "\\([０-９0-9]+年\\)?"
+	      "\\([来今０-９0-9]+\\)[\n　 ]*月[\n 　]*の?[\n 　]*"
 	      "\\([０-９0-9]+\\)日?"
 	      "\\([（）()月火水木金土日曜\n 　 ]*"
-	           "\\([〜−-，,、]\\|から\\|より\\)[\n 　]*"
-		   "\\(\\([来今０-９0-9]+\\)[\n　 ]*月\\)?[\n 　]*の?[\n 　]*"
-		   "\\([０-９0-9]+\\)日?\\(間\\)?"
-	       "\\)?")
-     mhc-guess/make-date-from-mmdd 1 2 6 7 8)
+	      "\\([〜−-，,、]\\|から\\|より\\)[\n 　]*"
+	      "\\([０-９0-9]+年\\)?"
+	      "\\(\\([来今０-９0-9]+\\)[\n　 ]*月\\)?[\n 　]*の?[\n 　]*"
+	      "\\([０-９0-9]+\\)日?\\(間\\)?"
+	      "\\)?")
+     mhc-guess/make-date-from-mmdd 2 3 8 9 10)
 
     (,(concat "\\([０-９0-9]+[　 ]*[／/][　 ]*\\)?"
 	      "\\([０-９0-9]+\\)[　 ]*[／/][　 ]*\\([０-９0-9]+\\)"