From 9c6760b6aad3f1b5c9176f992751caaa484fc01f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 30 May 2005 11:36:35 +0000 Subject: [PATCH] (sc-select-attribution): Only use a list element from sc-attrib-selection-list if it returns a string. Reported by Davide G. M. Salvetti . --- lisp/mail/supercite.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index f37988e8a3f..7ed1c2d97b6 100644 --- 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")) ))) -- 2.39.5