(smtpmail-open-stream): Use with-no-warnings.

(smtpmail-send-queued-mail): Avoid beginning-of-buffer.
(starttls-extra-args, starttls-extra-arguments): Add defvars.

1 files 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