Synch to No Gnus 200404150642.
authoryamaoka <yamaoka>
Thu, 15 Apr 2004 06:43:13 +0000 (06:43 +0000)
committeryamaoka <yamaoka>
Thu, 15 Apr 2004 06:43:13 +0000 (06:43 +0000)
lisp/ChangeLog
lisp/nnmail.el

index 0495abf..7c07bec 100644 (file)
@@ -1,3 +1,7 @@
+2004-04-15  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * nnmail.el (nnmail-cache-insert): Revert last change.
+
 2004-04-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * nnmail.el (nnmail-cache-insert): Always check whether
index e71afe7..1949e6e 100644 (file)
@@ -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, 2004
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -1569,16 +1569,15 @@ 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)))
+       (if (and grp (not (string= "" grp))
+                (gnus-methods-equal-p gnus-command-method
+                                      (nnmail-cache-primary-mail-backend)))
            (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))
-               (if (gnus-methods-equal-p gnus-command-method
-                                         (nnmail-cache-primary-mail-backend))
-                   (insert id "\t" grp "\n")
-                 (insert id "\n"))))
+               (insert id "\t" grp "\n")))
          (insert id "\n"))))))
   
 (defun nnmail-cache-primary-mail-backend ()