Mercurial > emacs
comparison lisp/gnus/imap.el @ 42205:7308bbc423d5
Doc fixes.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Thu, 20 Dec 2001 18:59:32 +0000 |
| parents | 52c9115c94be |
| children | dd529e3b965b |
comparison
equal
deleted
inserted
replaced
| 42204:73e75f765479 | 42205:7308bbc423d5 |
|---|---|
| 1749 ;; address = "(" addr-name SP addr-adl SP addr-mailbox SP | 1749 ;; address = "(" addr-name SP addr-adl SP addr-mailbox SP |
| 1750 ;; addr-host ")" | 1750 ;; addr-host ")" |
| 1751 ;; | 1751 ;; |
| 1752 ;; addr-adl = nstring | 1752 ;; addr-adl = nstring |
| 1753 ;; ; Holds route from [RFC-822] route-addr if | 1753 ;; ; Holds route from [RFC-822] route-addr if |
| 1754 ;; ; non-NIL | 1754 ;; ; non-nil |
| 1755 ;; | 1755 ;; |
| 1756 ;; addr-host = nstring | 1756 ;; addr-host = nstring |
| 1757 ;; ; NIL indicates [RFC-822] group syntax. | 1757 ;; ; nil indicates [RFC-822] group syntax. |
| 1758 ;; ; Otherwise, holds [RFC-822] domain name | 1758 ;; ; Otherwise, holds [RFC-822] domain name |
| 1759 ;; | 1759 ;; |
| 1760 ;; addr-mailbox = nstring | 1760 ;; addr-mailbox = nstring |
| 1761 ;; ; NIL indicates end of [RFC-822] group; if | 1761 ;; ; nil indicates end of [RFC-822] group; if |
| 1762 ;; ; non-NIL and addr-host is NIL, holds | 1762 ;; ; non-nil and addr-host is nil, holds |
| 1763 ;; ; [RFC-822] group name. | 1763 ;; ; [RFC-822] group name. |
| 1764 ;; ; Otherwise, holds [RFC-822] local-part | 1764 ;; ; Otherwise, holds [RFC-822] local-part |
| 1765 ;; ; after removing [RFC-822] quoting | 1765 ;; ; after removing [RFC-822] quoting |
| 1766 ;; | 1766 ;; |
| 1767 ;; addr-name = nstring | 1767 ;; addr-name = nstring |
| 1768 ;; ; If non-NIL, holds phrase from [RFC-822] | 1768 ;; ; If non-nil, holds phrase from [RFC-822] |
| 1769 ;; ; mailbox after removing [RFC-822] quoting | 1769 ;; ; mailbox after removing [RFC-822] quoting |
| 1770 ;; | 1770 ;; |
| 1771 | 1771 |
| 1772 (defsubst imap-parse-address () | 1772 (defsubst imap-parse-address () |
| 1773 (let (address) | 1773 (let (address) |
| 2453 (push (imap-parse-nstring) body);; body-fld-id | 2453 (push (imap-parse-nstring) body);; body-fld-id |
| 2454 (imap-forward) | 2454 (imap-forward) |
| 2455 (push (imap-parse-nstring) body);; body-fld-desc | 2455 (push (imap-parse-nstring) body);; body-fld-desc |
| 2456 (imap-forward) | 2456 (imap-forward) |
| 2457 ;; next `or' for Sun SIMS bug, it regard body-fld-enc as a | 2457 ;; next `or' for Sun SIMS bug, it regard body-fld-enc as a |
| 2458 ;; nstring and return NIL instead of defaulting back to 7BIT | 2458 ;; nstring and return nil instead of defaulting back to 7BIT |
| 2459 ;; as the standard says. | 2459 ;; as the standard says. |
| 2460 (push (or (imap-parse-nstring) "7BIT") body);; body-fld-enc | 2460 (push (or (imap-parse-nstring) "7BIT") body);; body-fld-enc |
| 2461 (imap-forward) | 2461 (imap-forward) |
| 2462 (push (imap-parse-number) body);; body-fld-octets | 2462 (push (imap-parse-number) body);; body-fld-octets |
| 2463 | 2463 |