bug#33055: 27.0.50; load-prefer-newer loads wrong file

[Glenn Morris]

Juri Linkov wrote:

> --- a/lisp/mail/smtpmail.el
> +++ b/lisp/mail/smtpmail.el
> @@ -407,6 +407,11 @@ smtpmail-send-queued-mail
>      (let ((file-msg "")
>            (qfile (expand-file-name smtpmail-queue-index-file
>                                     smtpmail-queue-dir))
> +          ;; To ensure that `load' below will load the right file
> +          ;; with the suffix `.el' instead of a newer text file
> +          ;; with the same name and without the suffix `.el',
> +          ;; force load-prefer-newer to be nil:
> +          (load-prefer-newer nil)
>         result)
>        (insert-file-contents qfile)
>        (goto-char (point-min))

Perhaps it would be cleaner for the load statement to use the precise
filename that it wants to load (ie, explicitly add the .el suffix)?