# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1116769435 0
# Node ID 564274a2eaa21ac78acb76519be663a2a335a8ad
# Parent  fee0933da7fec0a86debe7596e9f8037c66a7382
(mail-get-names): Avoid beginning-of-buffer.

diff -r fee0933da7fe -r 564274a2eaa2 lisp/mail/mailalias.el
--- a/lisp/mail/mailalias.el	Sun May 22 13:42:49 2005 +0000
+++ b/lisp/mail/mailalias.el	Sun May 22 13:43:55 2005 +0000
@@ -435,7 +435,7 @@
 	(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