diff options
Diffstat (limited to 'lisp/mail/smtpmail.el')
| -rw-r--r-- | lisp/mail/smtpmail.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 45b25b55301..8573532eac2 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -474,7 +474,7 @@ for `smtpmail-try-auth-method'.") (smtpmail--sanitize-error-message result)))))) (delete-file file-data) (delete-file file-elisp) - (delete-region (point-at-bol) (point-at-bol 2))) + (delete-region (line-beginning-position) (line-beginning-position 2))) (write-region (point-min) (point-max) qfile)))) (defun smtpmail--sanitize-error-message (string) @@ -577,7 +577,7 @@ for `smtpmail-try-auth-method'.") (stringp result)) (setq result (catch 'done (smtpmail-try-auth-method - process (pop mechs) user password)))) + process (intern-soft (pop mechs)) user password)))) ;; A string result is an error. (if (stringp result) (progn @@ -1057,7 +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 (point-at-bol) (point-at-eol))) + (setq sending-data (buffer-substring (line-beginning-position) + (line-end-position))) (end-of-line 2) (setq data-continue (not (eobp)))) (smtpmail-send-data-1 process sending-data)) |