procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1997-07-04 18:56:19 +00:00
parent f03ae42a20
commit 5695bf0c7e
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/mail/mailalias.el
View file

@ -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.