Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b21dc761
Commit
b21dc761
authored
Jun 18, 1996
by
Richard M. Stallman
Browse files
(smtpmail-via-smtp): Bracket names in FROM and RCPT TO commands.
parent
0e2701ca
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
lisp/mail/smtpmail.el
lisp/mail/smtpmail.el
+2
-2
No files found.
lisp/mail/smtpmail.el
View file @
b21dc761
...
...
@@ -267,7 +267,7 @@ don't define this value.")
;; MAIL FROM: <sender>
; (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn)))
(
smtpmail-send-command
process
(
format
"MAIL FROM:%s"
user-mail-address
))
(
smtpmail-send-command
process
(
format
"MAIL FROM:
<
%s
>
"
user-mail-address
))
(
if
(
or
(
null
(
car
(
setq
response-code
(
smtpmail-read-response
process
))))
(
not
(
integerp
(
car
response-code
)))
...
...
@@ -278,7 +278,7 @@ don't define this value.")
;; RCPT TO: <recipient>
(
let
((
n
0
))
(
while
(
not
(
null
(
nth
n
recipient
)))
(
smtpmail-send-command
process
(
format
"RCPT TO: %s"
(
nth
n
recipient
)))
(
smtpmail-send-command
process
(
format
"RCPT TO:
<
%s
>
"
(
nth
n
recipient
)))
(
setq
n
(
1+
n
))
(
if
(
or
(
null
(
car
(
setq
response-code
(
smtpmail-read-response
process
))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment