Mercurial > emacs

changeset 62903:9cca67e822b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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>.
author Glenn Morris <rgm@gnu.org>
date Mon, 30 May 2005 11:36:35 +0000
parents 6812f1044f86
children a193e46a75cc
files lisp/mail/supercite.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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"))
 	     )))