[Emacs-diffs] Changes to emacs/lisp/mail/supercite.el

[Richard M. Stallman]

Index: emacs/lisp/mail/supercite.el
diff -c emacs/lisp/mail/supercite.el:1.29 emacs/lisp/mail/supercite.el:1.30
*** emacs/lisp/mail/supercite.el:1.29   Thu Dec 20 13:22:35 2001
--- emacs/lisp/mail/supercite.el        Fri Mar  8 16:08:19 2002
***************
*** 1322,1339 ****
          (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)
!                                   )))))
          (if sc-attrib-or-cite
              ;; since the citation was chosen, we have to guess at
              ;; the attribution
--- 1322,1341 ----
          (setq sc-attrib-or-cite nil)  ; nil==attribution, t==citation
          (while
              (catch 'sc-reconfirm
!               (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