   (interactive (list (if current-prefix-arg
                          'copy
                        'insert)))
-  (straight--get-recipe-interactively '(melpa gnu-elpa emacsmirror) action))
+  (straight--get-recipe-interactively nil action))
 
 ;;;###autoload
 (defun straight-get-melpa-recipe (&optional action)

             (full-melpa-style-recipe
              (if recipe-specified-p
                  melpa-style-recipe
                (straight--lookup-recipe melpa-style-recipe))))
        ;; MELPA-style recipe format is a list whose car is the
        ;; package name as a symbol, and whose cdr is a plist.
        (cl-destructuring-bind (package . plist) full-melpa-style-recipe

               ;; under consideration was present in the build cache),
               ;; then we still only need to rebuild it if it
               ;; specifically has changed.
               (or (not (stringp last-mtime)) ; shouldn't happen
                   (with-temp-buffer
                     (let ((default-directory
                             (straight--dir "repos" local-repo)))
