mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Facilitate Customisation of Message-Mode Header Completion Behaviour

Browse source 
* lisp/gnus/message.el (message-email-recipient-header-regexp):
New user option.
(message-completion-alist): Use it here.
This commit is contained in:
Alexander Adolf 2022-03-12 18:15:24 +01:00 • committed by Lars Ingebrigtsen
parent bea1a96335
commit f143fcc0ed
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/gnus/message.el
View file

@ -8265,17 +8265,23 @@ When FORCE, rebuild the tool bar."
'message-mode-map))))
message-tool-bar-map)
;;; Group name completion.
;;; Group name and email address completion.
(defcustom message-newgroups-header-regexp
"^\\(Newsgroups\\|Followup-To\\|Posted-To\\|Gcc\\):"
"Regexp that match headers that lists groups."
"Regexp matching headers that list groups."
:group 'message
:type 'regexp)
(defcustom message-email-recipient-header-regexp
"^\\([^ :]*-\\)?\\(To\\|B?Cc\\|From\\|Reply-to\\|Mail-Followup-To\\|Mail-Copies-To\\):"
"Regexp matching headers that list email addresses."
:version "29.1"
:type 'regexp)
(defcustom message-completion-alist
`((,message-newgroups-header-regexp . ,#'message-expand-group)
("^\\([^ :]*-\\)?\\(To\\|B?Cc\\|From\\):" . ,#'message-expand-name))
(,message-email-recipient-header-regexp . ,#'message-expand-name))
"Alist of (RE . FUN). Use FUN for completion on header lines matching RE.
FUN should be a function that obeys the same rules as those
of `completion-at-point-functions'."