From 1c1dbaf88225101654867c83a97ae8ac0e336c21 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Fri, 28 Feb 2020 12:17:13 +0200 Subject: [PATCH] mu4e: make mu4e-main-buffer-name a defvar (and rename from mu4e~main-buffer-name) --- mu4e/mu4e-main.el | 17 +++++++++-------- mu4e/mu4e-utils.el | 2 +- 2 files changed, 10 insertions(+), 9 deletions(-) diff --git a/mu4e/mu4e-main.el b/mu4e/mu4e-main.el index a25489a4..bc80c4c7 100644 --- a/mu4e/mu4e-main.el +++ b/mu4e/mu4e-main.el @@ -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 () diff --git a/mu4e/mu4e-utils.el b/mu4e/mu4e-utils.el index 2ad51d3c..fd064073 100644 --- a/mu4e/mu4e-utils.el +++ b/mu4e/mu4e-utils.el @@ -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)