diff options
| author | Paul Eggert | 2019-02-16 11:20:09 -0800 |
|---|---|---|
| committer | Paul Eggert | 2019-02-16 12:00:02 -0800 |
| commit | b5e66f46a6f33f9d633e6cc3e0770a566bdfcf6b (patch) | |
| tree | ae840d13fbb281fcef0b0ac35646b10710c06d86 | |
| parent | 57ece2a0521e3167254f3b97fbfa7dc51aa9fea5 (diff) | |
| download | emacs-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.
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. | |||
| 829 | Richard Mlynarik wrote @file{cl-indent.el}, a package for indenting | 829 | Richard Mlynarik wrote @file{cl-indent.el}, a package for indenting |
| 830 | Common Lisp code; @file{ebuff-menu.el}, an electric browser for | 830 | Common Lisp code; @file{ebuff-menu.el}, an electric browser for |
| 831 | buffer listings; @file{ehelp.el}, bindings for browsing help screens; | 831 | buffer listings; @file{ehelp.el}, bindings for browsing help screens; |
| 832 | and @file{rfc822.el}, a parser for E-mail addresses in the RFC-822 format, | 832 | and @file{rfc822.el}, a parser for E-mail addresses in the format |
| 833 | used in mail messages and news articles. | 833 | used in mail messages and news articles (Internet RFC 822 and its successors). |
| 834 | 834 | ||
| 835 | @item | 835 | @item |
| 836 | Gerd Möllmann was the Emacs maintainer from the beginning of Emacs 21 | 836 | Gerd 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: | |||
| 1485 | The format of this list is the same as what @code{decode-time} accepts | 1485 | The 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 |
| 1487 | element that cannot be determined from the input will be set to | 1487 | element 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 |
| 1489 | ISO 8601 string, like ``Fri, 25 Mar 2016 16:24:56 +0100'' or | 1489 | ISO 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 |
| 1491 | less well-formed time strings as well. | 1491 | less 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}. | |||
| 698 | A description of the part (@code{Content-Description}). | 698 | A description of the part (@code{Content-Description}). |
| 699 | 699 | ||
| 700 | @item creation-date | 700 | @item creation-date |
| 701 | RFC822 date when the part was created (@code{Content-Disposition}). | 701 | Date when the part was created (@code{Content-Disposition}). |
| 702 | This uses the format of RFC 822 or its successors. | ||
| 702 | 703 | ||
| 703 | @item modification-date | 704 | @item modification-date |
| 704 | RFC822 date when the part was modified (@code{Content-Disposition}). | 705 | RFC 822 (or later) date when the part was modified |
| 706 | (@code{Content-Disposition}). | ||
| 705 | 707 | ||
| 706 | @item read-date | 708 | @item read-date |
| 707 | RFC822 date when the part was read (@code{Content-Disposition}). | 709 | RFC 822 (or later) date when the part was read (@code{Content-Disposition}). |
| 708 | 710 | ||
| 709 | @item recipients | 711 | @item recipients |
| 710 | Who to encrypt/sign the part to. This field is used to override any | 712 | Who 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 |
| 757 | The RFC822 date after which the file may no longer be fetched. | 759 | RFC 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, |
| 1389 | for RFC822. | 1391 | the first successor to RFC 822 and a predecessor of the current email standard. |
| 1390 | 1392 | ||
| 1391 | The functions provided by this library include: | 1393 | The 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 |
| 1591 | An RFC822 (or similar) date string. For instance: @code{"Sat Sep 12 | 1593 | An RFC 822 (or similar) date string. For instance: @code{"Sat Sep 12 |
| 1592 | 12:21:54 1998 +0200"}. | 1594 | 12: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. | |||
| 1861 | The Emacs @acronym{MIME} library implements handling of various elements | 1863 | The Emacs @acronym{MIME} library implements handling of various elements |
| 1862 | according to a (somewhat) large number of RFCs, drafts and standards | 1864 | according to a (somewhat) large number of RFCs, drafts and standards |
| 1863 | documents. This chapter lists the relevant ones. They can all be | 1865 | documents. This chapter lists the relevant ones. They can all be |
| 1864 | fetched from @uref{http://quimby.gnus.org/notes/}. | 1866 | fetched 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 | 1870 | Internet Message Format |
| 1869 | Standard for the Format of ARPA Internet Text Messages. | ||
| 1870 | 1871 | ||
| 1871 | @item RFC1036 | 1872 | @item RFC 5536 |
| 1872 | Standard for Interchange of USENET Messages | 1873 | Netnews Article Format |
| 1873 | 1874 | ||
| 1874 | @item RFC2045 | 1875 | @item RFC 2045 |
| 1875 | Format of Internet Message Bodies | 1876 | Format of Internet Message Bodies |
| 1876 | 1877 | ||
| 1877 | @item RFC2046 | 1878 | @item RFC 2046 |
| 1878 | Media Types | 1879 | Media Types |
| 1879 | 1880 | ||
| 1880 | @item RFC2047 | 1881 | @item RFC 2047 |
| 1881 | Message Header Extensions for Non-@acronym{ASCII} Text | 1882 | Message Header Extensions for Non-@acronym{ASCII} Text |
| 1882 | 1883 | ||
| 1883 | @item RFC2048 | 1884 | @item RFC 6838 |
| 1884 | Registration Procedures | 1885 | Media Type Specifications and Registration Procedures |
| 1886 | |||
| 1887 | @item RFC 4289 | ||
| 1888 | Registration Procedures (obsoleting RFC 2048) | ||
| 1885 | 1889 | ||
| 1886 | @item RFC2049 | 1890 | @item RFC 2049 |
| 1887 | Conformance Criteria and Examples | 1891 | Conformance 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, |
| 1891 | Languages, and Continuations | 1895 | Languages, and Continuations |
| 1892 | 1896 | ||
| 1893 | @item RFC1843 | 1897 | @item RFC 1843 |
| 1894 | HZ---A Data Format for Exchanging Files of Arbitrarily Mixed Chinese and | 1898 | HZ---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 |
| 1898 | Draft for the successor of RFC822 | ||
| 1899 | |||
| 1900 | @item RFC2112 | ||
| 1901 | The @acronym{MIME} Multipart/Related Content-type | 1902 | The @acronym{MIME} Multipart/Related Content-type |
| 1902 | 1903 | ||
| 1903 | @item RFC1892 | 1904 | @item RFC 6522 |
| 1904 | The Multipart/Report Content Type for the Reporting of Mail System | 1905 | @itemx STD 73 |
| 1906 | The Multipart/Report Media Type for the Reporting of Mail System | ||
| 1905 | Administrative Messages | 1907 | Administrative Messages |
| 1906 | 1908 | ||
| 1907 | @item RFC2183 | 1909 | @item RFC 2183 |
| 1908 | Communicating Presentation Information in Internet Messages: The | 1910 | Communicating Presentation Information in Internet Messages: The |
| 1909 | Content-Disposition Header Field | 1911 | Content-Disposition Header Field |
| 1910 | 1912 | ||
| 1911 | @item RFC2646 | 1913 | @item RFC 3676 |
| 1912 | Documentation of the text/plain format parameter for flowed text. | 1914 | The 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. | |||
| 141 | There are no Gnus dependencies in this file. | 141 | There are no Gnus dependencies in this file. |
| 142 | 142 | ||
| 143 | @item ietf-drums.el | 143 | @item ietf-drums.el |
| 144 | Functions for parsing RFC822bis headers. | 144 | Functions for parsing RFC 2822 headers. |
| 145 | @c As of 2005-10-21... | 145 | @c As of 2005-10-21... |
| 146 | There are no Gnus dependencies in this file. | 146 | There 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 | |||
| 9655 | body can be divided into a signature part and a text part. The variable | 9655 | body can be divided into a signature part and a text part. The variable |
| 9656 | that says what is to be considered a signature is | 9656 | that 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 |
| 9659 | non-standard signature separators, so this variable can also be a list | 9659 | non-standard signature separators, so this variable can also be a list |
| 9660 | of regular expressions to be tested, one by one. (Searches are done | 9660 | of regular expressions to be tested, one by one. (Searches are done |
| 9661 | from the end of the body towards the beginning.) One likely value is: | 9661 | from 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, | |||
| 15956 | really stupid things with mail. ``Hey, RFC 822 doesn't explicitly | 15956 | really stupid things with mail. ``Hey, RFC 822 doesn't explicitly |
| 15957 | prohibit us from adding the string @code{wE aRe ElItE!!!!!1!!} to the | 15957 | prohibit us from adding the string @code{wE aRe ElItE!!!!!1!!} to the |
| 15958 | end of all lines passing through our server, so let's do that!!!!1!'' | 15958 | end of all lines passing through our server, so let's do that!!!!1!'' |
| 15959 | Yes, but RFC 822 wasn't designed to be read by morons. Things that were | 15959 | Yes, but RFC 822 and its successors weren't designed to be read by |
| 15960 | considered to be self-evident were not discussed. So. Here we are. | 15960 | morons. Things that were considered to be self-evident were not |
| 15961 | discussed. So. Here we are. | ||
| 15961 | 15962 | ||
| 15962 | Case in point: The German version of Microsoft Exchange adds @samp{AW: | 15963 | Case 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 |
| 17342 | A message forwarded according to RFC822. | 17343 | A message forwarded according to RFC 822 or its successors. |
| 17343 | 17344 | ||
| 17344 | @item outlook | 17345 | @item outlook |
| 17345 | The Outlook mail box. | 17346 | The 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 |
| 26680 | There are no known breaches of this standard. | 26681 | @cindex RFC 5322 |
| 26682 | There 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 |
| 26684 | There are no known breaches of this standard, either. | 26687 | There 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 |
| 26688 | We do have some breaches to this one. | 26691 | We 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 |
| 26703 | USEFOR is an IETF working group writing a successor to RFC 1036, based | 26706 | USEFOR was an IETF working group that produced Internet RFCs 5536 and 5537. |
| 26704 | on Son-of-RFC 1036. They have produced a number of drafts proposing | 26707 | The Gnus towers will look into implementing the changes embodied by these |
| 26705 | various changes to the format of news articles. The Gnus towers will | 26708 | standards. |
| 26706 | look 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. |
| 29488 | See RFC 5234.) | ||
| 29486 | 29489 | ||
| 29487 | If the return value is @code{nov}, the data buffer should contain | 29490 | If 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 | |||
| 30280 | just shamelessly @emph{stole} the entire thing, and one would be right. | 30283 | just 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 |
| 30283 | RFC 1036 to talk about lines in the head of an article (e.g., | 30286 | RFC 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 |
| 30286 | opinion.) And Gnus uses a format internally that it calls ``header'', | 30289 | opinion.) 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, | |||
| 851 | such useful information as the author's name and email address are | 851 | such useful information as the author's name and email address are |
| 852 | extracted. If the variable @code{sc-mail-warn-if-non-rfc822-p} is | 852 | extracted. If the variable @code{sc-mail-warn-if-non-rfc822-p} is |
| 853 | non-@code{nil}, then Supercite will warn you if it finds a mail header | 853 | non-@code{nil}, then Supercite will warn you if it finds a mail header |
| 854 | that does not conform to RFC822. This is rare and indicates a problem | 854 | that does not conform to RFC 822 (or later). |
| 855 | This is rare and indicates a problem | ||
| 855 | either with your MUA or the original author's MUA, or some MTA (mail | 856 | either with your MUA or the original author's MUA, or some MTA (mail |
| 856 | transport agent) along the way. | 857 | transport 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). |
| 149 | STRING should be on something resembling an RFC2822 string, a la | 149 | STRING 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 |
| 151 | somewhat liberal in what format it accepts, and will attempt to | 151 | somewhat liberal in what format it accepts, and will attempt to |
| 152 | return a \"likely\" value even for somewhat malformed strings. | 152 | return 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. |
| 143 | Given an RFC-822 address FROM, extract full name and canonical address. | 143 | Given an RFC-822 (or later) address FROM, extract name and address. |
| 144 | Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). Much more simple | 144 | Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). Much more simple |
| 145 | solution than `mail-extract-address-components', which works much better, but | 145 | solution than `mail-extract-address-components', which works much better, but |
| 146 | is slower." | 146 | is 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. |
| 450 | This function handles the ISO 8601 date format described in | 450 | This function handles the ISO 8601 date format described in |
| 451 | URL `http://www.w3.org/TR/NOTE-datetime', and also the RFC822 style | 451 | URL `http://www.w3.org/TR/NOTE-datetime', and also the RFC 822 style |
| 452 | which RSS 2.0 allows." | 452 | which 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 | |||
| 786 | by feedmail to either \"Date\" or \"Resent-Date\". | 786 | by feedmail to either \"Date\" or \"Resent-Date\". |
| 787 | 787 | ||
| 788 | If you decide to format your own date field, do us all a favor and know | 788 | If you decide to format your own date field, do us all a favor and know |
| 789 | what you're doing. Study the relevant parts of RFC-822 and RFC-1123. | 789 | what you're doing. Study the relevant parts of RFC-822-or-later and RFC-1123. |
| 790 | Don't make me come up there! | 790 | Don't make me come up there! |
| 791 | 791 | ||
| 792 | You should let feedmail generate a Date: for you unless you are sure | 792 | You 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). |
| 1518 | This affects the composition of certain headers. feedmail sets this | 1518 | This affects the composition of certain headers. feedmail sets this |
| 1519 | variable as soon as it starts prepping the message text buffer, so any | 1519 | variable as soon as it starts prepping the message text buffer, so any |
| 1520 | user-supplied functions can rely on it. Users shouldn't set or change this | 1520 | user-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. |
| 703 | ADDRESS should be in RFC 822 (or later) format. | ||
| 701 | Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). If no | 704 | Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). If no |
| 702 | name can be extracted, FULL-NAME will be nil. Also see | 705 | name 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. |
| 33 | Otherwise, (the default) use a smaller, somewhat faster, and | 33 | Otherwise, (the default) use a smaller, somewhat faster, and |
| 34 | often correct parser." | 34 | often 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. |
| 371 | By default, the region is treated as containing RFC2822 addresses. | 371 | By default, the region is treated as containing RFC 822 (or later) addresses. |
| 372 | Dynamically bind `rfc2047-encoding-type' to change that." | 372 | Dynamically 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. |
| 1010 | MSGNUM, if present, indicates the malformed message." | 1010 | MSGNUM, 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. |
| 2159 | Point should be at the first new message. | 2159 | Point should be at the first new message. |
| 2160 | An error is signaled if the new messages are not RFC2822 | 2160 | An error is signaled if the new messages are not RFC 822 (or later) |
| 2161 | compliant. | 2161 | compliant. |
| 2162 | Unless an Rmail attribute header already exists, add it to the | 2162 | Unless an Rmail attribute header already exists, add it to the |
| 2163 | new messages. Return the number of new messages." | 2163 | new 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. |
| 149 | The headers should be delimited by a line which is | 149 | The headers should be delimited by a line which is |
| 150 | not a valid RFC822 header or continuation line, | 150 | not a valid RFC 822 (or later) header or continuation line, |
| 151 | that matches the variable `mail-header-separator'. | 151 | that matches the variable `mail-header-separator'. |
| 152 | This is used by the default mail-sending commands. See also | 152 | This 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. |
| 890 | Handles RFC 822 continuation lines." | 890 | Handle 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. |
| 898 | Handles RFC 822 continuation lines." | 898 | Handle 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. |
| 1703 | Converts from RFC822 to Emacs representation. | 1703 | RFC822-STRING should use RFC 822 (or later) format. |
| 1704 | Examples: | 1704 | Examples: |
| 1705 | Sat, 07 September 2002 00:00:01 +0100 | 1705 | Sat, 07 September 2002 00:00:01 +0100 |
| 1706 | Sat, 07 September 2002 00:00:01 MET | 1706 | Sat, 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. |
| 162 | This ensures global uniqueness of IDs, and is also suggested by | 162 | This ensures global uniqueness of IDs, and is also suggested by |
| 163 | RFC 2445 in combination with RFC 822. This is only relevant if | 163 | the 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. |
| 165 | be added. | 165 | |
| 166 | The default is to not use this because we have no really good way to get | 166 | The default is to not use this because we have no really good way to get |
| 167 | the true domain, and Org entries will normally not be shared with enough | 167 | the true domain, and Org entries will normally not be shared with enough |
| 168 | people to make this necessary." | 168 | people 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. |
| 7830 | Otherwise, moves to `point-min'. | 7830 | Otherwise, moves to `point-min'. |
| 7831 | The end of the header is the start of the next line, if there is one, | 7831 | The end of the header is the start of the next line, if there is one, |
| 7832 | else the end of the last line. This function obeys RFC822." | 7832 | else 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 |