From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 8 Mar 2002 21:08:19 +0000 (+0000)
Subject: (sc-select-attribution): Accept whatever value we get in CHOICE; there
X-Git-Tag: ttn-vms-21-2-B4~16269
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f67acc8dfbd37fd8d7bb8ab34dbad942b5b32513;p=emacs.git

(sc-select-attribution): Accept whatever value we get in CHOICE; there
is no value meaning "try again".
---

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