From 5695bf0c7e5666d60710526c10fe76c64500b3f5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 4 Jul 1997 18:56:19 +0000 Subject: [PATCH] (mail-complete-alist): Don't use backquote. --- lisp/mail/mailalias.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index fb62673ef7e..c0bb580fcaf 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el @@ -54,14 +54,16 @@ When t this still needs to be initialized.") "^\\(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. -- 2.39.2