[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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



当日の予定を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>