[mhc:02268] import時に今日の日付を入れる

[KOIE Hidetaka (鯉江英隆) <hide@xxxxxxxx>]

当日の予定をimportするときに
メイル本文に日付が書いてあるのは稀なので
dateのguessがされません。
日付の入力はけっこう面倒(そもそも今日が何日が覚えてない)なので
今の日付がデフォルトになるようにしてみました。

# ただ入力が面倒なだけなので、初めは
# "today"と入力すると今日の日付に置き換わるようにしようと思ったのですが
# コードの書き方がわからなかったのでこのようにしました。

Index: mhc.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc.el,v
retrieving revision 1.91
diff -u -p -r1.91 mhc.el
--- mhc.el	4 Apr 2006 07:35:24 -0000	1.91
+++ mhc.el	16 May 2007 08:02:34 -0000
@@ -604,7 +604,7 @@ Returns t if the importation was succeed
        (list (get-buffer (read-buffer "Import buffer: "
 				      (current-buffer))))))
   (let ((draft-buffer (generate-new-buffer mhc-draft-buffer-name))
-	(current-date (or (mhc-current-date) (mhc-calendar-get-date)))
+	(current-date (or (mhc-current-date) (mhc-calendar-get-date) (mhc-date-now)))
 	(succeed t)
 	msgp date time subject location category priority alarm)
     (and (interactive-p)

--
KOIE Hidetaka <hide@xxxxxxxx>