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

diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index fb62673ef7e1c801fd04558a4a3c9e0856eb56d7..c0bb580fcaf58795c3b0efb85cfd7e910108982e 100644 (file)
--- 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.