(rmail-resend): Preserve point around expand-mail-aliases.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 2a8713f4925..ec86f4682ed 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2064,7 +2064,8 @@ typically for purposes of moderating a list."
                                address
                              (mapconcat 'identity address ",\n\t"))
                     "\n")
-            (expand-mail-aliases before (point)))
+            (save-excursion
+              (expand-mail-aliases before (point))))
           ;;>> Set up comment, if any.
           (if (and (sequencep comment) (not (zerop (length comment))))
               (let ((before (point))