diff options
| author | Richard M. Stallman | 1997-07-04 18:56:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-04 18:56:19 +0000 |
| commit | 5695bf0c7e5666d60710526c10fe76c64500b3f5 (patch) | |
| tree | 731b96137c7ea909b744f68963737bf8eafbee20 /lisp | |
| parent | f03ae42a20592118e045dda6e7f0d6ecbb078acc (diff) | |
| download | emacs-5695bf0c7e5666d60710526c10fe76c64500b3f5.tar.gz emacs-5695bf0c7e5666d60710526c10fe76c64500b3f5.zip | |
(mail-complete-alist): Don't use backquote.
Diffstat (limited to 'lisp')
| -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.") | |||
| 54 | "^\\(Resent-\\)?\\(To\\|From\\|CC\\|BCC\\|Reply-to\\):") | 54 | "^\\(Resent-\\)?\\(To\\|From\\|CC\\|BCC\\|Reply-to\\):") |
| 55 | 55 | ||
| 56 | (defcustom mail-complete-alist | 56 | (defcustom mail-complete-alist |
| 57 | `((,mail-address-field-regexp mail-get-names pattern) | 57 | ;; Don't use backquote here; we don't want backquote to get loaded |
| 58 | ("Newsgroups:" . (if (boundp 'gnus-active-hashtb) | 58 | ;; just because of loading this file. |
| 59 | gnus-active-hashtb | 59 | (cons (cons mail-address-field-regexp '(mail-get-names pattern)) |
| 60 | (if (boundp news-group-article-assoc) | 60 | '(("Newsgroups:" . (if (boundp 'gnus-active-hashtb) |
| 61 | news-group-article-assoc))) | 61 | gnus-active-hashtb |
| 62 | ("Followup-To:" . (mail-sentto-newsgroups)) | 62 | (if (boundp news-group-article-assoc) |
| 63 | ;;("Distribution:" ???) | 63 | news-group-article-assoc))) |
| 64 | ) | 64 | ("Followup-To:" . (mail-sentto-newsgroups)) |
| 65 | ;;("Distribution:" ???) | ||
| 66 | )) | ||
| 65 | "*Alist of header field and expression to return alist for completion. | 67 | "*Alist of header field and expression to return alist for completion. |
| 66 | The expression may reference the variable `pattern' | 68 | The expression may reference the variable `pattern' |
| 67 | which will hold the string being completed. | 69 | which will hold the string being completed. |