# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1117452995 0
# Node ID 9cca67e822b51e472a91b8c81b0fd69f7a35795b
# Parent  6812f1044f8659c018e7a406f021e5c1ef1fd8d0
(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 -r 6812f1044f86 -r 9cca67e822b5 lisp/mail/supercite.el
--- a/lisp/mail/supercite.el	Mon May 30 11:32:09 2005 +0000
+++ b/lisp/mail/supercite.el	Mon May 30 11:36:35 2005 +0000
@@ -1182,8 +1182,11 @@
 	      (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"))
 	     )))