From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 27 Jul 2020 22:51:29 +0000 (+0200)
Subject: Fix thinko in previous nnmail.el patch
X-Git-Tag: emacs-28.0.90~6922
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b2bb1135d81a533a578c51389831d6aecfa2a5b2;p=emacs.git

Fix thinko in previous nnmail.el patch

* lisp/gnus/nnmail.el (nnmail-check-duplication): Fix thinko in
previous patch -- group-art is a list of pairs, not a pair.
---

diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el
index 729f8e347c7..b6308140fc9 100644
--- a/lisp/gnus/nnmail.el
+++ b/lisp/gnus/nnmail.el
@@ -1752,9 +1752,11 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
 	;; We need to get the unique Gnus group name for this article
 	;; -- there may be identically named groups from several
 	;; backends.
-	(push (cons (gnus-group-prefixed-name (car group-art)
-					      gnus-command-method)
-		    (cdr group-art))
+	(push (mapcar
+	       (lambda (ga)
+		 (cons (gnus-group-prefixed-name (car ga) gnus-command-method)
+		       (cdr ga)))
+	       group-art)
 	      nnmail-split-history)
       (delete-region (point-min) (point-max)))))