# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1015621699 0
# Node ID 2e05b93ba14ac05acfa7a03db40894e535afbaa0
# Parent  72c5819d7675820171f10be88b499601e25fbeb4
(sc-select-attribution): Accept whatever value we get in CHOICE; there
is no value meaning "try again".

diff -r 72c5819d7675 -r 2e05b93ba14a lisp/mail/supercite.el
--- a/lisp/mail/supercite.el	Fri Mar 08 19:31:38 2002 +0000
+++ b/lisp/mail/supercite.el	Fri Mar 08 21:08:19 2002 +0000
@@ -1322,18 +1322,20 @@
 	  (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