[Emacs-diffs] Changes to emacs/lisp/gnus/imap.el

[ShengHuo ZHU]

Index: emacs/lisp/gnus/imap.el
diff -c emacs/lisp/gnus/imap.el:1.5 emacs/lisp/gnus/imap.el:1.6
*** emacs/lisp/gnus/imap.el:1.5 Sun Nov 25 17:19:45 2001
--- emacs/lisp/gnus/imap.el     Thu Dec 20 13:59:32 2001
***************
*** 1751,1771 ****
  ;;
  ;;   addr-adl        = nstring
  ;;                       ; Holds route from [RFC-822] route-addr if
! ;;                       ; non-NIL
  ;;
  ;;   addr-host       = nstring
! ;;                       ; NIL indicates [RFC-822] group syntax.
  ;;                       ; Otherwise, holds [RFC-822] domain name
  ;;
  ;;   addr-mailbox    = nstring
! ;;                       ; NIL indicates end of [RFC-822] group; if
! ;;                       ; non-NIL and addr-host is NIL, holds
  ;;                       ; [RFC-822] group name.
  ;;                       ; Otherwise, holds [RFC-822] local-part
  ;;                       ; after removing [RFC-822] quoting
  ;;
  ;;   addr-name       = nstring
! ;;                       ; If non-NIL, holds phrase from [RFC-822]
  ;;                       ; mailbox after removing [RFC-822] quoting
  ;;
  
--- 1751,1771 ----
  ;;
  ;;   addr-adl        = nstring
  ;;                       ; Holds route from [RFC-822] route-addr if
! ;;                       ; non-nil
  ;;
  ;;   addr-host       = nstring
! ;;                       ; nil indicates [RFC-822] group syntax.
  ;;                       ; Otherwise, holds [RFC-822] domain name
  ;;
  ;;   addr-mailbox    = nstring
! ;;                       ; nil indicates end of [RFC-822] group; if
! ;;                       ; non-nil and addr-host is nil, holds
  ;;                       ; [RFC-822] group name.
  ;;                       ; Otherwise, holds [RFC-822] local-part
  ;;                       ; after removing [RFC-822] quoting
  ;;
  ;;   addr-name       = nstring
! ;;                       ; If non-nil, holds phrase from [RFC-822]
  ;;                       ; mailbox after removing [RFC-822] quoting
  ;;
  
***************
*** 2455,2461 ****
        (push (imap-parse-nstring) body);; body-fld-desc
        (imap-forward)
        ;; next `or' for Sun SIMS bug, it regard body-fld-enc as a
!       ;; nstring and return NIL instead of defaulting back to 7BIT
        ;; as the standard says.
        (push (or (imap-parse-nstring) "7BIT") body);; body-fld-enc
        (imap-forward)
--- 2455,2461 ----
        (push (imap-parse-nstring) body);; body-fld-desc
        (imap-forward)
        ;; next `or' for Sun SIMS bug, it regard body-fld-enc as a
!       ;; nstring and return nil instead of defaulting back to 7BIT
        ;; as the standard says.
        (push (or (imap-parse-nstring) "7BIT") body);; body-fld-enc
        (imap-forward)