 ;; infinite recursion, but it isn't -- remember that the recipe
 ;; repositories are only consulted by `straight--convert-recipe' in
 ;; the case that the MELPA-style recipe is provided as just a package
-;; name (instead of a list).
+;; name (instead of a list). Note that there's no reason to provide a
+;; `cause', since no messages should be printed.
 
 (setq melpa-recipe (straight--convert-recipe
                     '(melpa :fetcher github

  ;; as a last resort, non-Git MELPA recipes.
  (let* (;; If `sources' is omitted, allow all sources.
         (sources (or sources '(melpa gnu-elpa emacsmirror)))
         ;; Get the MELPA recipe first. We're keeping it around so
         ;; that if it's a non-Git-based recipe, but we can't find the
         ;; package anywhere else, then we can avoid needing to
         ;; recalculate the recipe.
         (melpa-recipe (and (member 'melpa sources)
                            (straight--get-melpa-recipe package))))
    ;; Git-based recipes in MELPA are ideal (since Git is the only VCS
    ;; that straight.el supports).
    (if (member (plist-get (cdr melpa-recipe) :fetcher)

                       'string-lessp)
                      (lambda (elt) t)
                      'require-match)))
           ;; No need to provide a `cause' to
           ;; `straight--lookup-recipe'; it should not be printing any
           ;; messages.
           (recipe (straight--lookup-recipe package sources)))
      (pcase action
        ('insert (insert (format "%S" recipe)))
