Mercurial > emacs

changeset 62621:078b075e8984

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(smtpmail-open-stream): Use with-no-warnings. (smtpmail-send-queued-mail): Avoid beginning-of-buffer. (starttls-extra-args, starttls-extra-arguments): Add defvars.
author Richard M. Stallman <rms@gnu.org>
date Sun, 22 May 2005 13:49:09 +0000
parents 564274a2eaa2
children d27edfeb78fa
files lisp/mail/smtpmail.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el	Sun May 22 13:43:55 2005 +0000
+++ b/lisp/mail/smtpmail.el	Sun May 22 13:49:09 2005 +0000
@@ -396,7 +396,7 @@
     ;;; 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 @@
 	(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