diff options
| -rw-r--r-- | git-email.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/git-email.el b/git-email.el index 3db1ca3..20b9400 100644 --- a/git-email.el +++ b/git-email.el @@ -244,7 +244,7 @@ If the header is not found, return an empty string." (with-temp-buffer (insert-file-contents patch-file) (mapcar (lambda (header) - `(,header ,(git-email--extract-header header))) + `(,header . ,(git-email--extract-header header))) git-email-headers))) (defun git-email--extract-diff (patch-file) @@ -313,10 +313,10 @@ them into the message buffer." sendemail-to)) (diff (git-email--extract-diff patch-file))) (funcall git-email-compose-email-function to - ;; Remove 'subject' header, otherwise two subject headers will be - ;; inserted. - (cadr (assoc 'subject used-headers)) - (seq-filter #'git-email--remove-subject used-headers)) + ;; Remove 'subject' header, otherwise two subject headers will be + ;; inserted. + (cdr (assoc 'subject used-headers)) + (seq-filter #'git-email--remove-subject used-headers)) ;; Insert diff at the beginning of the body (goto-char (point-min)) (let ((body (or (re-search-forward |