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

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

Browse source
This commit is contained in:
Stefan Monnier 2024-02-23 11:38:48 -05:00
parent 048eaadd8c
commit 3599a9a1cf
1 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/mail/rmail.el
View file

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