Make message signature markdown-compatible
This commit is contained in:
parent
557e49ce0e
commit
f4e46f8a0a
@ -3839,6 +3839,7 @@ Then configure it:
|
||||
(mu4e-message-field msg :path))))
|
||||
:vars '((user-mail-address . "jeremydormitzer@lola.com")
|
||||
(mu4e-compose-signature . "Best regards, \nJeremy Dormitzer \nLola.com")
|
||||
(message-signature-insert-empty-line . t)
|
||||
(mu4e-sent-folder . "/jeremydormitzer-lola-com/Sent")
|
||||
(mu4e-drafts-folder . "/jeremydormitzer-lola-com/Drafts")
|
||||
(mu4e-refile-folder . "/jeremydormitzer-lola-com/Archive")
|
||||
@ -4191,6 +4192,18 @@ Support sending rich-text emails via Markdown:
|
||||
(format (concat "<#part id=\"<%s>\" x-attachment-id=%S "
|
||||
"type=%S filename=%S disposition=inline description=%s>")
|
||||
id id type image description)))))
|
||||
|
||||
|
||||
;; The default message signature begins with "-- \n". To makes this
|
||||
;; markdown compatible, we need to add an extra space at the end: "-- \n"
|
||||
(defun message-md-add-space-to-sig-separator (&rest args)
|
||||
(save-excursion
|
||||
(when (search-backward "--" nil t)
|
||||
(forward-char 2)
|
||||
(insert " "))))
|
||||
|
||||
(advice-add 'message-insert-signature :after
|
||||
#'message-md-add-space-to-sig-separator)
|
||||
#+END_SRC
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user