*** /home/harder/gnus/lisp/mm-decode.el	Wed Mar 10 12:56:07 2004
--- /home/harder/cvsgnus/lisp/mm-decode.el	Tue Mar 16 03:35:35 2004
***************
*** 578,586 ****
  
  (defun mm-dissect-singlepart (ctl cte &optional force cdl description id)
    (when (or force
! 	    (if (equal "text/plain" (car ctl))
! 		(assoc 'format ctl)
! 	      t))
      (mm-make-handle
       (mm-copy-to-buffer) ctl cte nil cdl description nil id)))
  
--- 578,584 ----
  
  (defun mm-dissect-singlepart (ctl cte &optional force cdl description id)
    (when (or force
! 	    (not (equal "text/plain" (car ctl))))
      (mm-make-handle
       (mm-copy-to-buffer) ctl cte nil cdl description nil id)))