Mercurial > emacs
changeset 18607:a7dd2801b909
(mail-complete-alist): Don't use backquote.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 04 Jul 1997 18:56:19 +0000 |
| parents | bd6a9aa88797 |
| children | 9e7f6d074138 |
| files | lisp/mail/mailalias.el |
| diffstat | 1 files changed, 10 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mailalias.el Fri Jul 04 18:44:38 1997 +0000 +++ b/lisp/mail/mailalias.el Fri Jul 04 18:56:19 1997 +0000 @@ -54,14 +54,16 @@ "^\\(Resent-\\)?\\(To\\|From\\|CC\\|BCC\\|Reply-to\\):") (defcustom mail-complete-alist - `((,mail-address-field-regexp mail-get-names pattern) - ("Newsgroups:" . (if (boundp 'gnus-active-hashtb) - gnus-active-hashtb - (if (boundp news-group-article-assoc) - news-group-article-assoc))) - ("Followup-To:" . (mail-sentto-newsgroups)) - ;;("Distribution:" ???) - ) + ;; Don't use backquote here; we don't want backquote to get loaded + ;; just because of loading this file. + (cons (cons mail-address-field-regexp '(mail-get-names pattern)) + '(("Newsgroups:" . (if (boundp 'gnus-active-hashtb) + gnus-active-hashtb + (if (boundp news-group-article-assoc) + news-group-article-assoc))) + ("Followup-To:" . (mail-sentto-newsgroups)) + ;;("Distribution:" ???) + )) "*Alist of header field and expression to return alist for completion. The expression may reference the variable `pattern' which will hold the string being completed.