From: yamaoka <yamaoka>
Date: Wed, 4 Nov 1998 08:14:41 +0000 (+0000)
Subject: Sync up with Chao-gnus 6.12.3.
X-Git-Tag: pgnus-ichikawa-199811302358~99
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dcc4ed8ccfe09dc8d05417c36c1e8b99e540a3cc;p=elisp%2Fgnus.git-

Sync up with Chao-gnus 6.12.3.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 88df2e9..77b5c56 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4469,19 +4469,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)
@@ -4501,11 +4502,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
@@ -4515,7 +4516,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)
@@ -4545,7 +4548,7 @@ 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))))
 	    ;; Extra.
 	    (when gnus-extra-headers
 	      (let ((extra gnus-extra-headers)
@@ -4554,13 +4557,16 @@ The resulting hash table is returned, or nil if no Xrefs were found."
 		  (goto-char p)
 		  (when (search-forward
 			 (concat "\n" (symbol-name (car extra)) ": ") nil t)
-		    (push (cons (car extra) (nnheader-header-value))
+		    (push (cons (car extra)
+				(buffer-substring (match-end 0)
+						  (std11-field-end)))
 			  out))
 		  (pop extra))
 		out))))
 	  (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 efc0654..c8cc85b 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)