From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 23 Feb 2024 16:38:48 +0000 (-0500)
Subject: * lisp/mail/rmail.el (rmail-resend): Use `with-syntax-table`
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=080a39cd5e18b24f4690d07cbdcad2bb3c12afc0;p=emacs.git

* lisp/mail/rmail.el (rmail-resend): Use `with-syntax-table`

(cherry picked from commit 3599a9a1cf1f8bed7c7f00fd8f00b2bfc0c4271f)
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 7006d59be66..d422383acdf 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -4095,20 +4095,18 @@ typically for purposes of moderating a list."
 	    (save-excursion
 	      (if (featurep 'mailabbrev)
 		  (let ((end (point-marker))
-			(local-abbrev-table mail-abbrevs)
-			(old-syntax-table (syntax-table)))
+			(local-abbrev-table mail-abbrevs))
 		    (if (and (not (obarrayp mail-abbrevs))
 			     (file-exists-p mail-personal-alias-file))
 			(build-mail-abbrevs))
 		    (unless mail-abbrev-syntax-table
 		      (mail-abbrev-make-syntax-table))
-		    (set-syntax-table mail-abbrev-syntax-table)
-		    (goto-char before)
-		    (while (and (< (point) end)
-				(progn (forward-word-strictly 1)
-				       (<= (point) end)))
-		      (expand-abbrev))
-		    (set-syntax-table old-syntax-table))
+		    (with-syntax-table mail-abbrev-syntax-table
+		      (goto-char before)
+		      (while (and (< (point) end)
+				  (progn (forward-word-strictly 1)
+				         (<= (point) end)))
+			(expand-abbrev))))
 		(expand-mail-aliases before (point)))))
 	  ;;>> Set up comment, if any.
 	  (if (and (sequencep comment) (not (zerop (length comment))))