diff options
Diffstat (limited to 'lisp/mail/supercite.el')
| -rw-r--r-- | lisp/mail/supercite.el | 7 |
1 files 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")) ))) |