mirror of https://github.com/djcb/mu.git
mu4e: make mu4e-main-buffer-name a defvar
(and rename from mu4e~main-buffer-name)
This commit is contained in:
parent
1738f9d6d1
commit
1c1dbaf882
|
@ -33,8 +33,9 @@
|
||||||
|
|
||||||
;;; Mode
|
;;; Mode
|
||||||
|
|
||||||
(defconst mu4e~main-buffer-name " *mu4e-main*"
|
(defvar mu4e-main-buffer-name " *mu4e-main*"
|
||||||
"*internal* Name of the mu4e main view buffer.")
|
"Name of the mu4e main view buffer. The default name starts
|
||||||
|
with SPC and therefore is not visible in buffer list.")
|
||||||
|
|
||||||
(defvar mu4e-main-mode-map
|
(defvar mu4e-main-mode-map
|
||||||
(let ((map (make-sparse-keymap)))
|
(let ((map (make-sparse-keymap)))
|
||||||
|
@ -159,7 +160,7 @@ clicked."
|
||||||
(mu4e~main-view-real-1 'refresh))
|
(mu4e~main-view-real-1 'refresh))
|
||||||
|
|
||||||
(defun mu4e~main-view-real-1 (&optional refresh)
|
(defun mu4e~main-view-real-1 (&optional refresh)
|
||||||
"Create `mu4e~main-buffer-name' and set it up.
|
"Create `mu4e-main-buffer-name' and set it up.
|
||||||
When REFRESH is non nil refresh infos from server."
|
When REFRESH is non nil refresh infos from server."
|
||||||
(let ((inhibit-read-only t)
|
(let ((inhibit-read-only t)
|
||||||
(pos (point)))
|
(pos (point)))
|
||||||
|
@ -169,7 +170,7 @@ When REFRESH is non nil refresh infos from server."
|
||||||
(mu4e~main-redraw-buffer))))
|
(mu4e~main-redraw-buffer))))
|
||||||
|
|
||||||
(defun mu4e~main-redraw-buffer ()
|
(defun mu4e~main-redraw-buffer ()
|
||||||
(with-current-buffer mu4e~main-buffer-name
|
(with-current-buffer mu4e-main-buffer-name
|
||||||
(let ((inhibit-read-only t)
|
(let ((inhibit-read-only t)
|
||||||
(pos (point)))
|
(pos (point)))
|
||||||
(erase-buffer)
|
(erase-buffer)
|
||||||
|
@ -248,14 +249,14 @@ When REFRESH is non nil refresh infos from server."
|
||||||
"Create the mu4e main-view, and switch to it.
|
"Create the mu4e main-view, and switch to it.
|
||||||
|
|
||||||
When REFRESH is non nil refresh infos from server."
|
When REFRESH is non nil refresh infos from server."
|
||||||
(let ((buf (get-buffer-create mu4e~main-buffer-name)))
|
(let ((buf (get-buffer-create mu4e-main-buffer-name)))
|
||||||
(if (eq mu4e-split-view 'single-window)
|
(if (eq mu4e-split-view 'single-window)
|
||||||
(if (buffer-live-p (mu4e-get-headers-buffer))
|
(if (buffer-live-p (mu4e-get-headers-buffer))
|
||||||
(switch-to-buffer (mu4e-get-headers-buffer))
|
(switch-to-buffer (mu4e-get-headers-buffer))
|
||||||
(mu4e~main-menu))
|
(mu4e~main-menu))
|
||||||
;; `mu4e~main-view' is called from `mu4e~start', so don't call it
|
;; `mu4e~main-view' is called from `mu4e~start', so don't call it
|
||||||
;; a second time here i.e. do not refresh unless specified
|
;; a second time here i.e. do not refresh unless specified
|
||||||
;; explicitely with REFRESH arg.
|
;; explicitely with REFRESH arg.
|
||||||
(switch-to-buffer buf)
|
(switch-to-buffer buf)
|
||||||
(with-current-buffer buf
|
(with-current-buffer buf
|
||||||
(mu4e-main-mode)
|
(mu4e-main-mode)
|
||||||
|
@ -276,8 +277,8 @@ When REFRESH is non nil refresh infos from server."
|
||||||
(message (concat "Outgoing mail will now be "
|
(message (concat "Outgoing mail will now be "
|
||||||
(if smtpmail-queue-mail "queued" "sent directly")))
|
(if smtpmail-queue-mail "queued" "sent directly")))
|
||||||
(unless (or (eq mu4e-split-view 'single-window)
|
(unless (or (eq mu4e-split-view 'single-window)
|
||||||
(not (buffer-live-p (get-buffer mu4e~main-buffer-name))))
|
(not (buffer-live-p (get-buffer mu4e-main-buffer-name))))
|
||||||
(with-current-buffer mu4e~main-buffer-name
|
(with-current-buffer mu4e-main-buffer-name
|
||||||
(revert-buffer))))
|
(revert-buffer))))
|
||||||
|
|
||||||
(defun mu4e~main-menu ()
|
(defun mu4e~main-menu ()
|
||||||
|
|
|
@ -637,7 +637,7 @@ process."
|
||||||
(processed (plist-get info :processed))
|
(processed (plist-get info :processed))
|
||||||
(updated (plist-get info :updated))
|
(updated (plist-get info :updated))
|
||||||
(cleaned-up (plist-get info :cleaned-up))
|
(cleaned-up (plist-get info :cleaned-up))
|
||||||
(mainbuf (get-buffer mu4e~main-buffer-name)))
|
(mainbuf (get-buffer mu4e-main-buffer-name)))
|
||||||
(cond
|
(cond
|
||||||
((eq type 'add) t) ;; do nothing
|
((eq type 'add) t) ;; do nothing
|
||||||
((eq type 'index)
|
((eq type 'index)
|
||||||
|
|
Loading…
Reference in New Issue