Fix compilation warning in previous sendmail.el change

* lisp/mail/sendmail.el (mm-long-lines-p): Fix compilation warning.
This commit is contained in:
Lars Ingebrigtsen 2022-02-20 13:45:56 +01:00
parent f0b4f2ee6b
commit 84fe486660

View file

@ -877,7 +877,7 @@ The variable is used to trigger insertion of the \"Mail-Followup-To\"
header when sending a message to a mailing list."
:type '(repeat string))
(declare-function mml-to-mime "mml" ())
(declare-function mm-long-lines-p "mm-bodies" (length))
(defun mail-send ()
"Send the message in the current buffer.
@ -955,6 +955,7 @@ the user from the mailer."
(error "Invalid header line (maybe a continuation line lacks initial whitespace)"))
(forward-line 1)))
(goto-char opoint)
(require 'mml)
(when (or mail-encode-mml
;; When we have long lines, we have to MIME encode
;; to get line folding.