     (cl-return-from straight--ensure-profile-cache-valid t))
   (unless (y-or-n-p "Caches are outdated, reload init-file? ")
     (cl-return-from straight--ensure-profile-cache-valid nil))
-  (message "Reloading %S..." user-init-file)
+  (straight--output "Reloading %S..." user-init-file)
   (load user-init-file nil 'nomessage)
-  (message "Reloading %S...done" user-init-file)
+  (straight--output "Reloading %S...done" user-init-file)
   (when straight--profile-cache-valid
     (cl-return-from straight--ensure-profile-cache-valid t))
   (error "Caches are still outdated; something is seriously wrong"))

      (pcase action
        (`insert (insert (format "%S" recipe)))
        (`copy (kill-new (format "%S" recipe))
               (message "Copied \"%S\" to kill ring" recipe))
        (_ recipe)))))

;;;;; Jump to package website

             ;; In interactive use, tell the user how to install
             ;; packages permanently.
             (when (and interactive (not already-registered))
               (straight--output
                (concat "If you want to keep %s, put "
                        "(straight-use-package %s%S) "
                        "in your init-file.")
