diff options
| author | Dave Love <fx@gnu.org> | 1999-04-12 08:46:09 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-04-12 08:46:09 +0000 |
| commit | 98237e7c449ae3d0b016d0e788cf28ed72bd4d2c (patch) | |
| tree | cbff81743229a7680cb6021ec488a477ce80bc36 /lisp/mail/supercite.el | |
| parent | 6923dac346d2b73e2f5458ebbf311046fe3fafe9 (diff) | |
| download | emacs-98237e7c449ae3d0b016d0e788cf28ed72bd4d2c.tar.gz emacs-98237e7c449ae3d0b016d0e788cf28ed72bd4d2c.tar.bz2 emacs-98237e7c449ae3d0b016d0e788cf28ed72bd4d2c.zip | |
(sc-scan-info-alist): Revert last change.
(sc-attrib-selection-list): Fix :type here instead.
Diffstat (limited to 'lisp/mail/supercite.el')
| -rw-r--r-- | lisp/mail/supercite.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index 1f23a50f5b7..ca6f0a81b36 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -419,9 +419,10 @@ and the return value must be a string, which is used as the selected attribution. Note that the variable `sc-preferred-attribution-list' must contain an element of the string \"sc-consult\" for this variable to be consulted during attribution selection." - :type '(repeat (list string (repeat (cons regexp - (choice (repeat (repeat sexp)) - string))))) + :type '(repeat (list string + (repeat (cons regexp + (choice (sexp :tag "List to eval") + string))))) :group 'supercite-attr) (defcustom sc-attribs-preselect-hook nil @@ -766,9 +767,7 @@ the list should be unique." (thing (cdr ml-elem))) (if (string-match regexp infoval) ;; we found a match, time to return - (setq rtnvalue (if (consp thing) - (car thing) - thing) + (setq rtnvalue thing mlist nil alist nil) ;; else we didn't find a match |