diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2011-01-31 10:49:39 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-01-31 10:49:39 +0000 |
| commit | 5b9b62f152abdb34eca1ecd7b0bce922725c6902 (patch) | |
| tree | 9c7d1742b6b6d791aff66e140b1b5cbde3db56a9 | |
| parent | 3df3a1fc82ba4116b5eb6a4726058095ab6e450b (diff) | |
| download | emacs-5b9b62f152abdb34eca1ecd7b0bce922725c6902.tar.gz | |
gnus-art.el (article-transform-date): Fix infinite recursion.
| -rw-r--r-- | lisp/gnus/ChangeLog | 1 | ||||
| -rw-r--r-- | 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." |