diff options
Diffstat (limited to 'emacsconf-mail.el')
-rw-r--r-- | emacsconf-mail.el | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/emacsconf-mail.el b/emacsconf-mail.el index f74cc81..0a88e75 100644 --- a/emacsconf-mail.el +++ b/emacsconf-mail.el @@ -280,6 +280,26 @@ Group by e-mail." (plist-put data :time (match-string 0 (or (plist-get data :format) "")))) data))) +;;;###autoload +(defun emacsconf-mail-review () + (interactive) + (let ((notification-date (format-time-string + "%Y-%m-%d" + (time-add + (days-to-time emacsconf-review-days) + (date-to-time (plist-get (plist-get (notmuch-show-get-message-properties) :headers) :Date)))))) + (notmuch-show-reply) + (message-goto-body) + (save-excursion + (insert (format + "Thanks for submitting your proposal! (TODO: feedback) We're experimenting +with early acceptance this year, so we'll wait a week (~ %s) in case the +other volunteers want to chime in regarding your talk. =) + +" + notification-date))))) + +;;;###autoload (defun emacsconf-mail-add-submission (slug) "Add the submission from the current e-mail." (interactive "MTalk ID: ") @@ -294,7 +314,7 @@ Group by e-mail." (to-notify (format-time-string "%Y-%m-%d" (time-add - (days-to-time 7) + (days-to-time emacsconf-review-days) (date-to-time (plist-get (plist-get props :headers) :Date))))) (data (emacsconf-mail-parse-submission body))) (when (string-match "<\\(.*\\)>" from) |