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