summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--varuga.el9
1 files changed, 7 insertions, 2 deletions
diff --git a/varuga.el b/varuga.el
index ab2b73c..8a2cd70 100644
--- a/varuga.el
+++ b/varuga.el
@@ -126,6 +126,11 @@ KEY is the name of the ical property and VALUE is its value."
(varuga-calendar-components calendar))
(varuga-insert-calendar-line 'end "VCALENDAR"))
+(defun varuga-message-subject ()
+ "Return subject of message."
+ (or (message-fetch-field "Subject")
+ ""))
+
(defun varuga-invite (summary location when duration)
"Insert calendar invitation into current email message buffer.
SUMMARY is a short description of the event. LOCATION is the
@@ -135,14 +140,14 @@ is the length of the event in minutes."
(interactive (list (read-string "Event Summary: "
(string-trim
(string-remove-prefix
- "Re:" (message-fetch-field "Subject"))))
+ "Re:" (varuga-message-subject))))
(read-string "Location: ")
(org-read-date t t nil "When?")
(org-duration-to-minutes
(read-string "Duration: "))))
(save-excursion
;; Fill Subject header if it is blank.
- (when (string-blank-p (message-fetch-field "Subject"))
+ (when (string-blank-p (varuga-message-subject))
(save-restriction
(message-narrow-to-headers)
(re-search-forward "^Subject:")