1751 |
;; |
;; |
1752 |
;; addr-adl = nstring |
;; addr-adl = nstring |
1753 |
;; ; Holds route from [RFC-822] route-addr if |
;; ; Holds route from [RFC-822] route-addr if |
1754 |
;; ; non-NIL |
;; ; non-nil |
1755 |
;; |
;; |
1756 |
;; addr-host = nstring |
;; addr-host = nstring |
1757 |
;; ; NIL indicates [RFC-822] group syntax. |
;; ; nil indicates [RFC-822] group syntax. |
1758 |
;; ; Otherwise, holds [RFC-822] domain name |
;; ; Otherwise, holds [RFC-822] domain name |
1759 |
;; |
;; |
1760 |
;; addr-mailbox = nstring |
;; addr-mailbox = nstring |
1761 |
;; ; NIL indicates end of [RFC-822] group; if |
;; ; nil indicates end of [RFC-822] group; if |
1762 |
;; ; non-NIL and addr-host is NIL, holds |
;; ; non-nil and addr-host is nil, holds |
1763 |
;; ; [RFC-822] group name. |
;; ; [RFC-822] group name. |
1764 |
;; ; Otherwise, holds [RFC-822] local-part |
;; ; Otherwise, holds [RFC-822] local-part |
1765 |
;; ; after removing [RFC-822] quoting |
;; ; after removing [RFC-822] quoting |
1766 |
;; |
;; |
1767 |
;; addr-name = nstring |
;; addr-name = nstring |
1768 |
;; ; If non-NIL, holds phrase from [RFC-822] |
;; ; If non-nil, holds phrase from [RFC-822] |
1769 |
;; ; mailbox after removing [RFC-822] quoting |
;; ; mailbox after removing [RFC-822] quoting |
1770 |
;; |
;; |
1771 |
|
|
2455 |
(push (imap-parse-nstring) body);; body-fld-desc |
(push (imap-parse-nstring) body);; body-fld-desc |
2456 |
(imap-forward) |
(imap-forward) |
2457 |
;; next `or' for Sun SIMS bug, it regard body-fld-enc as a |
;; next `or' for Sun SIMS bug, it regard body-fld-enc as a |
2458 |
;; nstring and return NIL instead of defaulting back to 7BIT |
;; nstring and return nil instead of defaulting back to 7BIT |
2459 |
;; as the standard says. |
;; as the standard says. |
2460 |
(push (or (imap-parse-nstring) "7BIT") body);; body-fld-enc |
(push (or (imap-parse-nstring) "7BIT") body);; body-fld-enc |
2461 |
(imap-forward) |
(imap-forward) |