From e2f7c2217eaecff5ecaf44b77b75b1ae5a2069a0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 18 Jun 1996 22:35:10 +0000 Subject: [PATCH] (smtpmail-smtp-service): Use port 25 as default. (smtpmail-send-it): Require mail-utils upon entry. Don't invoke sendmail-synch-aliases. (smtpmail-deduce-address-list): Only use text matched in regexp group, not the whole regexp. --- lisp/mail/smtpmail.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 660dfa1b1f7..dcea31faa09 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -1,6 +1,6 @@ ;; Simple SMTP protocol (RFC 821) for sending mail -;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996 Free Software Foundation, Inc. ;; Author: Tomoji Kagatani ;; Keywords: mail @@ -45,11 +45,11 @@ (defvar smtpmail-default-smtp-server nil "*Specify default SMTP server.") -(defvar smtpmail-smtp-server (or (getenv "SMTPSERVER") - smtpmail-default-smtp-server) +(defvar smtpmail-smtp-server + (or (getenv "SMTPSERVER") smtpmail-default-smtp-server) "*The name of the host running SMTP server.") -(defvar smtpmail-smtp-service "smtp" +(defvar smtpmail-smtp-service 25 "*SMTP service port number. smtp or 25 .") (defvar smtpmail-local-domain nil @@ -68,6 +68,7 @@ don't define this value.") ;;; (defun smtpmail-send-it () + (require 'mail-utils) (let ((errbuf (if mail-interactive (generate-new-buffer " smtpmail errors") 0)) @@ -92,6 +93,7 @@ don't define this value.") (replace-match "\n") (backward-char 1) (setq delimline (point-marker)) +;; (sendmail-synch-aliases) (if mail-aliases (expand-mail-aliases (point-min) delimline)) (goto-char (point-min)) @@ -436,10 +438,10 @@ don't define this value.") (goto-char (point-min)) (let (recipient-address-list) - (while (re-search-forward " [^ ]+ " (point-max) t) + (while (re-search-forward " \\([^ ]+\\) " (point-max) t) (backward-char 1) - (setq recipient-address-list(cons (buffer-substring (match-beginning 0) (match-end 0)) - recipient-address-list)) + (setq recipient-address-list (cons (buffer-substring (match-beginning 1) (match-end 1)) + recipient-address-list)) ) (setq smtpmail-recipient-address-list recipient-address-list)) -- 2.39.2