From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Wed, 25 Nov 2020 23:26:06 +0000 (-0800)
Subject: Add "replied" -> "answered" for gnus-search imap searches
X-Git-Tag: emacs-28.0.90~5022
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61f1eb99b065194cb5bae29d439f16bdc0a8ac7d;p=emacs.git

Add "replied" -> "answered" for gnus-search imap searches

* lisp/gnus/gnus-search.el (gnus-search-imap-handle-flag): This allows
"mark:A" to be translated into "ANSWERED" and "-mark:A" to be
translated into "UNANSWERED".
---

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index 310711eca0a..89d8cff9257 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -1313,6 +1313,7 @@ of whichever date elements are present."
 	(pcase flag
 	  ("flag" "flagged")
 	  ("read" "seen")
+	  ("replied" "answered")
 	  (_ flag)))
   (if (member flag '("seen" "answered" "deleted" "draft" "flagged"))
       (upcase flag)