From: 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/gitweb/?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)