   (when init-file-debug
     (message "(Spacemacs) %s" (apply 'format msg args))))
 
+(defvar spacemacs-buffer--warnings nil
+  "List of warnings during startup.")
+
 (defun spacemacs-buffer/warning (msg &rest args)
   "Display MSG as a warning message but in buffer `*Messages*'.
 The message is always displayed. "
-  (message "(Spacemacs) Warning: %s" (apply 'format msg args)))
+  (let ((msg (apply 'format msg args)))
+    (message "(Spacemacs) Warning: %s" msg)
+    (add-to-list 'spacemacs-buffer--warnings msg 'append)))
 
 (defun spacemacs-buffer/insert-page-break ()
   "Insert a page break line in spacemacs buffer."

                     (or (cdr-safe els)
                         spacemacs-buffer-startup-lists-length)))
                (cond
                 ((eq el 'recents)
                  (recentf-mode)
                  (when (spacemacs-buffer//insert-file-list

                         (spacemacs//subseq (projectile-relevant-known-projects)
                                            0 list-size))
                    (spacemacs//insert--shortcut "p" "Projects:")
                    (insert list-separator))))))
            (append
             '(warnings)
             dotspacemacs-startup-lists))))

(defun spacemacs-buffer//get-buffer-width ()
  (save-excursion
