From 88f2c9add0ee80e9864503136d01e5f91169bc71 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 22 May 2005 13:49:09 +0000 Subject: [PATCH] (smtpmail-open-stream): Use with-no-warnings. (smtpmail-send-queued-mail): Avoid beginning-of-buffer. (starttls-extra-args, starttls-extra-arguments): Add defvars. --- lisp/mail/smtpmail.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 3cf17f8968d..931e1417a2d 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -396,7 +396,7 @@ This is relative to `smtpmail-queue-dir'.") ;;; mail, send it, etc... (let ((file-msg "")) (insert-file-contents smtpmail-queue-index) - (beginning-of-buffer) + (goto-char (point-min)) (while (not (eobp)) (setq file-msg (buffer-substring (point) (line-end-position))) (load file-msg) @@ -465,11 +465,14 @@ This is relative to `smtpmail-queue-dir'.") (push el2 result))) (nreverse result))) +(defvar starttls-extra-args) +(defvar starttls-extra-arguments) + (defun smtpmail-open-stream (process-buffer host port) (let ((cred (smtpmail-find-credentials smtpmail-starttls-credentials host port))) (if (null (and cred (condition-case () - (progn + (with-no-warnings (require 'starttls) (call-process (if starttls-use-gnutls starttls-gnutls-program -- 2.39.5