From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Sat, 14 Nov 2020 21:19:47 +0000 (-0800)
Subject: Handle negation of search keys in gnus-search minibuffer completion
X-Git-Tag: emacs-28.0.90~5146
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab417cf64d15fb6f6620b45e31c249baec49f3a8;p=emacs.git

Handle negation of search keys in gnus-search minibuffer completion

* lisp/gnus/gnus-search.el (gnus-search-get-active): Keys might start
with a leading "-": check for that and ignore it.
---

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index 17f1108029c..498da200dab 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -2101,9 +2101,10 @@ article came from is also searched."
 (defun gnus-search--complete-key-data ()
   "Potentially return completion data for a search key or value."
   (let* ((key-start (save-excursion
-		      (if (re-search-backward " " (minibuffer-prompt-end) t)
-			  (1+ (point))
-			(minibuffer-prompt-end))))
+		      (or (re-search-backward " " (minibuffer-prompt-end) t)
+			  (goto-char (minibuffer-prompt-end)))
+		      (skip-chars-forward " -")
+		      (point)))
 	 (after-colon (save-excursion
 			(when (re-search-backward ":" key-start t)
 			  (1+ (point)))))
@@ -2113,7 +2114,7 @@ article came from is also searched."
 	;; only handle in a contact-completion context.
 	(when (and gnus-search-contact-tables
 		   (save-excursion
-		     (re-search-backward "\\<\\(\\w+\\):" key-start t)
+		     (re-search-backward "\\<-?\\(\\w+\\):" key-start t)
 		     (member (match-string 1)
 			     '("from" "to" "cc"
 			       "bcc" "recipient" "address"))))