diff options
| author | Richard M. Stallman <[email protected]> | 2002-03-08 21:08:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2002-03-08 21:08:19 +0000 |
| commit | f67acc8dfbd37fd8d7bb8ab34dbad942b5b32513 (patch) | |
| tree | 47bd8508a71c5158ebc1cf7c1849bf883e4071ae /lisp/mail | |
| parent | 6b997f08252da383ee044f7b99d8cc17eec6749b (diff) | |
(sc-select-attribution): Accept whatever value we get in CHOICE; there
is no value meaning "try again".
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/supercite.el | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index a7bf6e7370..eadfa1430c 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 |