(sc-select-attribution): Only use a list element from

sc-attrib-selection-list if it returns a string.
Reported by Davide G. M. Salvetti <salve@debian.org>.

diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index f37988e8a3f7b7a58b373936de935364f6ecbd6f..7ed1c2d97b609f7108ddee7fe5ff38747e45da37 100644 (file)
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -1182,8 +1182,11 @@ to the auto-selected attribution string."
              (setq attribution attrib
                    attriblist nil))
             ((listp attrib)
-             (setq attribution (eval attrib)
-                   attriblist nil))
+             (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"))
             )))