From 3b7c2d9f329314bd8a976e5845e30e26a8be9585 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 17 May 1999 23:56:26 +0000 Subject: [PATCH] (gnus-article-prepare-display): Call `gnus-treat-article'. (article-date-ut): Always detete the last newline of any old Date fields. --- lisp/gnus-art.el | 21 ++++++++------------- 1 file changed, 8 insertions(+), 13 deletions(-) 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))) -- 1.7.10.4