mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki Activity

Expand email abbrevs in X-Debbugs-Cc header.

Browse source 
* lisp/mail/mailabbrev.el (mail-abbrev-mode-regexp):
* lisp/mail/mailalias.el (mail-address-field-regexp)
(mail-complete-alist): Add "X-Debbugs-Cc" to headers where email
aliases should be expanded, for compatibility with emacsbug.el.
This commit is contained in:
Eli Zaretskii 2024-10-04 16:32:13 +03:00
parent e9dcf0c57d
commit d656be9794
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/mail/mailabbrev.el
View file

@ -410,7 +410,7 @@ with a space."
;;; Syntax tables and abbrev-expansion ;;; Syntax tables and abbrev-expansion
(defcustom mail-abbrev-mode-regexp (defcustom mail-abbrev-mode-regexp
"^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\):" "^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\|X-Debbugs-Cc\\):"
"Regexp matching mail headers in which mail abbrevs should be expanded. "Regexp matching mail headers in which mail abbrevs should be expanded.
This string will be handed to `looking-at' with point at the beginning This string will be handed to `looking-at' with point at the beginning
of the current line; if it matches, abbrev mode will be turned on, otherwise of the current line; if it matches, abbrev mode will be turned on, otherwise

4
lisp/mail/mailalias.el
View file

@ -50,7 +50,7 @@
When t this still needs to be initialized.") When t this still needs to be initialized.")
(defvar mail-address-field-regexp (defvar mail-address-field-regexp
"^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\):") "^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\|X-Debbugs-Cc\\):")
;; `pattern' is bound dynamically before evaluating the forms in ;; `pattern' is bound dynamically before evaluating the forms in
;; `mail-complete-alist' and may be part of user customizations of ;; `mail-complete-alist' and may be part of user customizations of
@ -61,7 +61,7 @@ When t this still needs to be initialized.")
(defcustom mail-complete-alist (defcustom mail-complete-alist
;; Don't refer to mail-address-field-regexp here; ;; Don't refer to mail-address-field-regexp here;
;; that confuses some things such as cus-dep.el. ;; that confuses some things such as cus-dep.el.
'(("^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\):" '(("^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\|X-Debbugs-Cc\\):"
. (mail-get-names pattern)) . (mail-get-names pattern))
("Newsgroups:" . (if (boundp 'gnus-active-hashtb) ("Newsgroups:" . (if (boundp 'gnus-active-hashtb)
gnus-active-hashtb gnus-active-hashtb