From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 15 Jun 2019 14:53:52 +0000 (+0200)
Subject: Suppress warning about non-prefixed variable in mailalias.el
X-Git-Tag: emacs-27.0.90~2512
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a979a0ad07a8e2452c1267d2c1299000e543051d;p=emacs.git

Suppress warning about non-prefixed variable in mailalias.el

* lisp/mail/mailalias.el (patters): Suppress warning about
non-prefixed variable used by `mail-complete-alist'.
---

diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 42896c18ebe..8bb42634892 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -52,7 +52,11 @@ When t this still needs to be initialized.")
 (defvar mail-address-field-regexp
   "^\\(Resent-\\)?\\(To\\|From\\|Cc\\|Bcc\\|Reply-To\\):")
 
-(defvar pattern)
+;; `pattern' is bound dynamically before evaluating the forms in
+;; `mail-complete-alist' and may be part of user customizations of
+;; that variable.
+(with-suppressed-warnings ((lexical pattern))
+  (defvar pattern))
 
 (defcustom mail-complete-alist
   ;; Don't refer to mail-address-field-regexp here;