From: Katsumi Yamaoka Date: Wed, 14 Apr 2004 07:25:00 +0000 (+0000) Subject: (nnmail-cache-insert): Always check whether nnmail-cache-ignore-groups X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=0aefeda33decb8bdac60ae9a120452a87b68fccc;p=gnus (nnmail-cache-insert): Always check whether nnmail-cache-ignore-groups matches a group name. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4ca1bb2cb..0495abfcd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-04-14 Katsumi Yamaoka + + * nnmail.el (nnmail-cache-insert): Always check whether + nnmail-cache-ignore-groups matches a group name. + 2004-04-13 Teodor Zlatanov * spam.el (spam-fetch-field-fast, spam-generate-fake-headers) diff --git a/lisp/nnmail.el b/lisp/nnmail.el index 2e19009f0..d653b8217 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -1,5 +1,5 @@ ;;; nnmail.el --- mail support functions for the Gnus mail backends -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -1570,15 +1570,16 @@ See the documentation for the variable `nnmail-split-fancy' for details." (save-excursion (set-buffer nnmail-cache-buffer) (goto-char (point-max)) - (if (and grp (not (string= "" grp)) - (gnus-methods-equal-p gnus-command-method - (nnmail-cache-primary-mail-backend))) + (if (and grp (not (string= "" grp))) (let ((regexp (if (consp nnmail-cache-ignore-groups) (mapconcat 'identity nnmail-cache-ignore-groups "\\|") nnmail-cache-ignore-groups))) (unless (and regexp (string-match regexp grp)) - (insert id "\t" grp "\n"))) + (if (gnus-methods-equal-p gnus-command-method + (nnmail-cache-primary-mail-backend)) + (insert id "\t" grp "\n") + (insert id "\n")))) (insert id "\n")))))) (defun nnmail-cache-primary-mail-backend ()