summaryrefslogtreecommitdiff
path: root/lisp/mail/sendmail.el
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2019-02-16 11:20:09 -0800
committerPaul Eggert <eggert@cs.ucla.edu>2019-02-16 12:00:02 -0800
commitb5e66f46a6f33f9d633e6cc3e0770a566bdfcf6b (patch)
treeae840d13fbb281fcef0b0ac35646b10710c06d86 /lisp/mail/sendmail.el
parent57ece2a0521e3167254f3b97fbfa7dc51aa9fea5 (diff)
downloademacs-b5e66f46a6f33f9d633e6cc3e0770a566bdfcf6b.tar.gz
Update citations of Internet RFCs
For example, RFC 822 has been obsoleted by RFC 2822, which in turn has been obsoleted by RFC 5322. * doc/emacs/ack.texi, doc/lispref/os.texi: * doc/misc/emacs-mime.texi, doc/misc/gnus-coding.texi: * doc/misc/gnus.texi, doc/misc/sc.texi: * lisp/calendar/parse-time.el, lisp/gnus/gnus-cite.el: * lisp/gnus/gnus-util.el, lisp/gnus/message.el: * lisp/gnus/mm-bodies.el, lisp/gnus/nnrss.el: * lisp/mail/feedmail.el, lisp/mail/ietf-drums.el: * lisp/mail/mail-extr.el, lisp/mail/mail-utils.el: * lisp/mail/mailclient.el, lisp/mail/mailheader.el: * lisp/mail/rfc2047.el, lisp/mail/rfc822.el, lisp/mail/rmail.el: * lisp/mail/sendmail.el, lisp/mail/smtpmail.el: * lisp/mail/supercite.el, lisp/mh-e/mh-e.el: * lisp/mh-e/mh-utils.el, lisp/net/imap.el: * lisp/net/newst-backend.el, lisp/org/org-id.el: * lisp/ps-samp.el, lisp/simple.el, lisp/url/url-util.el: Update RFC citations.
Diffstat (limited to 'lisp/mail/sendmail.el')
-rw-r--r--lisp/mail/sendmail.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 58a2cd16011..21c85dae2cf 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -147,7 +147,7 @@ Otherwise, let mailer send back a message to report errors."
'smtpmail-send-it 'sendmail-query-once)
"Function to call to send the current buffer as mail.
The headers should be delimited by a line which is
-not a valid RFC822 header or continuation line,
+not a valid RFC 822 (or later) header or continuation line,
that matches the variable `mail-header-separator'.
This is used by the default mail-sending commands. See also
`message-send-mail-function' for use with the Message package."
@@ -905,7 +905,7 @@ the user from the mailer."
(ml (when mail-mailing-lists
;; The surrounding regexp assumes the use of
;; `mail-strip-quoted-names' on addresses before matching
- ;; Cannot deal with full RFC 822 freedom, but that is
+ ;; Cannot deal with full RFC 822 (or later), but that is
;; unlikely to be problematic.
(concat "\\(?:[[:space:];,]\\|\\`\\)"
(regexp-opt mail-mailing-lists t)
@@ -1041,7 +1041,7 @@ This function does not perform RFC2047 encoding."
(fullname-end (point-marker)))
(goto-char fullname-start)
;; Look for a character that cannot appear unquoted
- ;; according to RFC 822.
+ ;; according to RFC 822 (or later).
(if (or (re-search-forward "[^- !#-'*+/-9=?A-Z^-~]"
fullname-end 1)
quote-fullname)
@@ -1065,8 +1065,7 @@ This function does not perform RFC2047 encoding."
(insert "\""))
(let ((fullname-end (point-marker)))
(goto-char fullname-start)
- ;; RFC 822 says \ and nonmatching parentheses
- ;; must be escaped in comments.
+ ;; \ and nonmatching parentheses must be escaped in comments.
;; Escape every instance of ()\ ...
(while (re-search-forward "[()\\]" fullname-end 1)
(replace-match "\\\\\\&" t))