* more changes to emacs frontend

This commit is contained in:
Dirk-Jan C. Binnema
2011-08-02 08:11:04 +03:00
parent 47073006d2
commit 8e83a1c952
4 changed files with 67 additions and 29 deletions

View File

@ -41,10 +41,6 @@
(defun mu-message-user-agent ()
(format "mu %s; emacs %s" (mu-binary-version) emacs-version))
(defun mu-message-attribution (msg)
"get an attribution line for a quoted message"
(format "On %s, %s wrote:\n"
@ -120,9 +116,15 @@ create a forwarded message. After creation, switch to the message editor"
(switch-to-buffer buf))))
(defun mu-message-reply (path)
"create a reply to the message at PATH; After creation, switch
(defun mu-message-reply ()
"create a reply to the message at point; After creation, switch
to the message editor"
(let ((path (mu-get-path)))
(when path
(let ())
(mu-ask-key "Reply to [s]ender only or to [a]ll?")
(mu-message-reply-or-forward path))