From f67acc8dfbd37fd8d7bb8ab34dbad942b5b32513 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 8 Mar 2002 21:08:19 +0000
Subject: [PATCH] (sc-select-attribution): Accept whatever value we get in
 CHOICE; there is no value meaning "try again".

---
 lisp/mail/supercite.el | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index a7bf6e7370e..eadfa1430c3 100644
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -1322,18 +1322,20 @@ to the auto-selected attribution string."
 	  (setq sc-attrib-or-cite nil)	; nil==attribution, t==citation
 	  (while
 	      (catch 'sc-reconfirm
-		(string= "" (setq choice
-				  (if sc-attrib-or-cite
-				      (sc-read-string
-				       "Enter citation prefix: "
-				       citation
-				       'sc-citation-confirmation-history)
-				    (sc-completing-read
-				     "Complete attribution name: "
-				     query-alist nil nil
-				     (cons initial 0)
-				     'sc-attribution-confirmation-history)
-				    )))))
+		(progn
+		  (setq choice
+			(if sc-attrib-or-cite
+			    (sc-read-string
+			     "Enter citation prefix: "
+			     citation
+			     'sc-citation-confirmation-history)
+			  (sc-completing-read
+			   "Complete attribution name: "
+			   query-alist nil nil
+			   (cons initial 0)
+			   'sc-attribution-confirmation-history)
+			  ))
+		  nil)))
 	  (if sc-attrib-or-cite
 	      ;; since the citation was chosen, we have to guess at
 	      ;; the attribution
-- 
2.39.2