diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-02-20 13:45:56 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-02-20 13:45:56 +0100 |
| commit | 84fe4866605ae47cdfe7059fad0c3ace7d324a68 (patch) | |
| tree | a890705ae7c82a97285990ac52b911cd93c553d9 /lisp/mail | |
| parent | f0b4f2ee6bbef2ea4596568703e1f267eb4a46aa (diff) | |
| download | emacs-84fe4866605ae47cdfe7059fad0c3ace7d324a68.tar.gz emacs-84fe4866605ae47cdfe7059fad0c3ace7d324a68.tar.bz2 emacs-84fe4866605ae47cdfe7059fad0c3ace7d324a68.zip | |
Fix compilation warning in previous sendmail.el change
* lisp/mail/sendmail.el (mm-long-lines-p): Fix compilation warning.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/sendmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 0d3eeecd8c8..c55cdc8412a 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -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. |