diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-04 18:56:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-04 18:56:19 +0000 |
| commit | 5695bf0c7e5666d60710526c10fe76c64500b3f5 (patch) | |
| tree | 731b96137c7ea909b744f68963737bf8eafbee20 | |
| parent | f03ae42a20592118e045dda6e7f0d6ecbb078acc (diff) | |
| download | emacs-5695bf0c7e5666d60710526c10fe76c64500b3f5.tar.gz | |
(mail-complete-alist): Don't use backquote.
| -rw-r--r-- | lisp/mail/mailalias.el | 18 |
1 files 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. |