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

[Miles Bader]

Index: emacs/lisp/gnus/rfc2231.el
diff -c emacs/lisp/gnus/rfc2231.el:1.6 emacs/lisp/gnus/rfc2231.el:1.7
*** emacs/lisp/gnus/rfc2231.el:1.6      Sat Sep  4 13:13:44 2004
--- emacs/lisp/gnus/rfc2231.el  Sun Dec 26 23:33:51 2004
***************
*** 88,94 ****
                         (point) (progn (forward-sexp 1) (point))))))
              (error "Invalid header: %s" string))
            (setq c (char-after))
-           (setq encoded nil)
            (when (eq c ?*)
              (forward-char 1)
              (setq c (char-after))
--- 88,93 ----
***************
*** 126,141 ****
                           (point) (progn (forward-sexp) (point)))))
             (t
              (error "Invalid header: %s" string)))
-           (when encoded
-             (setq value (rfc2231-decode-encoded-string value)))
            (if number
                (setq prev-attribute attribute
                      prev-value (concat prev-value value))
!             (push (cons attribute value) parameters))))
  
        ;; Take care of any final continuations.
        (when prev-attribute
!         (push (cons prev-attribute prev-value) parameters))
  
        (when type
          `(,type ,@(nreverse parameters)))))))
--- 125,146 ----
                           (point) (progn (forward-sexp) (point)))))
             (t
              (error "Invalid header: %s" string)))
            (if number
                (setq prev-attribute attribute
                      prev-value (concat prev-value value))
!             (push (cons attribute
!                         (if encoded
!                             (rfc2231-decode-encoded-string value)
!                           value))
!                   parameters))))
  
        ;; Take care of any final continuations.
        (when prev-attribute
!         (push (cons prev-attribute
!                     (if encoded
!                         (rfc2231-decode-encoded-string prev-value)
!                       prev-value))
!               parameters))
  
        (when type
          `(,type ,@(nreverse parameters)))))))