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

* cleanup mu4e-user-agent a bit, add support for adding arbitrary headers

Browse Source
This commit is contained in:
djcb
2012-04-19 18:54:31 +03:00
parent 1e17d7890b
commit ff32d85bc0
1 changed files with 11 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
emacs/mu4e-compose.el
View File

@ -49,7 +49,7 @@ such all its settings apply."
(funcall message-cite-function)
(pop-mark)
(buffer-string)))
(defun mu4e--header (hdr val)
"Return a header line of the form HDR: VAL\n. If VAL is nil,
@ -321,7 +321,7 @@ use the new docid. Returns the full path to the new message."
;; make sure mu4e is started in the background (ie. we don't want to error out
;; when sending the message; better to do it now if there's a problem)
(mu4e :hide-ui t)
;; hack-hack-hack... just before saving, we remove the
;; mail-header-separator; just after saving we restore it; thus, the
;; separator should never appear on disk
@ -519,14 +519,12 @@ buffer.
;; mu4e-compose-func and mu4e-send-func are wrappers so we can set ourselves
;; as default emacs mailer (define-mail-user-agent etc.)
(defun mu4e-compose-func (&optional to subject other-headers continue
switch-function yank-action send-actions
return-action)
(defun mu4e--compose-func (&optional to subject other-headers continue
switch-function yank-action send-actions return-action)
"mu4e's implementation of `compose-mail'."
;; create a new draft message
(mu4e-compose-handler 'new)
(when to ;; reset to-address, if needed
(message-goto-to)
(message-delete-line)
@ -535,18 +533,17 @@ buffer.
(message-goto-subject)
(message-delete-line)
(insert (concat "Subject: " subject "\n")))
;; add any other headers... inspired by message-mode
;; FIXME: need to convert the headers.
;; (when other-headers
;; (message-add-header other-headers))
;; add any other headers specified; FIXME: for some reason, these appear
;; before any other headers
(message-add-header other-headers)
;; yank message
(if (bufferp yank-action)
(list 'insert-buffer yank-action)
yank-action))
;; happily, we can reuse most things from message mode
;; happily, we can re-use most things from message mode
(define-mail-user-agent 'mu4e-user-agent
'mu4e-compose-func
'mu4e--compose-func
'message-send-and-exit
'message-kill-buffer
'message-send-hook)