Small fix when title is not specified

This commit is contained in:
IGARASHI Masanao
2015-11-14 20:13:03 +09:00
parent 682e298843
commit f67a681569

View File

@@ -468,17 +468,18 @@ INFO is a plist used as a communication channel."
((and (org-string-nw-p date) (org-string-nw-p author)) ((and (org-string-nw-p date) (org-string-nw-p author))
(concat (concat
author author
" "
date date
(when (org-string-nw-p email) email))) (when (org-string-nw-p email) (concat " " email))))
((and (org-string-nw-p date) (org-string-nw-p email)) ((and (org-string-nw-p date) (org-string-nw-p email))
(concat (concat
email email
date " "
date)) date))
((org-string-nw-p date) ((org-string-nw-p date)
date) date)
((and (org-string-nw-p author) (org-string-nw-p email)) ((and (org-string-nw-p author) (org-string-nw-p email))
(concat author email)) (concat author " " email))
((org-string-nw-p author) author) ((org-string-nw-p author) author)
((org-string-nw-p email) email)) title)) ((org-string-nw-p email) email)) title))
(titleline (make-string (string-width title) ?=)) (titleline (make-string (string-width title) ?=))