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

mu4e: make mu4e-main-buffer-name a defvar 

(and rename from mu4e~main-buffer-name)
This commit is contained in:
Dirk-Jan C. Binnema 2020-02-28 12:17:13 +02:00
parent 1738f9d6d1
commit 1c1dbaf882
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
mu4e/mu4e-main.el
View File

@ -33,8 +33,9 @@
;;; Mode
(defconst mu4e~main-buffer-name " *mu4e-main*"
"*internal* Name of the mu4e main view buffer.")
(defvar mu4e-main-buffer-name " *mu4e-main*"
"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
(let ((map (make-sparse-keymap)))
@ -159,7 +160,7 @@ clicked."
(mu4e~main-view-real-1 '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."
(let ((inhibit-read-only t)
(pos (point)))
@ -169,7 +170,7 @@ When REFRESH is non nil refresh infos from server."
(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)
(pos (point)))
(erase-buffer)
@ -248,14 +249,14 @@ When REFRESH is non nil refresh infos from server."
"Create the mu4e main-view, and switch to it.
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 (buffer-live-p (mu4e-get-headers-buffer))
(switch-to-buffer (mu4e-get-headers-buffer))
(mu4e~main-menu))
;; `mu4e~main-view' is called from `mu4e~start', so don't call it
;; a second time here i.e. do not refresh unless specified
;; explicitely with REFRESH arg.
;; explicitely with REFRESH arg.
(switch-to-buffer buf)
(with-current-buffer buf
(mu4e-main-mode)
@ -276,8 +277,8 @@ When REFRESH is non nil refresh infos from server."
(message (concat "Outgoing mail will now be "
(if smtpmail-queue-mail "queued" "sent directly")))
(unless (or (eq mu4e-split-view 'single-window)
(not (buffer-live-p (get-buffer mu4e~main-buffer-name))))
(with-current-buffer mu4e~main-buffer-name
(not (buffer-live-p (get-buffer mu4e-main-buffer-name))))
(with-current-buffer mu4e-main-buffer-name
(revert-buffer))))
(defun mu4e~main-menu ()

2
mu4e/mu4e-utils.el
View File

@ -637,7 +637,7 @@ process."
(processed (plist-get info :processed))
(updated (plist-get info :updated))
(cleaned-up (plist-get info :cleaned-up))
(mainbuf (get-buffer mu4e~main-buffer-name)))
(mainbuf (get-buffer mu4e-main-buffer-name)))
(cond
((eq type 'add) t) ;; do nothing
((eq type 'index)