From: Glenn Morris Date: Mon, 30 May 2005 11:36:35 +0000 (+0000) Subject: (sc-select-attribution): Only use a list element from X-Git-Tag: emacs-pretest-22.0.90~9410 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c6760b6aad3f1b5c9176f992751caaa484fc01f;p=emacs.git (sc-select-attribution): Only use a list element from sc-attrib-selection-list if it returns a string. Reported by Davide G. M. Salvetti . --- 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")) )))