Entering forwards with C-d

[Robert Bihlmeyer <robbe@orcus.priv.at>]

[-- Attachment #1: Type: text/plain, Size: 725 bytes --]

Hi,

I was made aware, that you could "enter" digests and forwards with C-d 
from the summary buffer.

This does not work with mimified forwards (multipart/mixed with a
message/rfc822 part). Gnus itself produces (with TM, if that matters)
such forwards, so it should probably understand them as well. I fixed
this by adding recognition of "multipart/mixed" as a possible
mime-"digest".

Still, the undigested result did not have the right headers (i.e. mime 
headers instead of rfc822 headers), so I added another line. Now
headers are in the right place, which makes replying to
message/rfc822-parts possible. Sadly, the digest-group-summary still
shows nothing useful (e.g. "[(none)]: (none)").

A patch is below.

	Robbe


[-- Attachment #2: Type: text/plain, Size: 1332 bytes --]

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)

[-- Attachment #3: Type: text/plain, Size: 140 bytes --]


-- 
Robert Bihlmeyer	reads: Deutsch, English, MIME, Latin-1, NO SPAM!
<robbe@orcus.priv.at>	<http://stud2.tuwien.ac.at/~e9426626/sig.html>