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

1 files changed, 10 insertions, 7 deletions

diff --git a/mu4e/mu4e-main.el b/mu4e/mu4e-main.el
index 1151d6e..1f608b7 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)