[gnus git] branch master updated: =1= (article-transform-date): Fix infinite recursion.

Lars Magne Ingebrigtsen <[email protected]>
Newsgroups gmane.emacs.gnus.cvs
Message-ID <[email protected]>
       via  c85ff27626350a909ee39474fecac012fec8cd26 (commit)
      from  370c215c8ab52a6d4e8c9be8e497de3c7f4760b7 (commit)


- Log -----------------------------------------------------------------
commit c85ff27626350a909ee39474fecac012fec8cd26
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Mon Jan 31 02:41:35 2011 -0800

    (article-transform-date): Fix infinite recursion.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2407e1b..0afb500 100644
--- a/lisp/ChangeLog
+++ b/lisp/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-art.el b/lisp/gnus-art.el
index 5d32c09..a0eb43e 100644
--- a/lisp/gnus-art.el
+++ b/lisp/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."

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    1 +
 lisp/gnus-art.el |    6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.