aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2019-02-16 11:20:09 -0800
committerPaul Eggert2019-02-16 12:00:02 -0800
commitb5e66f46a6f33f9d633e6cc3e0770a566bdfcf6b (patch)
treeae840d13fbb281fcef0b0ac35646b10710c06d86
parent57ece2a0521e3167254f3b97fbfa7dc51aa9fea5 (diff)
downloademacs-b5e66f46a6f33f9d633e6cc3e0770a566bdfcf6b.tar.gz
emacs-b5e66f46a6f33f9d633e6cc3e0770a566bdfcf6b.zip
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.
-rw-r--r--doc/emacs/ack.texi4
-rw-r--r--doc/lispref/os.texi2
-rw-r--r--doc/misc/emacs-mime.texi64
-rw-r--r--doc/misc/gnus-coding.texi2
-rw-r--r--doc/misc/gnus.texi35
-rw-r--r--doc/misc/sc.texi3
-rw-r--r--lisp/calendar/parse-time.el2
-rw-r--r--lisp/gnus/gnus-cite.el2
-rw-r--r--lisp/gnus/gnus-util.el2
-rw-r--r--lisp/gnus/message.el16
-rw-r--r--lisp/gnus/mm-bodies.el2
-rw-r--r--lisp/gnus/nnrss.el6
-rw-r--r--lisp/mail/feedmail.el8
-rw-r--r--lisp/mail/ietf-drums.el10
-rw-r--r--lisp/mail/mail-extr.el31
-rw-r--r--lisp/mail/mail-utils.el4
-rw-r--r--lisp/mail/mailclient.el2
-rw-r--r--lisp/mail/mailheader.el2
-rw-r--r--lisp/mail/rfc2047.el8
-rw-r--r--lisp/mail/rfc822.el6
-rw-r--r--lisp/mail/rmail.el18
-rw-r--r--lisp/mail/sendmail.el9
-rw-r--r--lisp/mail/smtpmail.el7
-rw-r--r--lisp/mail/supercite.el6
-rw-r--r--lisp/mh-e/mh-e.el18
-rw-r--r--lisp/mh-e/mh-utils.el4
-rw-r--r--lisp/net/imap.el18
-rw-r--r--lisp/net/newst-backend.el4
-rw-r--r--lisp/org/org-id.el6
-rw-r--r--lisp/ps-samp.el4
-rw-r--r--lisp/simple.el2
-rw-r--r--lisp/url/url-util.el3
32 files changed, 159 insertions, 151 deletions
diff --git a/doc/emacs/ack.texi b/doc/emacs/ack.texi
index 3ad67397354..0e4a982da40 100644
--- a/doc/emacs/ack.texi
+++ b/doc/emacs/ack.texi
@@ -829,8 +829,8 @@ command with its arguments.
829Richard Mlynarik wrote @file{cl-indent.el}, a package for indenting 829Richard Mlynarik wrote @file{cl-indent.el}, a package for indenting
830Common Lisp code; @file{ebuff-menu.el}, an electric browser for 830Common Lisp code; @file{ebuff-menu.el}, an electric browser for
831buffer listings; @file{ehelp.el}, bindings for browsing help screens; 831buffer listings; @file{ehelp.el}, bindings for browsing help screens;
832and @file{rfc822.el}, a parser for E-mail addresses in the RFC-822 format, 832and @file{rfc822.el}, a parser for E-mail addresses in the format
833used in mail messages and news articles. 833used in mail messages and news articles (Internet RFC 822 and its successors).
834 834
835@item 835@item
836Gerd Möllmann was the Emacs maintainer from the beginning of Emacs 21 836Gerd Möllmann was the Emacs maintainer from the beginning of Emacs 21
diff --git a/doc/lispref/os.texi b/doc/lispref/os.texi
index 2f3e91ce68c..a04f03bd463 100644
--- a/doc/lispref/os.texi
+++ b/doc/lispref/os.texi
@@ -1485,7 +1485,7 @@ following form:
1485The format of this list is the same as what @code{decode-time} accepts 1485The format of this list is the same as what @code{decode-time} accepts
1486(@pxref{Time Conversion}), and is described in more detail there. Any 1486(@pxref{Time Conversion}), and is described in more detail there. Any
1487element that cannot be determined from the input will be set to 1487element that cannot be determined from the input will be set to
1488@code{nil}. The argument @var{string} should resemble an RFC 2822 or 1488@code{nil}. The argument @var{string} should resemble an RFC 822 (or later) or
1489ISO 8601 string, like ``Fri, 25 Mar 2016 16:24:56 +0100'' or 1489ISO 8601 string, like ``Fri, 25 Mar 2016 16:24:56 +0100'' or
1490``1998-09-12T12:21:54-0200'', but this function will attempt to parse 1490``1998-09-12T12:21:54-0200'', but this function will attempt to parse
1491less well-formed time strings as well. 1491less well-formed time strings as well.
diff --git a/doc/misc/emacs-mime.texi b/doc/misc/emacs-mime.texi
index 9eb18f92ca1..373bdeb9013 100644
--- a/doc/misc/emacs-mime.texi
+++ b/doc/misc/emacs-mime.texi
@@ -698,13 +698,15 @@ Translation}.
698A description of the part (@code{Content-Description}). 698A description of the part (@code{Content-Description}).
699 699
700@item creation-date 700@item creation-date
701RFC822 date when the part was created (@code{Content-Disposition}). 701Date when the part was created (@code{Content-Disposition}).
702This uses the format of RFC 822 or its successors.
702 703
703@item modification-date 704@item modification-date
704RFC822 date when the part was modified (@code{Content-Disposition}). 705RFC 822 (or later) date when the part was modified
706(@code{Content-Disposition}).
705 707
706@item read-date 708@item read-date
707RFC822 date when the part was read (@code{Content-Disposition}). 709RFC 822 (or later) date when the part was read (@code{Content-Disposition}).
708 710
709@item recipients 711@item recipients
710Who to encrypt/sign the part to. This field is used to override any 712Who to encrypt/sign the part to. This field is used to override any
@@ -754,7 +756,7 @@ be obtained. Values include @samp{ftp}, @samp{anon-ftp}, @samp{tftp},
754@samp{localfile}, and @samp{mailserver}. (@code{Content-Type}.) 756@samp{localfile}, and @samp{mailserver}. (@code{Content-Type}.)
755 757
756@item expiration 758@item expiration
757The RFC822 date after which the file may no longer be fetched. 759RFC 822 (or later) date after which the file may no longer be fetched.
758(@code{Content-Type}.) 760(@code{Content-Type}.)
759 761
760@item size 762@item size
@@ -1301,7 +1303,7 @@ on. High-level functionality is dealt with in the first chapter
1301@menu 1303@menu
1302* rfc2045:: Encoding @code{Content-Type} headers. 1304* rfc2045:: Encoding @code{Content-Type} headers.
1303* rfc2231:: Parsing @code{Content-Type} headers. 1305* rfc2231:: Parsing @code{Content-Type} headers.
1304* ietf-drums:: Handling mail headers defined by RFC822bis. 1306* ietf-drums:: Handling mail headers defined by RFC 2822.
1305* rfc2047:: En/decoding encoded words in headers. 1307* rfc2047:: En/decoding encoded words in headers.
1306* time-date:: Functions for parsing dates and manipulating time. 1308* time-date:: Functions for parsing dates and manipulating time.
1307* qp:: Quoted-Printable en/decoding. 1309* qp:: Quoted-Printable en/decoding.
@@ -1385,8 +1387,8 @@ Encode a parameter in headers likes @code{Content-Type} and
1385@node ietf-drums 1387@node ietf-drums
1386@section ietf-drums 1388@section ietf-drums
1387 1389
1388@dfn{drums} is an IETF working group that is working on the replacement 1390@dfn{drums} was an IETF working group that worked on Internet RFC 2822,
1389for RFC822. 1391the first successor to RFC 822 and a predecessor of the current email standard.
1390 1392
1391The functions provided by this library include: 1393The functions provided by this library include:
1392 1394
@@ -1588,7 +1590,7 @@ The five data representations used are the following:
1588 1590
1589@table @var 1591@table @var
1590@item date 1592@item date
1591An RFC822 (or similar) date string. For instance: @code{"Sat Sep 12 1593An RFC 822 (or similar) date string. For instance: @code{"Sat Sep 12
159212:21:54 1998 +0200"}. 159412:21:54 1998 +0200"}.
1593 1595
1594@item time 1596@item time
@@ -1861,55 +1863,55 @@ Takes a @acronym{MIME} type as its argument and returns the matching viewer.
1861The Emacs @acronym{MIME} library implements handling of various elements 1863The Emacs @acronym{MIME} library implements handling of various elements
1862according to a (somewhat) large number of RFCs, drafts and standards 1864according to a (somewhat) large number of RFCs, drafts and standards
1863documents. This chapter lists the relevant ones. They can all be 1865documents. This chapter lists the relevant ones. They can all be
1864fetched from @uref{http://quimby.gnus.org/notes/}. 1866fetched from @uref{https://www.rfc-editor.org}.
1865 1867
1866@table @dfn 1868@table @dfn
1867@item RFC822 1869@item RFC 5322
1868@itemx STD11 1870Internet Message Format
1869Standard for the Format of ARPA Internet Text Messages.
1870 1871
1871@item RFC1036 1872@item RFC 5536
1872Standard for Interchange of USENET Messages 1873Netnews Article Format
1873 1874
1874@item RFC2045 1875@item RFC 2045
1875Format of Internet Message Bodies 1876Format of Internet Message Bodies
1876 1877
1877@item RFC2046 1878@item RFC 2046
1878Media Types 1879Media Types
1879 1880
1880@item RFC2047 1881@item RFC 2047
1881Message Header Extensions for Non-@acronym{ASCII} Text 1882Message Header Extensions for Non-@acronym{ASCII} Text
1882 1883
1883@item RFC2048 1884@item RFC 6838
1884Registration Procedures 1885Media Type Specifications and Registration Procedures
1886
1887@item RFC 4289
1888Registration Procedures (obsoleting RFC 2048)
1885 1889
1886@item RFC2049 1890@item RFC 2049
1887Conformance Criteria and Examples 1891Conformance Criteria and Examples
1888 1892
1889@item RFC2231 1893@item RFC 2231
1890@acronym{MIME} Parameter Value and Encoded Word Extensions: Character Sets, 1894@acronym{MIME} Parameter Value and Encoded Word Extensions: Character Sets,
1891Languages, and Continuations 1895Languages, and Continuations
1892 1896
1893@item RFC1843 1897@item RFC 1843
1894HZ---A Data Format for Exchanging Files of Arbitrarily Mixed Chinese and 1898HZ---A Data Format for Exchanging Files of Arbitrarily Mixed Chinese and
1895@acronym{ASCII} characters 1899@acronym{ASCII} characters
1896 1900
1897@item draft-ietf-drums-msg-fmt-05.txt 1901@item RFC 2387
1898Draft for the successor of RFC822
1899
1900@item RFC2112
1901The @acronym{MIME} Multipart/Related Content-type 1902The @acronym{MIME} Multipart/Related Content-type
1902 1903
1903@item RFC1892 1904@item RFC 6522
1904The Multipart/Report Content Type for the Reporting of Mail System 1905@itemx STD 73
1906The Multipart/Report Media Type for the Reporting of Mail System
1905Administrative Messages 1907Administrative Messages
1906 1908
1907@item RFC2183 1909@item RFC 2183
1908Communicating Presentation Information in Internet Messages: The 1910Communicating Presentation Information in Internet Messages: The
1909Content-Disposition Header Field 1911Content-Disposition Header Field
1910 1912
1911@item RFC2646 1913@item RFC 3676
1912Documentation of the text/plain format parameter for flowed text. 1914The Text/Plain Format and DelSp Parameters
1913 1915
1914@end table 1916@end table
1915 1917
diff --git a/doc/misc/gnus-coding.texi b/doc/misc/gnus-coding.texi
index 87af5e902e5..95544628f79 100644
--- a/doc/misc/gnus-coding.texi
+++ b/doc/misc/gnus-coding.texi
@@ -141,7 +141,7 @@ There are no Gnus dependencies in this file.
141There are no Gnus dependencies in this file. 141There are no Gnus dependencies in this file.
142 142
143@item ietf-drums.el 143@item ietf-drums.el
144Functions for parsing RFC822bis headers. 144Functions for parsing RFC 2822 headers.
145@c As of 2005-10-21... 145@c As of 2005-10-21...
146There are no Gnus dependencies in this file. 146There are no Gnus dependencies in this file.
147 147
diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 0ccd52f9d4f..a0c57329433 100644
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -9655,7 +9655,7 @@ Each article is divided into two parts---the head and the body. The
9655body can be divided into a signature part and a text part. The variable 9655body can be divided into a signature part and a text part. The variable
9656that says what is to be considered a signature is 9656that says what is to be considered a signature is
9657@code{gnus-signature-separator}. This is normally the standard 9657@code{gnus-signature-separator}. This is normally the standard
9658@samp{^-- $} as mandated by son-of-RFC 1036. However, many people use 9658@samp{^-- $} as mandated by RFC 5536. However, many people use
9659non-standard signature separators, so this variable can also be a list 9659non-standard signature separators, so this variable can also be a list
9660of regular expressions to be tested, one by one. (Searches are done 9660of regular expressions to be tested, one by one. (Searches are done
9661from the end of the body towards the beginning.) One likely value is: 9661from the end of the body towards the beginning.) One likely value is:
@@ -15956,8 +15956,9 @@ Mailers and list servers are notorious for doing all sorts of really,
15956really stupid things with mail. ``Hey, RFC 822 doesn't explicitly 15956really stupid things with mail. ``Hey, RFC 822 doesn't explicitly
15957prohibit us from adding the string @code{wE aRe ElItE!!!!!1!!} to the 15957prohibit us from adding the string @code{wE aRe ElItE!!!!!1!!} to the
15958end of all lines passing through our server, so let's do that!!!!1!'' 15958end of all lines passing through our server, so let's do that!!!!1!''
15959Yes, but RFC 822 wasn't designed to be read by morons. Things that were 15959Yes, but RFC 822 and its successors weren't designed to be read by
15960considered to be self-evident were not discussed. So. Here we are. 15960morons. Things that were considered to be self-evident were not
15961discussed. So. Here we are.
15961 15962
15962Case in point: The German version of Microsoft Exchange adds @samp{AW: 15963Case in point: The German version of Microsoft Exchange adds @samp{AW:
15963} to the subjects of replies instead of @samp{Re: }. I could pretend to 15964} to the subjects of replies instead of @samp{Re: }. I could pretend to
@@ -17339,7 +17340,7 @@ Announcement messages from LANL Gov Announce.
17339 17340
17340@cindex forwarded messages 17341@cindex forwarded messages
17341@item rfc822-forward 17342@item rfc822-forward
17342A message forwarded according to RFC822. 17343A message forwarded according to RFC 822 or its successors.
17343 17344
17344@item outlook 17345@item outlook
17345The Outlook mail box. 17346The Outlook mail box.
@@ -26674,18 +26675,20 @@ with, of course.
26674 26675
26675@table @strong 26676@table @strong
26676 26677
26677@item RFC (2)822 26678@item RFC 822
26678@cindex RFC 822 26679@cindex RFC 822
26679@cindex RFC 2822 26680@cindex RFC 2822
26680There are no known breaches of this standard. 26681@cindex RFC 5322
26682There are no known breaches of this standard or its successors
26683(currently RFCs 2822 and 5322).
26681 26684
26682@item RFC 1036 26685@item RFC 1036
26683@cindex RFC 1036 26686@cindex RFC 1036
26684There are no known breaches of this standard, either. 26687There are no known breaches of this (now-obsolete) standard, either.
26685 26688
26686@item Son-of-RFC 1036 26689@item RFC 5536
26687@cindex Son-of-RFC 1036 26690@cindex RFC 5536
26688We do have some breaches to this one. 26691We do have some breaches of this standard, the successor of RFC 1036.
26689 26692
26690@table @emph 26693@table @emph
26691 26694
@@ -26700,10 +26703,9 @@ it wasn't for the @code{X-Newsreader} header.
26700 26703
26701@item USEFOR 26704@item USEFOR
26702@cindex USEFOR 26705@cindex USEFOR
26703USEFOR is an IETF working group writing a successor to RFC 1036, based 26706USEFOR was an IETF working group that produced Internet RFCs 5536 and 5537.
26704on Son-of-RFC 1036. They have produced a number of drafts proposing 26707The Gnus towers will look into implementing the changes embodied by these
26705various changes to the format of news articles. The Gnus towers will 26708standards.
26706look into implementing the changes when the draft is accepted as an RFC.
26707 26709
26708@item MIME---RFC 2045--2049 etc 26710@item MIME---RFC 2045--2049 etc
26709@cindex @acronym{MIME} 26711@cindex @acronym{MIME}
@@ -29482,7 +29484,8 @@ header = <text> eol
29482@end example 29484@end example
29483 29485
29484@cindex BNF 29486@cindex BNF
29485(The version of BNF used here is the one used in RFC822.) 29487(The version of extended BNF used here is ABNF, the one used in Internet RFCs.
29488See RFC 5234.)
29486 29489
29487If the return value is @code{nov}, the data buffer should contain 29490If the return value is @code{nov}, the data buffer should contain
29488@dfn{network overview database} lines. These are basically fields 29491@dfn{network overview database} lines. These are basically fields
@@ -30280,7 +30283,7 @@ almost suspect that the author looked at the @acronym{NOV} specification and
30280just shamelessly @emph{stole} the entire thing, and one would be right. 30283just shamelessly @emph{stole} the entire thing, and one would be right.
30281 30284
30282@dfn{Header} is a severely overloaded term. ``Header'' is used in 30285@dfn{Header} is a severely overloaded term. ``Header'' is used in
30283RFC 1036 to talk about lines in the head of an article (e.g., 30286RFC 5536 to talk about lines in the head of an article (e.g.,
30284@code{From}). It is used by many people as a synonym for 30287@code{From}). It is used by many people as a synonym for
30285``head''---``the header and the body''. (That should be avoided, in my 30288``head''---``the header and the body''. (That should be avoided, in my
30286opinion.) And Gnus uses a format internally that it calls ``header'', 30289opinion.) And Gnus uses a format internally that it calls ``header'',
diff --git a/doc/misc/sc.texi b/doc/misc/sc.texi
index 8b25dac32fb..7d53c6dbe5e 100644
--- a/doc/misc/sc.texi
+++ b/doc/misc/sc.texi
@@ -851,7 +851,8 @@ scanned. Info key-value pairs are created for each header found. Also,
851such useful information as the author's name and email address are 851such useful information as the author's name and email address are
852extracted. If the variable @code{sc-mail-warn-if-non-rfc822-p} is 852extracted. If the variable @code{sc-mail-warn-if-non-rfc822-p} is
853non-@code{nil}, then Supercite will warn you if it finds a mail header 853non-@code{nil}, then Supercite will warn you if it finds a mail header
854that does not conform to RFC822. This is rare and indicates a problem 854that does not conform to RFC 822 (or later).
855This is rare and indicates a problem
855either with your MUA or the original author's MUA, or some MTA (mail 856either with your MUA or the original author's MUA, or some MTA (mail
856transport agent) along the way. 857transport agent) along the way.
857 858
diff --git a/lisp/calendar/parse-time.el b/lisp/calendar/parse-time.el
index 9b404060614..41806cfc375 100644
--- a/lisp/calendar/parse-time.el
+++ b/lisp/calendar/parse-time.el
@@ -146,7 +146,7 @@ letters, digits, plus or minus signs or colons."
146;;;###autoload 146;;;###autoload
147(defun parse-time-string (string) 147(defun parse-time-string (string)
148 "Parse the time-string STRING into (SEC MIN HOUR DAY MON YEAR DOW DST TZ). 148 "Parse the time-string STRING into (SEC MIN HOUR DAY MON YEAR DOW DST TZ).
149STRING should be on something resembling an RFC2822 string, a la 149STRING should be something resembling an RFC 822 (or later) date-time, e.g.,
150\"Fri, 25 Mar 2016 16:24:56 +0100\", but this function is 150\"Fri, 25 Mar 2016 16:24:56 +0100\", but this function is
151somewhat liberal in what format it accepts, and will attempt to 151somewhat liberal in what format it accepts, and will attempt to
152return a \"likely\" value even for somewhat malformed strings. 152return a \"likely\" value even for somewhat malformed strings.
diff --git a/lisp/gnus/gnus-cite.el b/lisp/gnus/gnus-cite.el
index d887a205f95..d8b6df70bd4 100644
--- a/lisp/gnus/gnus-cite.el
+++ b/lisp/gnus/gnus-cite.el
@@ -94,7 +94,7 @@ The first regexp group should match the Supercite attribution."
94;; -----Original Message----- 94;; -----Original Message-----
95;; From: ... 95;; From: ...
96;; To: ... 96;; To: ...
97;; Sent: ... [date, in non-RFC-2822 format] 97;; Sent: ... [date, in non-RFC-822-or-later format]
98;; Subject: ... 98;; Subject: ...
99;; 99;;
100;; Cited message, with no prefixes 100;; Cited message, with no prefixes
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index f2f0ae98eaf..ae8cd45672e 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -140,7 +140,7 @@ This is a compatibility function for different Emacsen."
140 140
141(defun gnus-extract-address-components (from) 141(defun gnus-extract-address-components (from)
142 "Extract address components from a From header. 142 "Extract address components from a From header.
143Given an RFC-822 address FROM, extract full name and canonical address. 143Given an RFC-822 (or later) address FROM, extract name and address.
144Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). Much more simple 144Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). Much more simple
145solution than `mail-extract-address-components', which works much better, but 145solution than `mail-extract-address-components', which works much better, but
146is slower." 146is slower."
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 28f6fecc76a..0d166fb8ce0 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1274,10 +1274,9 @@ called and its result is inserted."
1274 (goto-char (point-min)) 1274 (goto-char (point-min))
1275 (let ((case-fold-search nil)) 1275 (let ((case-fold-search nil))
1276 (re-search-forward "^OR\\>" nil t)))) 1276 (re-search-forward "^OR\\>" nil t))))
1277 ;; According to RFC822, "The field-name must be composed of printable 1277 ;; According to RFC 822 and its successors, the field name must
1278 ;; ASCII characters (i. e., characters that have decimal values between 1278 ;; consist of printable US-ASCII characters other than colon,
1279 ;; 33 and 126, except colon)", i. e., any chars except ctl chars, 1279 ;; i.e., decimal 33-56 and 59-126.
1280 ;; space, or colon.
1281 '(looking-at "[ \t]\\|[][!\"#$%&'()*+,-./0-9;<=>?@A-Z\\\\^_`a-z{|}~]+:")) 1280 '(looking-at "[ \t]\\|[][!\"#$%&'()*+,-./0-9;<=>?@A-Z\\\\^_`a-z{|}~]+:"))
1282 "Set this non-nil if the system's mailer runs the header and body together. 1281 "Set this non-nil if the system's mailer runs the header and body together.
1283\(This problem exists on Sunos 4 when sendmail is run in remote mode.) 1282\(This problem exists on Sunos 4 when sendmail is run in remote mode.)
@@ -1800,8 +1799,8 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'."
1800 (concat 1799 (concat
1801 "From " 1800 "From "
1802 1801
1803 ;; Many things can happen to an RFC 822 mailbox before it is put into 1802 ;; Many things can happen to an RFC 822 (or later) mailbox before it is
1804 ;; a `From' line. The leading phrase can be stripped, e.g. 1803 ;; put into a `From' line. The leading phrase can be stripped, e.g.
1805 ;; `Joe <@w.x:joe@y.z>' -> `<@w.x:joe@y.z>'. The <> can be stripped, e.g. 1804 ;; `Joe <@w.x:joe@y.z>' -> `<@w.x:joe@y.z>'. The <> can be stripped, e.g.
1806 ;; `<@x.y:joe@y.z>' -> `@x.y:joe@y.z'. Everything starting with a CRLF 1805 ;; `<@x.y:joe@y.z>' -> `@x.y:joe@y.z'. Everything starting with a CRLF
1807 ;; can be removed, e.g. 1806 ;; can be removed, e.g.
@@ -5697,7 +5696,7 @@ In posting styles use `(\"Expires\" (make-expires-date 30))'."
5697 (insert fullname) 5696 (insert fullname)
5698 (goto-char (point-min)) 5697 (goto-char (point-min))
5699 ;; Look for a character that cannot appear unquoted 5698 ;; Look for a character that cannot appear unquoted
5700 ;; according to RFC 822. 5699 ;; according to RFC 822 (or later).
5701 (when (re-search-forward "[^- !#-'*+/-9=?A-Z^-~]" nil 1) 5700 (when (re-search-forward "[^- !#-'*+/-9=?A-Z^-~]" nil 1)
5702 ;; Quote fullname, escaping specials. 5701 ;; Quote fullname, escaping specials.
5703 (goto-char (point-min)) 5702 (goto-char (point-min))
@@ -5711,8 +5710,7 @@ In posting styles use `(\"Expires\" (make-expires-date 30))'."
5711 (let ((fullname-start (point))) 5710 (let ((fullname-start (point)))
5712 (insert fullname) 5711 (insert fullname)
5713 (goto-char fullname-start) 5712 (goto-char fullname-start)
5714 ;; RFC 822 says \ and nonmatching parentheses 5713 ;; \ and nonmatching parentheses must be escaped in comments.
5715 ;; must be escaped in comments.
5716 ;; Escape every instance of ()\ ... 5714 ;; Escape every instance of ()\ ...
5717 (while (re-search-forward "[()\\]" nil 1) 5715 (while (re-search-forward "[()\\]" nil 1)
5718 (replace-match "\\\\\\&" t)) 5716 (replace-match "\\\\\\&" t))
diff --git a/lisp/gnus/mm-bodies.el b/lisp/gnus/mm-bodies.el
index 23fd565d1af..298127a3f44 100644
--- a/lisp/gnus/mm-bodies.el
+++ b/lisp/gnus/mm-bodies.el
@@ -35,7 +35,7 @@
35;; BS, vertical TAB, form feed, and ^_ 35;; BS, vertical TAB, form feed, and ^_
36;; 36;;
37;; Note that CR is *not* included, as that would allow a non-paired CR 37;; Note that CR is *not* included, as that would allow a non-paired CR
38;; in the body contrary to RFC 2822: 38;; in the body contrary to RFC 822 (or later):
39;; 39;;
40;; - CR and LF MUST only occur together as CRLF; they MUST NOT 40;; - CR and LF MUST only occur together as CRLF; they MUST NOT
41;; appear independently in the body. 41;; appear independently in the body.
diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el
index b03a2037dde..01cf7c08c98 100644
--- a/lisp/gnus/nnrss.el
+++ b/lisp/gnus/nnrss.el
@@ -446,16 +446,16 @@ nnrss: %s: Not valid XML %s and libxml-parse-html-region doesn't work %s"
446(autoload 'timezone-parse-date "timezone") 446(autoload 'timezone-parse-date "timezone")
447 447
448(defun nnrss-normalize-date (date) 448(defun nnrss-normalize-date (date)
449 "Return a date string of DATE in the RFC822 style. 449 "Return a date string of DATE in the style of RFC 822 and its successors.
450This function handles the ISO 8601 date format described in 450This function handles the ISO 8601 date format described in
451URL `http://www.w3.org/TR/NOTE-datetime', and also the RFC822 style 451URL `http://www.w3.org/TR/NOTE-datetime', and also the RFC 822 style
452which RSS 2.0 allows." 452which RSS 2.0 allows."
453 (let (case-fold-search vector year month day time zone cts given) 453 (let (case-fold-search vector year month day time zone cts given)
454 (cond ((null date)) ; do nothing for this case 454 (cond ((null date)) ; do nothing for this case
455 ;; if the date is just digits (unix time stamp): 455 ;; if the date is just digits (unix time stamp):
456 ((string-match "^[0-9]+$" date) 456 ((string-match "^[0-9]+$" date)
457 (setq given (seconds-to-time (string-to-number date)))) 457 (setq given (seconds-to-time (string-to-number date))))
458 ;; RFC822 458 ;; RFC 822
459 ((string-match " [0-9]+ " date) 459 ((string-match " [0-9]+ " date)
460 (setq vector (timezone-parse-date date) 460 (setq vector (timezone-parse-date date)
461 year (string-to-number (aref vector 0))) 461 year (string-to-number (aref vector 0)))
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index e0bd4590b13..27ebe162491 100644
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -560,7 +560,7 @@ but common in some proprietary systems."
560;; maybe some distant mail system needs it. Really, though, if you 560;; maybe some distant mail system needs it. Really, though, if you
561;; want a sender line in your mail, just put one in there and don't 561;; want a sender line in your mail, just put one in there and don't
562;; wait for feedmail to do it for you. (Yes, I know all about 562;; wait for feedmail to do it for you. (Yes, I know all about
563;; RFC-822 and RFC-1123, but are you *really* one of those cases 563;; RFC-822-or-later and RFC-1123, but are you *really* one of those cases
564;; they're talking about? I doubt it.) 564;; they're talking about? I doubt it.)
565(defcustom feedmail-sender-line nil 565(defcustom feedmail-sender-line nil
566 "If non-nil and the email has no Sender: header, use this value. 566 "If non-nil and the email has no Sender: header, use this value.
@@ -786,7 +786,7 @@ cases the name element of the fiddle-plex is ignored and is hardwired
786by feedmail to either \"Date\" or \"Resent-Date\". 786by feedmail to either \"Date\" or \"Resent-Date\".
787 787
788If you decide to format your own date field, do us all a favor and know 788If you decide to format your own date field, do us all a favor and know
789what you're doing. Study the relevant parts of RFC-822 and RFC-1123. 789what you're doing. Study the relevant parts of RFC-822-or-later and RFC-1123.
790Don't make me come up there! 790Don't make me come up there!
791 791
792You should let feedmail generate a Date: for you unless you are sure 792You should let feedmail generate a Date: for you unless you are sure
@@ -1514,7 +1514,7 @@ function, for example, to archive all of your sent messages someplace
1514 1514
1515 1515
1516(defvar feedmail-is-a-resend nil 1516(defvar feedmail-is-a-resend nil
1517 "Non-nil means the message is a Resend (in the RFC-822 sense). 1517 "Non-nil means the message is a Resend (in the RFC-822-or-later sense).
1518This affects the composition of certain headers. feedmail sets this 1518This affects the composition of certain headers. feedmail sets this
1519variable as soon as it starts prepping the message text buffer, so any 1519variable as soon as it starts prepping the message text buffer, so any
1520user-supplied functions can rely on it. Users shouldn't set or change this 1520user-supplied functions can rely on it. Users shouldn't set or change this
@@ -2454,7 +2454,7 @@ mapped to mostly alphanumerics for safety."
2454 2454
2455 (let ((case-fold-search t) (addr-regexp)) 2455 (let ((case-fold-search t) (addr-regexp))
2456 (goto-char (point-min)) 2456 (goto-char (point-min))
2457 ;; There are some RFC-822 combinations/cases missed here, 2457 ;; There are some RFC-822-or-later combinations/cases missed here,
2458 ;; but probably good enough and what users expect. 2458 ;; but probably good enough and what users expect.
2459 ;; 2459 ;;
2460 ;; Use resent-* stuff only if there is at least one non-empty one. 2460 ;; Use resent-* stuff only if there is at least one non-empty one.
diff --git a/lisp/mail/ietf-drums.el b/lisp/mail/ietf-drums.el
index 6501a99f7bc..bc0fc2b74e6 100644
--- a/lisp/mail/ietf-drums.el
+++ b/lisp/mail/ietf-drums.el
@@ -1,4 +1,4 @@
1;;; ietf-drums.el --- Functions for parsing RFC822bis headers 1;;; ietf-drums.el --- Functions for parsing RFC 2822 headers
2 2
3;; Copyright (C) 1998-2019 Free Software Foundation, Inc. 3;; Copyright (C) 1998-2019 Free Software Foundation, Inc.
4 4
@@ -20,10 +20,10 @@
20 20
21;;; Commentary: 21;;; Commentary:
22 22
23;; DRUMS is an IETF Working Group that works (or worked) on the 23;; DRUMS is an IETF Working Group that worked on Internet RFC 2822,
24;; successor to RFC822, "Standard For The Format Of Arpa Internet Text 24;; the successor to RFC 822 and the predecessor of RFC 5322. This
25;; Messages". This library is based on 25;; library is based on draft-ietf-drums-msg-fmt-05.txt, released on
26;; draft-ietf-drums-msg-fmt-05.txt, released on 1998-08-05. 26;; 1998-08-05.
27 27
28;; Pending a real regression self test suite, Simon Josefsson added 28;; Pending a real regression self test suite, Simon Josefsson added
29;; various self test expressions snipped from bug reports, and their 29;; various self test expressions snipped from bug reports, and their
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index aca6dae976f..9fcc2707d75 100644
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -1,4 +1,4 @@
1;;; mail-extr.el --- extract full name and address from RFC 822 mail header 1;;; mail-extr.el --- extract full name and address from email header
2 2
3;; Copyright (C) 1991-1994, 1997, 2001-2019 Free Software Foundation, 3;; Copyright (C) 1991-1994, 1997, 2001-2019 Free Software Foundation,
4;; Inc. 4;; Inc.
@@ -29,15 +29,15 @@
29;; 29;;
30;; mail-extract-address-components: (address &optional all) 30;; mail-extract-address-components: (address &optional all)
31;; 31;;
32;; Given an RFC-822 ADDRESS, extract full name and canonical address. 32;; Given an RFC-822-or-later ADDRESS, extract name and address.
33;; Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). 33;; Returns a list of the form (FULL-NAME CANONICAL-ADDRESS).
34;; If no name can be extracted, FULL-NAME will be nil. 34;; If no name can be extracted, FULL-NAME will be nil.
35;; ADDRESS may be a string or a buffer. If it is a buffer, the visible 35;; ADDRESS may be a string or a buffer. If it is a buffer, the visible
36;; (narrowed) portion of the buffer will be interpreted as the address. 36;; (narrowed) portion of the buffer will be interpreted as the address.
37;; (This feature exists so that the clever caller might be able to avoid 37;; (This feature exists so that the clever caller might be able to avoid
38;; consing a string.) 38;; consing a string.)
39;; If ADDRESS contains more than one RFC-822 address, only the first is 39;; If ADDRESS contains more than one RFC-822-or-later address, only
40;; returned. 40;; the first is returned.
41;; 41;;
42;; If ALL is non-nil, that means return info about all the addresses 42;; If ALL is non-nil, that means return info about all the addresses
43;; that are found in ADDRESS. The value is a list of elements of 43;; that are found in ADDRESS. The value is a list of elements of
@@ -149,7 +149,7 @@
149;; * Handle "null" addresses. Handle = used for spacing in mailbox 149;; * Handle "null" addresses. Handle = used for spacing in mailbox
150;; name. Fix bug in handling of ROUTE-ADDR-type addresses that are 150;; name. Fix bug in handling of ROUTE-ADDR-type addresses that are
151;; missing their brackets. Handle uppercase "JR". Extract full 151;; missing their brackets. Handle uppercase "JR". Extract full
152;; names from X.400 addresses encoded in RFC-822. Fix bug in 152;; names from X.400 addresses encoded in RFC-822-or-later. Fix bug in
153;; handling of multiple addresses where first has trailing comment. 153;; handling of multiple addresses where first has trailing comment.
154;; Handle more kinds of telephone extension lead-ins. 154;; Handle more kinds of telephone extension lead-ins.
155;; 155;;
@@ -209,7 +209,7 @@
209 209
210 210
211(defgroup mail-extr nil 211(defgroup mail-extr nil
212 "Extract full name and address from RFC 822 mail header." 212 "Extract full name and address from RFC 822 (or later) mail header."
213 :prefix "mail-extr-" 213 :prefix "mail-extr-"
214 :group 'mail) 214 :group 'mail)
215 215
@@ -288,8 +288,9 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"."
288(defconst mail-extr-all-letters-but-separators 288(defconst mail-extr-all-letters-but-separators
289 (purecopy "][[:alnum:]{|}'~`")) 289 (purecopy "][[:alnum:]{|}'~`"))
290 290
291;; Any character that can occur in a name in an RFC822 address including 291;; Any character that can occur in a name in an RFC 822 (or later)
292;; the separator (hyphen and possibly period) for multipart names. 292;; address including the separator (hyphen and possibly period) for
293;; multipart names.
293;; #### should . be in here? 294;; #### should . be in here?
294(defconst mail-extr-all-letters 295(defconst mail-extr-all-letters
295 (purecopy (concat mail-extr-all-letters-but-separators "---"))) 296 (purecopy (concat mail-extr-all-letters-but-separators "---")))
@@ -532,7 +533,8 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"."
532 (?. ".") 533 (?. ".")
533 (?\[ ".") 534 (?\[ ".")
534 (?\] ".") 535 (?\] ".")
535 ;; % and ! aren't RFC822 characters, but it is convenient to pretend 536 ;; % and ! aren't RFC 822 (or later) characters,
537 ;; but it is convenient to pretend.
536 (?% ".") 538 (?% ".")
537 (?! ".") ;; this needs to be word-constituent when not in .UUCP mode 539 (?! ".") ;; this needs to be word-constituent when not in .UUCP mode
538 ) 540 )
@@ -697,7 +699,8 @@ Unless NO-REPLACE is true, at each of the positions in LIST-SYMBOL
697 699
698;;;###autoload 700;;;###autoload
699(defun mail-extract-address-components (address &optional all) 701(defun mail-extract-address-components (address &optional all)
700 "Given an RFC-822 address ADDRESS, extract full name and canonical address. 702 "Extract full name and canonical address from ADDRESS.
703ADDRESS should be in RFC 822 (or later) format.
701Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). If no 704Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). If no
702name can be extracted, FULL-NAME will be nil. Also see 705name can be extracted, FULL-NAME will be nil. Also see
703`mail-extr-ignore-single-names' and 706`mail-extr-ignore-single-names' and
@@ -930,10 +933,10 @@ consing a string.)"
930 ;; Trim other punctuation lists of items outside < > pair to handle 933 ;; Trim other punctuation lists of items outside < > pair to handle
931 ;; stupid MTAs. 934 ;; stupid MTAs.
932 (when <-pos ; don't need to check >-pos also 935 (when <-pos ; don't need to check >-pos also
933 ;; handle bozo software that violates RFC 822 by sticking 936 ;; Handle bozo software that violates RFC 822 (or later)
934 ;; punctuation marks outside of a < > pair 937 ;; by sticking punctuation marks outside of a < > pair.
935 (mail-extr-nuke-outside-range @-pos <-pos >-pos t) 938 (mail-extr-nuke-outside-range @-pos <-pos >-pos t)
936 ;; RFC 822 says nothing about these two outside < >, but 939 ;; RFC 822 (or later) says nothing about these two outside < >, but
937 ;; remove those positions from the lists to make things 940 ;; remove those positions from the lists to make things
938 ;; easier. 941 ;; easier.
939 (mail-extr-nuke-outside-range !-pos <-pos >-pos t) 942 (mail-extr-nuke-outside-range !-pos <-pos >-pos t)
@@ -1319,7 +1322,7 @@ consing a string.)"
1319 (narrow-to-region atom-beg atom-end) 1322 (narrow-to-region atom-beg atom-end)
1320 (cond 1323 (cond
1321 1324
1322 ;; Handle X.400 addresses encoded in RFC-822. 1325 ;; Handle X.400 addresses encoded in RFC 822 or later.
1323 ;; *** Shit! This has to handle the case where it is 1326 ;; *** Shit! This has to handle the case where it is
1324 ;; *** embedded in a quote too! 1327 ;; *** embedded in a quote too!
1325 ;; *** Shit! The input is being broken up into atoms 1328 ;; *** Shit! The input is being broken up into atoms
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 36928b1eb21..0d489499f59 100644
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -29,7 +29,7 @@
29 29
30;;;###autoload 30;;;###autoload
31(defcustom mail-use-rfc822 nil 31(defcustom mail-use-rfc822 nil
32 "If non-nil, use a full, hairy RFC822 parser on mail addresses. 32 "If non-nil, use a full, hairy RFC 822 (or later) parser on mail addresses.
33Otherwise, (the default) use a smaller, somewhat faster, and 33Otherwise, (the default) use a smaller, somewhat faster, and
34often correct parser." 34often correct parser."
35 :type 'boolean 35 :type 'boolean
@@ -384,7 +384,7 @@ The buffer should be narrowed to just the header."
384 (date (mail-fetch-field "date")) 384 (date (mail-fetch-field "date"))
385 ;; A From: header can contain multiple addresses, a "From " 385 ;; A From: header can contain multiple addresses, a "From "
386 ;; line must contain only one. (Bug#7760) 386 ;; line must contain only one. (Bug#7760)
387 ;; See eg RFC 5322, 3.6.2. Originator Fields. 387 ;; See, e.g., RFC 5322, 3.6.2. Originator Fields.
388 (end (string-match "[ \t]*[,\n]" from))) 388 (end (string-match "[ \t]*[,\n]" from)))
389 (format "From %s %s\n" (if end 389 (format "From %s %s\n" (if end
390 (substring from 0 end) 390 (substring from 0 end)
diff --git a/lisp/mail/mailclient.el b/lisp/mail/mailclient.el
index 5dd66ff8452..4d8cda10fff 100644
--- a/lisp/mail/mailclient.el
+++ b/lisp/mail/mailclient.el
@@ -152,7 +152,7 @@ The mail client is taken to be the handler of mailto URLs."
152 (setq character-coding (downcase character-coding))) 152 (setq character-coding (downcase character-coding)))
153 (concat 153 (concat
154 "mailto:" 154 "mailto:"
155 ;; some of the headers according to RFC822 155 ;; Some of the headers according to RFC 822 (or later).
156 (mailclient-gather-addresses "To" 156 (mailclient-gather-addresses "To"
157 'drop-first-name) 157 'drop-first-name)
158 (mailclient-gather-addresses "cc" ) 158 (mailclient-gather-addresses "cc" )
diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el
index 0db4df063e3..936f53e96a5 100644
--- a/lisp/mail/mailheader.el
+++ b/lisp/mail/mailheader.el
@@ -23,7 +23,7 @@
23 23
24;;; Commentary: 24;;; Commentary:
25 25
26;; This package provides an abstraction to RFC822-style messages, used in 26;; This package provides an abstraction of RFC 822 (or later) format, used in
27;; mail, news, and some other systems. The simple syntactic rules for such 27;; mail, news, and some other systems. The simple syntactic rules for such
28;; headers, such as quoting and line folding, are routinely reimplemented 28;; headers, such as quoting and line folding, are routinely reimplemented
29;; in many individual packages. This package removes the need for this 29;; in many individual packages. This package removes the need for this
diff --git a/lisp/mail/rfc2047.el b/lisp/mail/rfc2047.el
index 87c4cfb7a1a..a1c65cbe930 100644
--- a/lisp/mail/rfc2047.el
+++ b/lisp/mail/rfc2047.el
@@ -340,7 +340,7 @@ The buffer may be narrowed."
340 340
341;; Use this syntax table when parsing into regions that may need 341;; Use this syntax table when parsing into regions that may need
342;; encoding. Double quotes are string delimiters, backslash is 342;; encoding. Double quotes are string delimiters, backslash is
343;; character quoting, and all other RFC 2822 special characters are 343;; character quoting, and all other RFC 822 (or later) special characters are
344;; treated as punctuation so we can use forward-sexp/forward-word to 344;; treated as punctuation so we can use forward-sexp/forward-word to
345;; skip to the end of regions appropriately. Nb. ietf-drums does 345;; skip to the end of regions appropriately. Nb. ietf-drums does
346;; things differently. 346;; things differently.
@@ -368,7 +368,7 @@ The buffer may be narrowed."
368 368
369(defun rfc2047-encode-region (b e &optional dont-fold) 369(defun rfc2047-encode-region (b e &optional dont-fold)
370 "Encode words in region B to E that need encoding. 370 "Encode words in region B to E that need encoding.
371By default, the region is treated as containing RFC2822 addresses. 371By default, the region is treated as containing RFC 822 (or later) addresses.
372Dynamically bind `rfc2047-encoding-type' to change that." 372Dynamically bind `rfc2047-encoding-type' to change that."
373 (save-restriction 373 (save-restriction
374 (narrow-to-region b e) 374 (narrow-to-region b e)
@@ -405,7 +405,7 @@ Dynamically bind `rfc2047-encoding-type' to change that."
405 (with-syntax-table rfc2047-syntax-table 405 (with-syntax-table rfc2047-syntax-table
406 (goto-char (point-min)) 406 (goto-char (point-min))
407 (condition-case err ; in case of unbalanced quotes 407 (condition-case err ; in case of unbalanced quotes
408 ;; Look for rfc2822-style: sequences of atoms, quoted 408 ;; Look for RFC 822 (or later) style: sequences of atoms, quoted
409 ;; strings, specials, whitespace. (Specials mustn't be 409 ;; strings, specials, whitespace. (Specials mustn't be
410 ;; encoded.) 410 ;; encoded.)
411 (while (not (eobp)) 411 (while (not (eobp))
@@ -1027,7 +1027,7 @@ other than `\"' and `\\' in quoted strings."
1027 (replace-match " ")) 1027 (replace-match " "))
1028 (setq end (point-max)) 1028 (setq end (point-max))
1029 ;; Quote decoded words if there are special characters 1029 ;; Quote decoded words if there are special characters
1030 ;; which might violate RFC2822. 1030 ;; which might violate RFC 822 (or later).
1031 (when (and rfc2047-quote-decoded-words-containing-tspecials 1031 (when (and rfc2047-quote-decoded-words-containing-tspecials
1032 (let ((regexp (car (rassq 1032 (let ((regexp (car (rassq
1033 'address-mime 1033 'address-mime
diff --git a/lisp/mail/rfc822.el b/lisp/mail/rfc822.el
index 594416f12d7..a53a77e47ee 100644
--- a/lisp/mail/rfc822.el
+++ b/lisp/mail/rfc822.el
@@ -1,4 +1,4 @@
1;;; rfc822.el --- hairy rfc822 parser for mail and news and suchlike 1;;; rfc822.el --- hairy RFC 822 (or later) parser for mail, news, etc.
2 2
3;; Copyright (C) 1986-1987, 1990, 2001-2019 Free Software Foundation, 3;; Copyright (C) 1986-1987, 1990, 2001-2019 Free Software Foundation,
4;; Inc. 4;; Inc.
@@ -24,8 +24,8 @@
24 24
25;;; Commentary: 25;;; Commentary:
26 26
27;; Support functions for parsing RFC-822 headers, used by mail and news 27;; Support functions for parsing headers used by mail and news modes.
28;; modes. 28;; The header format is specified by Internet RFC 822 and its successors.
29 29
30;;; Code: 30;;; Code:
31 31
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 8a75f1fba91..a740c4bfa23 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -785,8 +785,8 @@ The first parenthesized expression should match the MIME-charset name.")
785 (concat 785 (concat
786 "From " 786 "From "
787 787
788 ;; Many things can happen to an RFC 822 mailbox before it is put into 788 ;; Many things can happen to an RFC 822 (or later) mailbox before it is
789 ;; a `From' line. The leading phrase can be stripped, e.g. 789 ;; put into a `From' line. The leading phrase can be stripped, e.g.
790 ;; `Joe <@w.x:joe@y.z>' -> `<@w.x:joe@y.z>'. The <> can be stripped, e.g. 790 ;; `Joe <@w.x:joe@y.z>' -> `<@w.x:joe@y.z>'. The <> can be stripped, e.g.
791 ;; `<@x.y:joe@y.z>' -> `@x.y:joe@y.z'. Everything starting with a CRLF 791 ;; `<@x.y:joe@y.z>' -> `@x.y:joe@y.z'. Everything starting with a CRLF
792 ;; can be removed, e.g. 792 ;; can be removed, e.g.
@@ -1009,8 +1009,8 @@ If `rmail-display-summary' is non-nil, make a summary for this RMAIL file."
1009 "Report that the buffer is not in the mbox file format. 1009 "Report that the buffer is not in the mbox file format.
1010MSGNUM, if present, indicates the malformed message." 1010MSGNUM, if present, indicates the malformed message."
1011 (if msgnum 1011 (if msgnum
1012 (error "Message %d is not a valid RFC2822 message" msgnum) 1012 (error "Message %d is not a valid RFC 822 (or later) message" msgnum)
1013 (error "Message is not a valid RFC2822 message"))) 1013 (error "Message is not a valid RFC 822 (or later) message")))
1014 1014
1015(defun rmail-convert-babyl-to-mbox () 1015(defun rmail-convert-babyl-to-mbox ()
1016 "Convert the mail file from Babyl version 5 to mbox. 1016 "Convert the mail file from Babyl version 5 to mbox.
@@ -2155,9 +2155,9 @@ Call with point at the end of the message."
2155 (insert "\n"))) 2155 (insert "\n")))
2156 2156
2157(defun rmail-add-mbox-headers () 2157(defun rmail-add-mbox-headers ()
2158 "Validate the RFC2822 format for the new messages. 2158 "Validate the RFC 822 (or later) format for the new messages.
2159Point should be at the first new message. 2159Point should be at the first new message.
2160An error is signaled if the new messages are not RFC2822 2160An error is signaled if the new messages are not RFC 822 (or later)
2161compliant. 2161compliant.
2162Unless an Rmail attribute header already exists, add it to the 2162Unless an Rmail attribute header already exists, add it to the
2163new messages. Return the number of new messages." 2163new messages. Return the number of new messages."
@@ -3928,9 +3928,9 @@ which is an element of rmail-msgref-vector."
3928 (setq tem (copy-sequence tem)) 3928 (setq tem (copy-sequence tem))
3929 (set-text-properties 0 (length tem) nil tem) 3929 (set-text-properties 0 (length tem) nil tem)
3930 (setq tem (copy-sequence tem)) 3930 (setq tem (copy-sequence tem))
3931 ;; Use prin1 to fake RFC822 quoting 3931 ;; Use prin1 to fake RFC 822 (or later) quoting
3932 (let ((field (prin1-to-string tem))) 3932 (let ((field (prin1-to-string tem)))
3933 ;; Wrap it in parens to make it a comment according to RFC822 3933 ;; Wrap it in parens to make it a comment.
3934 (if date 3934 (if date
3935 (concat "(" field "'s message of " date ")") 3935 (concat "(" field "'s message of " date ")")
3936 (concat "(" field ")")))))) 3936 (concat "(" field ")"))))))
@@ -3959,7 +3959,7 @@ which is an element of rmail-msgref-vector."
3959 (if message-id 3959 (if message-id
3960 ;; "<AA259@bar.edu> (message from Unix Loser on 1-Apr-89)" 3960 ;; "<AA259@bar.edu> (message from Unix Loser on 1-Apr-89)"
3961 (concat message-id " (" field ")") 3961 (concat message-id " (" field ")")
3962 ;; Wrap in parens to make it a comment, for RFC822. 3962 ;; Wrap in parens to make it a comment.
3963 (concat "(" field ")"))))) 3963 (concat "(" field ")")))))
3964 (t 3964 (t
3965 ;; If we can't kludge it simply, do it correctly 3965 ;; If we can't kludge it simply, do it correctly
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."
147 'smtpmail-send-it 'sendmail-query-once) 147 'smtpmail-send-it 'sendmail-query-once)
148 "Function to call to send the current buffer as mail. 148 "Function to call to send the current buffer as mail.
149The headers should be delimited by a line which is 149The headers should be delimited by a line which is
150not a valid RFC822 header or continuation line, 150not a valid RFC 822 (or later) header or continuation line,
151that matches the variable `mail-header-separator'. 151that matches the variable `mail-header-separator'.
152This is used by the default mail-sending commands. See also 152This is used by the default mail-sending commands. See also
153`message-send-mail-function' for use with the Message package." 153`message-send-mail-function' for use with the Message package."
@@ -905,7 +905,7 @@ the user from the mailer."
905 (ml (when mail-mailing-lists 905 (ml (when mail-mailing-lists
906 ;; The surrounding regexp assumes the use of 906 ;; The surrounding regexp assumes the use of
907 ;; `mail-strip-quoted-names' on addresses before matching 907 ;; `mail-strip-quoted-names' on addresses before matching
908 ;; Cannot deal with full RFC 822 freedom, but that is 908 ;; Cannot deal with full RFC 822 (or later), but that is
909 ;; unlikely to be problematic. 909 ;; unlikely to be problematic.
910 (concat "\\(?:[[:space:];,]\\|\\`\\)" 910 (concat "\\(?:[[:space:];,]\\|\\`\\)"
911 (regexp-opt mail-mailing-lists t) 911 (regexp-opt mail-mailing-lists t)
@@ -1041,7 +1041,7 @@ This function does not perform RFC2047 encoding."
1041 (fullname-end (point-marker))) 1041 (fullname-end (point-marker)))
1042 (goto-char fullname-start) 1042 (goto-char fullname-start)
1043 ;; Look for a character that cannot appear unquoted 1043 ;; Look for a character that cannot appear unquoted
1044 ;; according to RFC 822. 1044 ;; according to RFC 822 (or later).
1045 (if (or (re-search-forward "[^- !#-'*+/-9=?A-Z^-~]" 1045 (if (or (re-search-forward "[^- !#-'*+/-9=?A-Z^-~]"
1046 fullname-end 1) 1046 fullname-end 1)
1047 quote-fullname) 1047 quote-fullname)
@@ -1065,8 +1065,7 @@ This function does not perform RFC2047 encoding."
1065 (insert "\"")) 1065 (insert "\""))
1066 (let ((fullname-end (point-marker))) 1066 (let ((fullname-end (point-marker)))
1067 (goto-char fullname-start) 1067 (goto-char fullname-start)
1068 ;; RFC 822 says \ and nonmatching parentheses 1068 ;; \ and nonmatching parentheses must be escaped in comments.
1069 ;; must be escaped in comments.
1070 ;; Escape every instance of ()\ ... 1069 ;; Escape every instance of ()\ ...
1071 (while (re-search-forward "[()\\]" fullname-end 1) 1070 (while (re-search-forward "[()\\]" fullname-end 1)
1072 (replace-match "\\\\\\&" t)) 1071 (replace-match "\\\\\\&" t))
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 5b28c271038..0043fafb4a0 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -256,7 +256,7 @@ The list is in preference order.")
256 (fullname-end (point-marker))) 256 (fullname-end (point-marker)))
257 (goto-char fullname-start) 257 (goto-char fullname-start)
258 ;; Look for a character that cannot appear unquoted 258 ;; Look for a character that cannot appear unquoted
259 ;; according to RFC 822. 259 ;; according to RFC 822 or its successors.
260 (if (re-search-forward "[^- !#-'*+/-9=?A-Z^-~]" 260 (if (re-search-forward "[^- !#-'*+/-9=?A-Z^-~]"
261 fullname-end 1) 261 fullname-end 1)
262 (progn 262 (progn
@@ -274,8 +274,9 @@ The list is in preference order.")
274 (insert fullname) 274 (insert fullname)
275 (let ((fullname-end (point-marker))) 275 (let ((fullname-end (point-marker)))
276 (goto-char fullname-start) 276 (goto-char fullname-start)
277 ;; RFC 822 says \ and nonmatching parentheses 277 ;; RFC 822 and its successors say \ and
278 ;; must be escaped in comments. 278 ;; nonmatching parentheses must be
279 ;; escaped in comments.
279 ;; Escape every instance of ()\ ... 280 ;; Escape every instance of ()\ ...
280 (while (re-search-forward "[()\\]" fullname-end 1) 281 (while (re-search-forward "[()\\]" fullname-end 1)
281 (replace-match "\\\\\\&" t)) 282 (replace-match "\\\\\\&" t))
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index 9570f533134..4809c33abc4 100644
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -315,7 +315,7 @@ during the initial citing via `sc-cite-original'."
315 :group 'supercite-hooks) 315 :group 'supercite-hooks)
316 316
317(defcustom sc-mail-warn-if-non-rfc822-p t 317(defcustom sc-mail-warn-if-non-rfc822-p t
318 "Warn if mail headers don't conform to RFC822." 318 "Warn if mail headers don't conform to RFC 822 (or later)."
319 :type 'boolean 319 :type 'boolean
320 :group 'supercite-attr) 320 :group 'supercite-attr)
321(defcustom sc-mumble "" 321(defcustom sc-mumble ""
@@ -745,10 +745,10 @@ If optional ATTRIBS-P is non-nil, the key/value pair is placed in
745 nil) 745 nil)
746 746
747(defun sc-mail-error-in-mail-field () 747(defun sc-mail-error-in-mail-field ()
748 "Issue warning that mail headers don't conform to RFC 822." 748 "Issue warning that mail headers don't conform to email RFCs."
749 (let* ((len (min (length curline) 10)) 749 (let* ((len (min (length curline) 10))
750 (ellipsis (if (< len (length curline)) "..." "")) 750 (ellipsis (if (< len (length curline)) "..." ""))
751 (msg "Mail header \"%s%s\" doesn't conform to RFC 822. skipping...")) 751 (msg "Mail header \"%s%s\" doesn't conform to RFC 822 (or later). skipping..."))
752 (message msg (substring curline 0 len) ellipsis)) 752 (message msg (substring curline 0 len) ellipsis))
753 (beep) 753 (beep)
754 (sit-for 2) 754 (sit-for 2)
diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el
index 571c0b5c4d3..ee938166931 100644
--- a/lisp/mh-e/mh-e.el
+++ b/lisp/mh-e/mh-e.el
@@ -2413,14 +2413,14 @@ of citations entirely, choose \"None\"."
2413 :package-version '(MH-E . "8.0")) 2413 :package-version '(MH-E . "8.0"))
2414 2414
2415;; These entries have been intentionally excluded by the developers. 2415;; These entries have been intentionally excluded by the developers.
2416;; "Comments:" ; RFC 2822 - show this one 2416;; "Comments:" ; RFC 822 (or later) - show this one
2417;; "Fax:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2417;; "Fax:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2418;; "Mail-System-Version:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2418;; "Mail-System-Version:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2419;; "Mailer:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2419;; "Mailer:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2420;; "Organization:" ; 2420;; "Organization:" ;
2421;; "Phone:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2421;; "Phone:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2422;; "Reply-By:" ; RFC 2156 2422;; "Reply-By:" ; RFC 2156
2423;; "Reply-To:" ; RFC 2822 2423;; "Reply-To:" ; RFC 822 (or later)
2424;; "Sender:" ; 2424;; "Sender:" ;
2425;; "User-Agent:" ; Similar to X-Mailer, so display it. 2425;; "User-Agent:" ; Similar to X-Mailer, so display it.
2426;; "X-Mailer:" ; 2426;; "X-Mailer:" ;
@@ -2481,9 +2481,9 @@ of citations entirely, choose \"None\"."
2481 "From " ; sendmail 2481 "From " ; sendmail
2482 "Generate-Delivery-Report:" ; RFC 2156 2482 "Generate-Delivery-Report:" ; RFC 2156
2483 "Importance:" ; RFC 2156, 2421 2483 "Importance:" ; RFC 2156, 2421
2484 "In-Reply-To:" ; RFC 2822 2484 "In-Reply-To:" ; RFC 822 (or later)
2485 "Incomplete-Copy:" ; RFC 2156 2485 "Incomplete-Copy:" ; RFC 2156
2486 "Keywords:" ; RFC 2822 2486 "Keywords:" ; RFC 822 (or later)
2487 "Language:" ; RFC 2156 2487 "Language:" ; RFC 2156
2488 "Lines:" ; RFC 1036 2488 "Lines:" ; RFC 1036
2489 "List-" ; RFC 2369, 2919 2489 "List-" ; RFC 2369, 2919
@@ -2493,7 +2493,7 @@ of citations entirely, choose \"None\"."
2493 "Mail-Reply-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2493 "Mail-Reply-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2494 "Mailing-List:" ; Egroups/yahoogroups mailing list manager 2494 "Mailing-List:" ; Egroups/yahoogroups mailing list manager
2495 "Message-Content:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2495 "Message-Content:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2496 "Message-Id:" ; RFC 822 2496 "Message-ID:" ; RFC 822 (or later)
2497 "Message-Type:" ; RFC 2156 2497 "Message-Type:" ; RFC 2156
2498 "Mime-Version" ; RFC 2045 2498 "Mime-Version" ; RFC 2045
2499 "Msgid:" 2499 "Msgid:"
@@ -2524,14 +2524,14 @@ of citations entirely, choose \"None\"."
2524 "Priority:" ; RFC 2156 2524 "Priority:" ; RFC 2156
2525 "Read-Receipt-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2525 "Read-Receipt-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2526 "Received-SPF:" ; Gmail 2526 "Received-SPF:" ; Gmail
2527 "Received:" ; RFC 822 2527 "Received:" ; RFC 822 (or later)
2528 "References:" ; RFC 2822 2528 "References:" ; RFC 822 (or later)
2529 "Registered-Mail-Reply-Requested-By:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2529 "Registered-Mail-Reply-Requested-By:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2530 "Remailed-" ; MH 2530 "Remailed-" ; MH
2531 "Replaces:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2531 "Replaces:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2532 "Replied:" ; MH 2532 "Replied:" ; MH
2533 "Resent-" ; RFC 2822 2533 "Resent-" ; RFC 822 (or later)
2534 "Return-Path:" ; RFC 822 2534 "Return-Path:" ; RFC 822 (or later)
2535 "Return-Receipt-Requested:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2535 "Return-Receipt-Requested:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2536 "Return-Receipt-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ 2536 "Return-Receipt-To:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
2537 "Seal-Send-Time:" 2537 "Seal-Send-Time:"
diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el
index 34f902a65e6..7cba9a5f417 100644
--- a/lisp/mh-e/mh-utils.el
+++ b/lisp/mh-e/mh-utils.el
@@ -887,7 +887,7 @@ in this situation."
887;;;###mh-autoload 887;;;###mh-autoload
888(defun mh-header-field-beginning () 888(defun mh-header-field-beginning ()
889 "Move to the beginning of the current header field. 889 "Move to the beginning of the current header field.
890Handles RFC 822 continuation lines." 890Handle RFC 822 (or later) continuation lines."
891 (beginning-of-line) 891 (beginning-of-line)
892 (while (looking-at "^[ \t]") 892 (while (looking-at "^[ \t]")
893 (forward-line -1))) 893 (forward-line -1)))
@@ -895,7 +895,7 @@ Handles RFC 822 continuation lines."
895;;;###mh-autoload 895;;;###mh-autoload
896(defun mh-header-field-end () 896(defun mh-header-field-end ()
897 "Move to the end of the current header field. 897 "Move to the end of the current header field.
898Handles RFC 822 continuation lines." 898Handle RFC 822 (or later) continuation lines."
899 (forward-line 1) 899 (forward-line 1)
900 (while (looking-at "^[ \t]") 900 (while (looking-at "^[ \t]")
901 (forward-line 1)) 901 (forward-line 1))
diff --git a/lisp/net/imap.el b/lisp/net/imap.el
index f4ae7b94495..dedf5f794a4 100644
--- a/lisp/net/imap.el
+++ b/lisp/net/imap.el
@@ -2094,23 +2094,23 @@ Return nil if no complete line has arrived."
2094;; addr-host ")" 2094;; addr-host ")"
2095;; 2095;;
2096;; addr-adl = nstring 2096;; addr-adl = nstring
2097;; ; Holds route from [RFC-822] route-addr if 2097;; ; Holds route from [RFC-822 (or later)] route-addr if
2098;; ; non-nil 2098;; ; non-nil
2099;; 2099;;
2100;; addr-host = nstring 2100;; addr-host = nstring
2101;; ; nil indicates [RFC-822] group syntax. 2101;; ; nil indicates [RFC-822 (or later)] group syntax.
2102;; ; Otherwise, holds [RFC-822] domain name 2102;; ; Otherwise, holds [RFC-822 (or later)] domain name
2103;; 2103;;
2104;; addr-mailbox = nstring 2104;; addr-mailbox = nstring
2105;; ; nil indicates end of [RFC-822] group; if 2105;; ; nil indicates end of [RFC-822 (or later)] group; if
2106;; ; non-nil and addr-host is nil, holds 2106;; ; non-nil and addr-host is nil, holds
2107;; ; [RFC-822] group name. 2107;; ; [RFC-822 (or later)] group name.
2108;; ; Otherwise, holds [RFC-822] local-part 2108;; ; Otherwise, holds [RFC-822 (or later)] local-part
2109;; ; after removing [RFC-822] quoting 2109;; ; after removing [RFC-822 (or later)] quoting
2110;; 2110;;
2111;; addr-name = nstring 2111;; addr-name = nstring
2112;; ; If non-nil, holds phrase from [RFC-822] 2112;; ; If non-nil, holds phrase from [RFC-822 (or later)]
2113;; ; mailbox after removing [RFC-822] quoting 2113;; ; mailbox after removing [RFC-822 (or later)] quoting
2114;; 2114;;
2115 2115
2116(defsubst imap-parse-address () 2116(defsubst imap-parse-address ()
diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
index 94101fb0b25..96503bae18b 100644
--- a/lisp/net/newst-backend.el
+++ b/lisp/net/newst-backend.el
@@ -1699,8 +1699,8 @@ Examples:
1699 nil)) 1699 nil))
1700 1700
1701(defun newsticker--decode-rfc822-date (rfc822-string) 1701(defun newsticker--decode-rfc822-date (rfc822-string)
1702 "Return RFC822-STRING in format like `decode-time'. 1702 "Convert RFC822-STRING to a Lisp timestamp.
1703Converts from RFC822 to Emacs representation. 1703RFC822-STRING should use RFC 822 (or later) format.
1704Examples: 1704Examples:
1705Sat, 07 September 2002 00:00:01 +0100 1705Sat, 07 September 2002 00:00:01 +0100
1706Sat, 07 September 2002 00:00:01 MET 1706Sat, 07 September 2002 00:00:01 MET
diff --git a/lisp/org/org-id.el b/lisp/org/org-id.el
index 4de99f363a6..994aa7e3e83 100644
--- a/lisp/org/org-id.el
+++ b/lisp/org/org-id.el
@@ -160,9 +160,9 @@ to have no space characters in them."
160(defcustom org-id-include-domain nil 160(defcustom org-id-include-domain nil
161 "Non-nil means add the domain name to new IDs. 161 "Non-nil means add the domain name to new IDs.
162This ensures global uniqueness of IDs, and is also suggested by 162This ensures global uniqueness of IDs, and is also suggested by
163RFC 2445 in combination with RFC 822. This is only relevant if 163the relevant RFCs. This is relevant only if `org-id-method' is
164`org-id-method' is `org'. When uuidgen is used, the domain will never 164`org'. When uuidgen is used, the domain will never be added.
165be added. 165
166The default is to not use this because we have no really good way to get 166The default is to not use this because we have no really good way to get
167the true domain, and Org entries will normally not be shared with enough 167the true domain, and Org entries will normally not be shared with enough
168people to make this necessary." 168people to make this necessary."
diff --git a/lisp/ps-samp.el b/lisp/ps-samp.el
index 1888f1a8192..cccf035834f 100644
--- a/lisp/ps-samp.el
+++ b/lisp/ps-samp.el
@@ -76,8 +76,8 @@
76 (concat "Subject: " (or (mail-fetch-field "Subject") "???"))))) 76 (concat "Subject: " (or (mail-fetch-field "Subject") "???")))))
77 77
78;; Look in an article or mail message for the From: line. Sorta-kinda 78;; Look in an article or mail message for the From: line. Sorta-kinda
79;; understands RFC-822 addresses and can pull the real name out where 79;; understands RFC 822 (or later) addresses and can pull the real name
80;; it's provided. 80;; out where it's provided.
81(defun ps-article-author () 81(defun ps-article-author ()
82 (save-excursion 82 (save-excursion
83 (save-restriction 83 (save-restriction
diff --git a/lisp/simple.el b/lisp/simple.el
index 4c55278b1f1..2646d7b0259 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -7829,7 +7829,7 @@ appears to have customizations applying to the old default,
7829 "If the buffer starts with a mail header, move point to the header's end. 7829 "If the buffer starts with a mail header, move point to the header's end.
7830Otherwise, moves to `point-min'. 7830Otherwise, moves to `point-min'.
7831The end of the header is the start of the next line, if there is one, 7831The end of the header is the start of the next line, if there is one,
7832else the end of the last line. This function obeys RFC822." 7832else the end of the last line. This function obeys RFC 822 (or later)."
7833 (goto-char (point-min)) 7833 (goto-char (point-min))
7834 (when (re-search-forward 7834 (when (re-search-forward
7835 "^\\([:\n]\\|[^: \t\n]+[ \t\n]\\)" nil 'move) 7835 "^\\([:\n]\\|[^: \t\n]+[ \t\n]\\)" nil 'move)
diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index 11ee15fdd4e..95e808f764d 100644
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -74,7 +74,8 @@ If a list, it is a list of the types of messages to be logged."
74 74
75;;;###autoload 75;;;###autoload
76(defun url-parse-args (str &optional nodowncase) 76(defun url-parse-args (str &optional nodowncase)
77 ;; Return an assoc list of attribute/value pairs from an RFC822-type string 77 ;; Return an assoc list of attribute/value pairs from a string
78 ;; that uses RFC 822 (or later) format.
78 (let ( 79 (let (
79 name ; From name= 80 name ; From name=
80 value ; its value 81 value ; its value