alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e-compose: insert a newline after mail-header-separator

Browse Source 
(this wasn't happening correctly when there was no `message-signature')
This commit is contained in:
djcb
2012-05-11 21:21:07 +03:00
parent bea8d69999
commit 0c9145a480
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
emacs/mu4e-compose.el
View File

@ -222,8 +222,9 @@ nil, function returns nil."
(if user-full-name (if user-full-name
(format "%s <%s>" user-full-name user-mail-address) (format "%s <%s>" user-full-name user-mail-address)
(format "%s" user-mail-address)))) (format "%s" user-mail-address))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun mu4e~compose-insert-mail-header-separator () (defun mu4e~compose-insert-mail-header-separator ()
"Insert `mail-header-separator' in the first empty line of the "Insert `mail-header-separator' in the first empty line of the
message. message-mode needs this line to know where the headers end message. message-mode needs this line to know where the headers end
@ -236,12 +237,11 @@ separator is never written to file. Also see
;; search for the first empty line ;; search for the first empty line
(if (search-forward-regexp (concat "^$")) (if (search-forward-regexp (concat "^$"))
(replace-match (replace-match
(concat (concat (propertize mail-header-separator 'read-only t 'intangible t)))
(propertize mail-header-separator 'read-only t 'intangible t)))
;; no empty line? then append one ;; no empty line? then append one
(progn (progn
(goto-char (point-max)) (goto-char (point-max))
(insert (concat "\n" mail-header-separator "\n")))))) (insert (concat "\n" mail-header-separator))))))
(defun mu4e~compose-remove-mail-header-separator () (defun mu4e~compose-remove-mail-header-separator ()
"Remove `mail-header-separator; we do this before saving a "Remove `mail-header-separator; we do this before saving a
@ -251,7 +251,8 @@ never hits the disk. Also see `mu4e~compose-insert-mail-header-separator."
(goto-char (point-min)) (goto-char (point-min))
;; remove the --text follows this line-- separator ;; remove the --text follows this line-- separator
(when (search-forward-regexp (concat "^" mail-header-separator)) (when (search-forward-regexp (concat "^" mail-header-separator))
(replace-match "")))) (let ((inhibit-read-only t))
(replace-match "")))))
(defun mu4e~compose-user-wants-reply-all (origmsg) (defun mu4e~compose-user-wants-reply-all (origmsg)
"Ask user whether she wants to reply to *all* recipients if there "Ask user whether she wants to reply to *all* recipients if there
@ -506,7 +507,7 @@ Gnus' `message-mode'."
;; insert mail-header-separator, which is needed by message mode to separate ;; insert mail-header-separator, which is needed by message mode to separate
;; headers and body. will be removed before saving to disk ;; headers and body. will be removed before saving to disk
(mu4e~compose-insert-mail-header-separator) (mu4e~compose-insert-mail-header-separator)
(insert "\n") ;; insert a newline after header separator
;; include files -- e.g. when forwarding a message with attachments, ;; include files -- e.g. when forwarding a message with attachments,
;; we take those from the original. ;; we take those from the original.
(save-excursion (save-excursion