emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e: goto point-min after showing main screen

This commit is contained in:
djcb 2014-10-30 21:02:18 +02:00
parent fd6df0848c
commit 64738b8d4f
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
mu4e/mu4e-main.el
View File

@ -1,6 +1,6 @@
;;; mu4e-main.el -- part of mu4e, the mu mail user agent ;;; mu4e-main.el -- part of mu4e, the mu mail user agent
;; ;;
;; Copyright (C) 2011-2012 Dirk-Jan C. Binnema ;; Copyright (C) 2011-2014 Dirk-Jan C. Binnema
;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> ;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> ;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
@ -66,7 +66,7 @@
(use-local-map mu4e-main-mode-map) (use-local-map mu4e-main-mode-map)
(setq truncate-lines t (setq truncate-lines t
overwrite-mode 'overwrite-mode-binary) overwrite-mode 'overwrite-mode-binary)
(set (make-local-variable 'revert-buffer-function) #'mu4e:main-revert-buffer)) (set (make-local-variable 'revert-buffer-function) #'mu4e~main-view-real))
(defun mu4e~main-action-str (str &optional func-or-shortcut) (defun mu4e~main-action-str (str &optional func-or-shortcut)
@ -98,7 +98,7 @@ clicked."
;; NEW ;; NEW
;; This is the old `mu4e~main-view' function but without ;; This is the old `mu4e~main-view' function but without
;; buffer switching at the end. ;; buffer switching at the end.
(defun mu4e:main-revert-buffer (ignore-auto noconfirm) (defun mu4e~main-view-real (ignore-auto noconfirm)
(let ((buf (get-buffer-create mu4e~main-buffer-name)) (let ((buf (get-buffer-create mu4e~main-buffer-name))
(inhibit-read-only t)) (inhibit-read-only t))
(with-current-buffer buf (with-current-buffer buf
@ -154,13 +154,11 @@ clicked."
(mu4e-main-mode) (mu4e-main-mode)
))) )))
;; NEW
;; Revert mu main buffer then switch to it
(defun mu4e~main-view () (defun mu4e~main-view ()
"Show the mu4e main view." "Create the mu4e main-view, and switch to it."
(mu4e:main-revert-buffer nil nil) (mu4e~main-view-real nil nil)
(switch-to-buffer mu4e~main-buffer-name)) (switch-to-buffer mu4e~main-buffer-name)
(goto-char (point-min)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Interactive functions ;; Interactive functions
;; NEW ;; NEW
@ -175,7 +173,7 @@ clicked."
(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-revert-buffer nil nil) (mu4e~main-view-real nil nil)
(goto-char curpos))) (goto-char curpos)))