diff options
| author | Glenn Morris <rgm@gnu.org> | 2005-05-30 11:36:35 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2005-05-30 11:36:35 +0000 |
| commit | 9c6760b6aad3f1b5c9176f992751caaa484fc01f (patch) | |
| tree | 2e272a9dbb87e6baf8b3bf801a2bbbd41c01651e /lisp/mail/supercite.el | |
| parent | d1f8ed14e82367fd6c49751c601ec39aa4c17f52 (diff) | |
| download | emacs-9c6760b6aad3f1b5c9176f992751caaa484fc01f.tar.gz emacs-9c6760b6aad3f1b5c9176f992751caaa484fc01f.tar.bz2 emacs-9c6760b6aad3f1b5c9176f992751caaa484fc01f.zip | |
(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>.
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")) ))) |