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

* mu4e/mu4e-main.el (mu4e~main-toggle-mail-sending-mode): Save position when toggling.

Browse Source
This commit is contained in:
Thierry Volpiatto
2014-03-13 16:12:54 +01:00
parent e3274461db
commit 92d5ed112b
1 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
mu4e/mu4e-main.el
View File

@ -158,12 +158,15 @@ clicked."
(defun mu4e~main-toggle-mail-sending-mode () (defun mu4e~main-toggle-mail-sending-mode ()
"Toggle sending mail mode, either queued or direct." "Toggle sending mail mode, either queued or direct."
(interactive) (interactive)
(let ((curpos (point)))
(unless (file-directory-p smtpmail-queue-dir) (unless (file-directory-p smtpmail-queue-dir)
(mu4e-error "`smtpmail-queue-dir' does not exist")) (mu4e-error "`smtpmail-queue-dir' does not exist"))
(setq smtpmail-queue-mail (not smtpmail-queue-mail)) (setq smtpmail-queue-mail (not smtpmail-queue-mail))
(message (message
(concat "Outgoing mail will now be " (concat "Outgoing mail will now be "
(if smtpmail-queue-mail "queued" "sent directly"))) (if smtpmail-queue-mail "queued" "sent directly")))
(mu4e~main-view)) (mu4e~main-view)
;; "queued" and "direct" have same length.
(goto-char curpos)))
(provide 'mu4e-main) (provide 'mu4e-main)