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

[Glenn Morris]

Index: emacs/lisp/mail/supercite.el
diff -c emacs/lisp/mail/supercite.el:1.45 emacs/lisp/mail/supercite.el:1.46
*** emacs/lisp/mail/supercite.el:1.45   Thu May 26 15:20:30 2005
--- emacs/lisp/mail/supercite.el        Mon May 30 11:36:35 2005
***************
*** 1182,1189 ****
              (setq attribution attrib
                    attriblist nil))
             ((listp attrib)
!             (setq attribution (eval attrib)
!                   attriblist nil))
             (t (error "%s did not evaluate to a string or list!"
                       "sc-attrib-selection-list"))
             )))
--- 1182,1192 ----
              (setq attribution attrib
                    attriblist nil))
             ((listp attrib)
!             (setq attribution (eval attrib))
!               (if (stringp attribution)
!                   (setq attriblist nil)
!                 (setq attribution nil
!                       attriblist (cdr attriblist))))
             (t (error "%s did not evaluate to a string or list!"
                       "sc-attrib-selection-list"))
             )))