about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--varuga.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/varuga.el b/varuga.el
index b7e24c3..ab2b73c 100644
--- a/varuga.el
+++ b/varuga.el
@@ -132,7 +132,10 @@ SUMMARY is a short description of the event.  LOCATION is the
 location of the event (typically a URI for online meetings).
 WHEN is the encoded time when the event is scheduled.  DURATION
 is the length of the event in minutes."
-  (interactive (list (read-string "Event Summary: ")
+  (interactive (list (read-string "Event Summary: "
+                                  (string-trim
+                                   (string-remove-prefix
+                                    "Re:" (message-fetch-field "Subject"))))
                      (read-string "Location: ")
                      (org-read-date t t nil "When?")
                      (org-duration-to-minutes