From 92d5ed112bbaffaaf9948643b5b692a2bbf16a54 Mon Sep 17 00:00:00 2001 From: Thierry Volpiatto Date: Thu, 13 Mar 2014 16:12:54 +0100 Subject: [PATCH] * mu4e/mu4e-main.el (mu4e~main-toggle-mail-sending-mode): Save position when toggling. --- mu4e/mu4e-main.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/mu4e/mu4e-main.el b/mu4e/mu4e-main.el index 1151d6e0..1f608b72 100644 --- a/mu4e/mu4e-main.el +++ b/mu4e/mu4e-main.el @@ -158,12 +158,15 @@ clicked." (defun mu4e~main-toggle-mail-sending-mode () "Toggle sending mail mode, either queued or direct." (interactive) - (unless (file-directory-p smtpmail-queue-dir) - (mu4e-error "`smtpmail-queue-dir' does not exist")) - (setq smtpmail-queue-mail (not smtpmail-queue-mail)) - (message - (concat "Outgoing mail will now be " - (if smtpmail-queue-mail "queued" "sent directly"))) - (mu4e~main-view)) + (let ((curpos (point))) + (unless (file-directory-p smtpmail-queue-dir) + (mu4e-error "`smtpmail-queue-dir' does not exist")) + (setq smtpmail-queue-mail (not smtpmail-queue-mail)) + (message + (concat "Outgoing mail will now be " + (if smtpmail-queue-mail "queued" "sent directly"))) + (mu4e~main-view) + ;; "queued" and "direct" have same length. + (goto-char curpos))) (provide 'mu4e-main)