summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorManuel Giraud <manuel@ledu-giraud.fr>2023-11-01 13:59:37 +0100
committerEli Zaretskii <eliz@gnu.org>2023-11-04 10:41:38 +0200
commitc0601fb534b200fcaf2bc2a1dd0b7dc1090bbbe6 (patch)
treea0cd74b457ca449c47dea654ee49cddfd92547e7 /lisp
parentce4a62eece608f13db2449e5d4e2d38f253663c4 (diff)
downloademacs-c0601fb534b200fcaf2bc2a1dd0b7dc1090bbbe6.tar.gz
emacs-c0601fb534b200fcaf2bc2a1dd0b7dc1090bbbe6.tar.bz2
emacs-c0601fb534b200fcaf2bc2a1dd0b7dc1090bbbe6.zip
Don't need text properties when sending a mail
* lisp/mail/smtpmail.el (smtpmail-send-data): Don't get text properties when sending mail data. (Bug#66880)
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mail/smtpmail.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 78688d170cc..e30c69f2441 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -1057,8 +1057,8 @@ Returns an error if the server cannot be contacted."
(while data-continue
(with-current-buffer buffer
(progress-reporter-update pr (point))
- (setq sending-data (buffer-substring (line-beginning-position)
- (line-end-position)))
+ (setq sending-data (buffer-substring-no-properties (line-beginning-position)
+ (line-end-position)))
(end-of-line 2)
(setq data-continue (not (eobp))))
(smtpmail-send-data-1 process sending-data))