mirror of https://github.com/djcb/mu.git
* mu4e-send.el: create mu4e-edit-mode (deriving from message-mode)
This commit is contained in:
parent
4556a9351a
commit
9ac09a971e
|
@ -286,6 +286,33 @@ use the new docid. Returns the full path to the new message."
|
|||
(insert str)))
|
||||
draft)) ;; return the draft buffer file
|
||||
|
||||
|
||||
(define-derived-mode mu4e-edit-mode message-mode "mu4e:edit"
|
||||
"Major mode for the mu4e main screen.
|
||||
\\{message-mode-map}."
|
||||
(let ((message-hidden-headers
|
||||
`("^References:" "^Face:" "^X-Face:" "^X-Draft-From:"
|
||||
"^User-agent:")))
|
||||
(message-hide-headers))
|
||||
|
||||
(make-local-variable 'after-save-hook)
|
||||
|
||||
;; update the db when the file is saved...]
|
||||
(add-hook 'after-save-hook
|
||||
(lambda() (mu4e-proc-add (buffer-file-name) mu4e-drafts-folder)))
|
||||
|
||||
;; notify the backend that a message has been sent. The backend will respond
|
||||
;; with (:sent ...) sexp, which is handled in .
|
||||
(add-hook 'message-sent-hook
|
||||
(lambda ()
|
||||
(mu4e-proc-sent (buffer-file-name) mu4e-drafts-folder)))
|
||||
|
||||
;; register the function; this function will be called when the '(:sent...)'
|
||||
;; message is received (see mu4e-proc.el) with parameters docid and path
|
||||
(setq mu4e-proc-sent-func 'mu4e-sent-handler))
|
||||
|
||||
|
||||
|
||||
(defun mu4e-send-compose-handler (compose-type &optional original-msg includes)
|
||||
"Create a new draft message, or open an existing one.
|
||||
|
||||
|
@ -325,7 +352,7 @@ using Gnus' `message-mode'."
|
|||
(error "unsupported compose-type %S" compose-type)))))
|
||||
|
||||
(find-file draft)
|
||||
(message-mode)
|
||||
(mu4e-edit-mode)
|
||||
|
||||
;; include files -- e.g. when forwarding a message with attachments,
|
||||
;; we take those from the original.
|
||||
|
@ -335,27 +362,6 @@ using Gnus' `message-mode'."
|
|||
(mml-attach-file
|
||||
(plist-get att :file-name) (plist-get att :mime-type))))
|
||||
|
||||
(make-local-variable 'after-save-hook)
|
||||
|
||||
;; update the db when the file is saved...]
|
||||
(add-hook 'after-save-hook
|
||||
(lambda() (mu4e-proc-add (buffer-file-name) mu4e-drafts-folder)))
|
||||
|
||||
;; notify the backend that a message has been sent. The backend will respond
|
||||
;; with (:sent ...) sexp, which is handled in .
|
||||
(add-hook 'message-sent-hook
|
||||
(lambda ()
|
||||
(mu4e-proc-sent (buffer-file-name) mu4e-drafts-folder)))
|
||||
|
||||
;; register the function; this function will be called when the '(:sent...)'
|
||||
;; message is received (see mu4e-proc.el) with parameters docid and path
|
||||
(setq mu4e-proc-sent-func 'mu4e-sent-handler)
|
||||
|
||||
(let ((message-hidden-headers
|
||||
`("^References:" "^Face:" "^X-Face:" "^X-Draft-From:"
|
||||
"^User-agent:")))
|
||||
(message-hide-headers))
|
||||
|
||||
(if (member compose-type '(new forward))
|
||||
(message-goto-to)
|
||||
(message-goto-body))))
|
||||
|
|
Loading…
Reference in New Issue