--- /home/harder/gnus/lisp/mm-bodies.el	Sat Nov 24 19:36:22 2001
+++ mm-bodies.el	Tue Jul 23 23:25:27 2002
@@ -223,6 +223,10 @@
 	    (require 'mm-uu)
 	    (funcall mm-uu-binhex-decode-function (point-min) (point-max))
 	    t)
+	   ((eq encoding 'x-yenc)
+	    (require 'mm-uu)
+	    (funcall mm-uu-yenc-decode-function (point-min) (point-max))
+	    )
 	   ((functionp encoding)
 	    (funcall encoding (point-min) (point-max))
 	    t)
@@ -232,7 +236,7 @@
 	 (message "Error while decoding: %s" error)
 	 nil))
     (when (and
-	   (memq encoding '(base64 x-uuencode x-uue x-binhex))
+	   (memq encoding '(base64 x-uuencode x-uue x-binhex x-yenc))
 	   (equal type "text/plain"))
       (goto-char (point-min))
       (while (search-forward "\r\n" nil t)