From: keiichi <keiichi>
Date: Wed, 4 Nov 1998 08:41:26 +0000 (+0000)
Subject: Sync up with Chao-gnus 6.12.
X-Git-Tag: keiichi-199811302358~25
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=45d09b937d6095906585ec8ee6c97389dff24f76;p=elisp%2Fgnus.git-

Sync up with Chao-gnus 6.12.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index a5e5710..359d8a5 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4402,19 +4402,20 @@ The resulting hash table is returned, or nil if no Xrefs were found."
 	    (progn
 	      (goto-char p)
 	      (if (search-forward "\nsubject: " nil t)
-		  (nnheader-header-value)
+		  (buffer-substring (match-end 0) (std11-field-end))
 		"(none)"))
 	    ;; From.
 	    (progn
 	      (goto-char p)
 	      (if (search-forward "\nfrom: " nil t)
-		  (nnheader-header-value)
+		  (buffer-substring (match-end 0) (std11-field-end))
 		"(nobody)"))
 	    ;; Date.
 	    (progn
 	      (goto-char p)
 	      (if (search-forward "\ndate: " nil t)
-		  (nnheader-header-value) ""))
+		  (buffer-substring (match-end 0) (std11-field-end))
+		""))
 	    ;; Message-ID.
 	    (progn
 	      (goto-char p)
@@ -4434,11 +4435,11 @@ The resulting hash table is returned, or nil if no Xrefs were found."
 		  (progn
 		    (setq end (point))
 		    (prog1
-			(nnheader-header-value)
+			(buffer-substring (match-end 0) (std11-field-end))
 		      (setq ref
 			    (buffer-substring
 			     (progn
-			       (end-of-line)
+                               ;; (end-of-line)
 			       (search-backward ">" end t)
 			       (1+ (point)))
 			     (progn
@@ -4448,7 +4449,9 @@ The resulting hash table is returned, or nil if no Xrefs were found."
 		;; were no references and the in-reply-to header looks
 		;; promising.
 		(if (and (search-forward "\nin-reply-to: " nil t)
-			 (setq in-reply-to (nnheader-header-value))
+			 (setq in-reply-to
+			       (buffer-substring (match-end 0)
+						 (std11-field-end)))
 			 (string-match "<[^>]+>" in-reply-to))
 		    (let (ref2)
 		      (setq ref (substring in-reply-to (match-beginning 0)
@@ -4478,10 +4481,11 @@ The resulting hash table is returned, or nil if no Xrefs were found."
 	    (progn
 	      (goto-char p)
 	      (and (search-forward "\nxref: " nil t)
-		   (nnheader-header-value)))))
+		   (buffer-substring (match-end 0) (std11-field-end))))))
 	  (goto-char p)
 	  (if (and (search-forward "\ncontent-type: " nil t)
-		   (setq ctype (nnheader-header-value)))
+		   (setq ctype
+			 (buffer-substring (match-end 0) (std11-field-end))))
 	      (mime-entity-set-content-type-internal
 	       header (mime-parse-Content-Type ctype)))
 	  (when (equal id ref)
diff --git a/lisp/mmgnus.el b/lisp/mmgnus.el
index 489065d..a2f5d2c 100644
--- a/lisp/mmgnus.el
+++ b/lisp/mmgnus.el
@@ -36,6 +36,7 @@
     (set-buffer gnus-original-article-buffer)
     (mime-entity-set-header-start-internal entity (point-min))
     (mime-entity-set-body-end-internal entity (point-max))
+    (goto-char (point-min))
     (if (re-search-forward "^$" nil t)
 	(progn
 	  (mime-entity-set-header-end-internal entity (match-end 0))
diff --git a/lisp/nnmh.el b/lisp/nnmh.el
index 8aafd7d..8997237 100644
--- a/lisp/nnmh.el
+++ b/lisp/nnmh.el
@@ -110,7 +110,7 @@
 	(when large
 	  (nnheader-message 5 "nnmh: Receiving headers...done"))
 
-	(nnheader-fold-continuation-lines)
+        ;; (nnheader-fold-continuation-lines)
 	'headers))))
 
 (deffoo nnmh-open-server (server &optional defs)