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

* mm: some more updates (WIP)

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2011-09-20 23:59:20 +03:00
parent 5866220781
commit 3d41a0fe3d
6 changed files with 305 additions and 312 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
toys/mm/mm-send.el
View File

@ -225,7 +225,6 @@ And finally, the cited body of MSG, as per `mm/msg-cite-original'."
(concat mm/msg-reply-prefix (plist-get msg :subject)))
mm/msg-separator
(mm/msg-cite-original msg)))
;; TODO: attachments
@ -247,7 +246,7 @@ body from headers)
And finally, the cited body of MSG, as per `mm/msg-cite-original'."
(concat
(mm/msg-header "From" (or (mm/msg-from-for-new) ""))
(mm/msg-header "From" (or (mm/msg-from-create) ""))
(when (boundp 'mail-reply-to)
(mm/msg-header "Reply-To" mail-reply-to))
@ -404,7 +403,9 @@ edit buffer with the draft message"
;; mark the buffer as read-only, as its pointing at a non-existing file
;; now...
(message "Message has been sent")
(setq buffer-read-only t))))
(setq buffer-read-only t)
)))
(defun mm/send-set-parent-flag ()
"Set the 'replied' flag on messages we replied to, and the