(mail-get-names): Avoid beginning-of-buffer.

diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 88f166707c36af6a54ef7748d2235d3bd27349fd..d4c5c2c32617d464c5440537c254e5fe3241cc98 100644 (file)
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -435,7 +435,7 @@ PATTERN is the string we want to complete."
        (if mail-passwd-command
            (call-process shell-file-name nil t nil
                          shell-command-switch mail-passwd-command))
-       (beginning-of-buffer)
+       (goto-char (point-min))
        (setq mail-local-names nil)
        (while (not (eobp))
          ;;Recognize lines like