From 5b9b62f152abdb34eca1ecd7b0bce922725c6902 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 31 Jan 2011 10:49:39 +0000 Subject: [PATCH] gnus-art.el (article-transform-date): Fix infinite recursion. --- lisp/gnus/ChangeLog | 1 + lisp/gnus/gnus-art.el | 6 +++--- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index ffb19c8bc59..34314ad8479 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -2,6 +2,7 @@ * gnus-art.el (article-transform-date): Rewrite to still work when there are several rfc2822 parts. + (article-transform-date): Fix infinite recursion. * nnimap.el (nnimap-wait-for-response): Wait for results in a more secure manner. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 5d32c097663..a0eb43eff61 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -3440,8 +3440,7 @@ possible values." (delete-region (point-at-bol) (progn (gnus-article-forward-header) (point))) - (article-transform-date date type bface eface) - (forward-line 1))))))) + (article-transform-date date type bface eface))))))) (defun article-transform-date (date type bface eface) (dolist (this-type (cond @@ -3463,7 +3462,8 @@ possible values." (put-text-property (match-beginning 1) (1+ (match-end 1)) 'face bface) (put-text-property (match-beginning 2) (match-end 2) - 'face eface)))) + 'face eface)) + (forward-line 1))) (defun article-make-date-line (date type) "Return a DATE line of TYPE." -- 2.39.5