From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 4 Jul 1997 18:56:19 +0000 (+0000)
Subject: (mail-complete-alist): Don't use backquote.
X-Git-Tag: emacs-20.1~1339
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5695bf0c7e5666d60710526c10fe76c64500b3f5;p=emacs.git

(mail-complete-alist): Don't use backquote.
---

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.