From 9cf0b6a7dcd8601f5e3e0cb4317ee55f15ce0b90 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 10 Jun 2012 19:59:00 +0200 Subject: [PATCH] (gnus-update-format-specifications): Remove outdated grouplens stuff. --- lisp/ChangeLog | 5 +++++ lisp/gnus-spec.el | 9 --------- 2 files changed, 5 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f71c28661..005fa64c9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-06-10 Lars Magne Ingebrigtsen + + * gnus-spec.el (gnus-update-format-specifications): Remove outdated + grouplens stuff. + 2012-06-07 Lars Magne Ingebrigtsen * gnus-msg.el (gnus-msg-mail): Warn the user about Gnus not running diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el index e1879202e..152b4cbbe 100644 --- a/lisp/gnus-spec.el +++ b/lisp/gnus-spec.el @@ -214,15 +214,6 @@ Return a list of updated types." (not (equal emacs-version (cdr (assq 'version gnus-format-specs))))) (setq gnus-format-specs nil)) - ;; Flush the group format spec cache if there's the grouplens stuff - ;; or it doesn't support decoded group names. - (when (memq 'group types) - (let* ((spec (assq 'group gnus-format-specs)) - (sspec (gnus-prin1-to-string (nth 2 spec)))) - (when (or (string-match " gnus-tmp-grouplens[ )]" sspec) - (not (string-match " gnus-tmp-decoded-group[ )]" sspec))) - (setq gnus-format-specs (delq spec gnus-format-specs))))) - ;; Go through all the formats and see whether they need updating. (let (new-format entry type val updated) (while (setq type (pop types)) -- 2.25.1