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

[Miles Bader]

Index: emacs/lisp/gnus/gnus-art.el
diff -c emacs/lisp/gnus/gnus-art.el:1.67 emacs/lisp/gnus/gnus-art.el:1.68
*** emacs/lisp/gnus/gnus-art.el:1.67    Mon Apr 11 23:12:57 2005
--- emacs/lisp/gnus/gnus-art.el Wed Apr 13 21:38:06 2005
***************
*** 4358,4378 ****
                    (mm-read-coding-system "Charset: "))))
         (t
          (if (mm-handle-undisplayer handle)
!             (mm-remove-part handle))
!         (setq contents
!               (if (fboundp 'string-to-multibyte)
!                   (string-to-multibyte contents)
!                 (mapconcat
!                  (lambda (ch) (mm-string-as-multibyte (char-to-string ch)))
!                  contents "")))))
        (forward-line 2)
!       (mm-insert-inline handle
!                         (if (and charset
!                                  (setq charset (mm-charset-to-coding-system
!                                                 charset))
!                                  (not (eq charset 'ascii)))
!                             (mm-decode-coding-string contents charset)
!                           contents))
        (goto-char b)))))
  
  (defun gnus-mime-view-part-as-charset (&optional handle arg)
--- 4358,4373 ----
                    (mm-read-coding-system "Charset: "))))
         (t
          (if (mm-handle-undisplayer handle)
!             (mm-remove-part handle))))
        (forward-line 2)
!       (mm-insert-inline
!        handle
!        (if (and charset
!                 (setq charset (mm-charset-to-coding-system
!                                charset))
!                 (not (eq charset 'ascii)))
!            (mm-decode-coding-string contents charset)
!          (mm-string-to-multibyte contents)))
        (goto-char b)))))
  
  (defun gnus-mime-view-part-as-charset (&optional handle arg)