diff options
| author | Richard M. Stallman | 2002-03-08 21:08:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-03-08 21:08:19 +0000 |
| commit | f67acc8dfbd37fd8d7bb8ab34dbad942b5b32513 (patch) | |
| tree | 47bd8508a71c5158ebc1cf7c1849bf883e4071ae | |
| parent | 6b997f08252da383ee044f7b99d8cc17eec6749b (diff) | |
| download | emacs-f67acc8dfbd37fd8d7bb8ab34dbad942b5b32513.tar.gz emacs-f67acc8dfbd37fd8d7bb8ab34dbad942b5b32513.zip | |
(sc-select-attribution): Accept whatever value we get in CHOICE; there
is no value meaning "try again".
| -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 a7bf6e7370e..eadfa1430c3 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el | |||
| @@ -1322,18 +1322,20 @@ to the auto-selected attribution string." | |||
| 1322 | (setq sc-attrib-or-cite nil) ; nil==attribution, t==citation | 1322 | (setq sc-attrib-or-cite nil) ; nil==attribution, t==citation |
| 1323 | (while | 1323 | (while |
| 1324 | (catch 'sc-reconfirm | 1324 | (catch 'sc-reconfirm |
| 1325 | (string= "" (setq choice | 1325 | (progn |
| 1326 | (if sc-attrib-or-cite | 1326 | (setq choice |
| 1327 | (sc-read-string | 1327 | (if sc-attrib-or-cite |
| 1328 | "Enter citation prefix: " | 1328 | (sc-read-string |
| 1329 | citation | 1329 | "Enter citation prefix: " |
| 1330 | 'sc-citation-confirmation-history) | 1330 | citation |
| 1331 | (sc-completing-read | 1331 | 'sc-citation-confirmation-history) |
| 1332 | "Complete attribution name: " | 1332 | (sc-completing-read |
| 1333 | query-alist nil nil | 1333 | "Complete attribution name: " |
| 1334 | (cons initial 0) | 1334 | query-alist nil nil |
| 1335 | 'sc-attribution-confirmation-history) | 1335 | (cons initial 0) |
| 1336 | ))))) | 1336 | 'sc-attribution-confirmation-history) |
| 1337 | )) | ||
| 1338 | nil))) | ||
| 1337 | (if sc-attrib-or-cite | 1339 | (if sc-attrib-or-cite |
| 1338 | ;; since the citation was chosen, we have to guess at | 1340 | ;; since the citation was chosen, we have to guess at |
| 1339 | ;; the attribution | 1341 | ;; the attribution |