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

* mm updates

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2011-10-10 08:38:14 +03:00
parent 0eac659575
commit ac6c5b4598
5 changed files with 55 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
toys/mm/mm.el
View File

@ -273,7 +273,7 @@ be sure it no longer matches)."
(define-key map "j" 'mm/jump-to-maildir)
(define-key map "c" 'mm/compose-new)
(define-key map "r" 'mm/retrieve-mail)
(define-key map "m" 'mm/toggle-mail-sending-mode)
(define-key map "u" 'mm/retrieve-mail-update-db)
map)
@ -307,6 +307,10 @@ be sure it no longer matches)."
"* "
(propertize "mm - mail for emacs version " 'face 'mm/title-face)
(propertize mm/version 'face 'mm/view-header-value-face)
" (send: "
(propertize (if smtpmail-queue-mail "queued" "direct")
'face 'mm/view-header-key-face)
")"
"\n\n"
" Watcha wanna do?\n\n"
" * Show me some messages:\n"
@ -321,7 +325,10 @@ be sure it no longer matches)."
"\n"
" * " (propertize "c" 'face 'highlight) "ompose a new message\n"
"\n"
"\n"
" * " (propertize "u" 'face 'highlight) "pdate email\n"
" * toggle " (propertize "m" 'face 'highlight) "ail sending mode "
"\n"
" * " (propertize "q" 'face 'highlight) "uit mm\n")
@ -374,6 +381,14 @@ be sure it no longer matches)."
(interactive)
(mm/proc-retrieve-mail-update-db))
(defun mm/toggle-mail-sending-mode ()
"Toggle sending mail mode, either queued or direct."
(interactive)
(setq smtpmail-queue-mail (not smtpmail-queue-mail))
(mm))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -385,5 +400,4 @@ be sure it no longer matches)."
(mm/kill-proc)
(kill-buffer)))
(provide 'mm)