From: morioka <morioka>
Date: Wed, 30 Sep 1998 20:43:36 +0000 (+0000)
Subject: (gnus-get-newsgroup-headers): Store content-type.
X-Git-Tag: chao-gnus-6_9_3~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=72f77051300944ce3a8870995858023df51103c1;p=elisp%2Fgnus.git-

(gnus-get-newsgroup-headers): Store content-type.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 2119481..7557aa6 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4389,7 +4389,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
       (subst-char-in-region (point-min) (point-max) ?\t ?  t)
       (gnus-run-hooks 'gnus-parse-headers-hook)
       (let ((case-fold-search t)
-	    in-reply-to header p lines chars)
+	    in-reply-to header p lines chars ctype)
 	(goto-char (point-min))
 	;; Search to the beginning of the next header.	Error messages
 	;; do not begin with 2 or 3.
@@ -4497,6 +4497,11 @@ The resulting hash table is returned, or nil if no Xrefs were found."
 	      (goto-char p)
 	      (and (search-forward "\nxref: " nil t)
 		   (nnheader-header-value)))))
+	  (goto-char p)
+	  (if (and (search-forward "\ncontent-type: " nil t)
+		   (setq ctype (nnheader-header-value)))
+	      (mime-entity-set-content-type-internal
+	       header (mime-parse-Content-Type ctype)))
 	  (when (equal id ref)
 	    (setq ref nil))