diff -c qgnus/lisp/nndoc.el~ qgnus/lisp/nndoc.el
*** qgnus/lisp/nndoc.el~	Tue Feb  3 13:34:03 1998
--- qgnus/lisp/nndoc.el	Tue Feb  3 13:34:03 1998
***************
*** 465,479 ****
  	boundary-id b-delimiter entry)
      (when (and
  	   (re-search-forward
! 	    (concat "^Content-Type: *multipart/digest;[ \t\n]*[ \t]"
  		    "boundary=\"\\([^\"\n]*[^\" \t\n]\\)\"")
  	    nil t)
! 	   (match-beginning 1))
!       (setq boundary-id (match-string 1)
  	    b-delimiter (concat "\n--" boundary-id "[\n \t]+"))
        (setq entry (assq 'mime-digest nndoc-type-alist))
        (setcdr entry
  	      (list
  	       (cons 'head-end "^ ?$")
  	       (cons 'body-begin "^ ?\n")
  	       (cons 'article-begin b-delimiter)
--- 465,480 ----
  	boundary-id b-delimiter entry)
      (when (and
  	   (re-search-forward
! 	    (concat "^Content-Type: *multipart/\\(digest\\|mixed\\);[ \t\n]*[ \t]"
  		    "boundary=\"\\([^\"\n]*[^\" \t\n]\\)\"")
  	    nil t)
! 	   (match-beginning 2))
!       (setq boundary-id (match-string 2)
  	    b-delimiter (concat "\n--" boundary-id "[\n \t]+"))
        (setq entry (assq 'mime-digest nndoc-type-alist))
        (setcdr entry
  	      (list
+ 	       (cons 'head-begin "^ ?$")
  	       (cons 'head-end "^ ?$")
  	       (cons 'body-begin "^ ?\n")
  	       (cons 'article-begin b-delimiter)