fixup: mu4e: some cleanups / bytecomp warning fixes

This commit is contained in:
Dirk-Jan C. Binnema
2020-05-28 10:21:16 +03:00
parent 0a49cead33
commit 73be015cd0
6 changed files with 52 additions and 77 deletions

View File

@ -37,6 +37,7 @@
(require 'mu4e-message)
(eval-when-compile (require 'gnus-art))
(require 'comint)
(require 'browse-url)
(require 'button)
@ -1816,33 +1817,6 @@ other windows."
(setq mu4e~headers-view-win nil)
(when (buffer-live-p (mu4e-get-headers-buffer))
(switch-to-buffer (mu4e-get-headers-buffer))))))))
;;
;; Loading messages
;;
(defvar mu4e-loading-mode-map nil "Keymap for *mu4e-loading* buffers.")
(unless mu4e-loading-mode-map
(setq mu4e-loading-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "n" 'ignore)
(define-key map "p" 'ignore)
(define-key map "q"
(lambda()(interactive)
(if (eq mu4e-split-view 'single-window)
'kill-buffer
'kill-buffer-and-window)))
map)))
(fset 'mu4e-loading-mode-map mu4e-loading-mode-map)
(define-derived-mode mu4e-loading-mode special-mode
"mu4e:loading"
(use-local-map mu4e-loading-mode-map)
(let ((inhibit-read-only t))
(erase-buffer)
(insert (propertize "Loading message..."
'face 'mu4e-system-face 'intangible t))))
;;;
(provide 'mu4e-view)
;;; mu4e-view.el ends here