From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 22 May 2005 13:43:55 +0000 (+0000)
Subject: (mail-get-names): Avoid beginning-of-buffer.
X-Git-Tag: ttn-vms-21-2-B4~65
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=637502c3f322811297a9a9bad1eccea4a280257c;p=emacs.git

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

diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 88f166707c3..d4c5c2c3261 100644
--- 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