From: yamaoka <yamaoka>
Date: Mon, 17 May 1999 23:56:26 +0000 (+0000)
Subject: (gnus-article-prepare-display): Call `gnus-treat-article'.
X-Git-Tag: t-gnus-6_10_064-07~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3b7c2d9f329314bd8a976e5845e30e26a8be9585;p=elisp%2Fgnus.git-

(gnus-article-prepare-display): Call `gnus-treat-article'.
(article-date-ut): Always detete the last newline of any old Date fields.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 8902c90..7834054 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1798,7 +1798,6 @@ should replace the \"Date:\" one, or should be added below it."
 	 (date (if (vectorp header) (mail-header-date header)
 		 header))
 	 (inhibit-point-motion-hooks t)
-	 (newline t)
 	 bface eface)
     (when (and date (not (string= date "")))
       (save-excursion
@@ -1811,18 +1810,12 @@ should replace the \"Date:\" one, or should be added below it."
 	    (forward-line 1))
 	  (goto-char (point-min))
 	  (let ((buffer-read-only nil))
- 	    ;; Delete any old Date headers.
- 	    (while (re-search-forward date-regexp nil t)
-	      (if newline
-		  (delete-region (progn (beginning-of-line) (point))
-				 (progn (end-of-line) (point)))
-		(delete-region (progn (beginning-of-line) (point))
-			       (progn (forward-line 1) (point))))
-	      (setq newline nil))
-	    (insert (article-make-date-line date type))
-	    (when newline
-	      (insert "\n")
-	      (forward-line -1))
+	    ;; Delete any old Date headers.
+	    (while (re-search-forward date-regexp nil t)
+	      (delete-region (progn (beginning-of-line) (point))
+			     (progn (forward-line 1) (point))))
+	    (insert (article-make-date-line date type) "\n")
+	    (forward-line -1)
 	    ;; Do highlighting.
 	    (beginning-of-line)
 	    (when (looking-at "\\([^:]+\\): *\\(.*\\)$")
@@ -2723,6 +2716,8 @@ If ALL-HEADERS is non-nil, no headers are hidden."
     (funcall method)
     ;; Associate this article with the current summary buffer.
     (setq gnus-article-current-summary gnus-summary-buffer)
+    ;; Call the treatment functions.
+    (gnus-treat-article nil)
     ;; Perform the article display hooks.
     (gnus-run-hooks 'gnus-article-display-hook)))