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 | a41b464870ad588eed1470d408ae0edbe0627511 (patch) | |
tree | 08aae3df947e9f8dd7fcfdd384f6f8894fd4530f | |
parent | a73a8728564be26a7ab602a3997588c66536af90 (diff) | |
download | emacs-a41b464870ad588eed1470d408ae0edbe0627511.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. |