sieve.el (sieve-edit-script): Avoid beginning-of-buffer

[gnus] / lisp / sieve.el

diff --git a/lisp/sieve.el b/lisp/sieve.el
index b3539c5..42e6330 100644 (file)
--- a/lisp/sieve.el
+++ b/lisp/sieve.el
@@ -213,7 +213,7 @@ require \"fileinto\";
       (insert sieve-template))
     (sieve-mode)
     (setq sieve-buffer-script-name name)
-    (beginning-of-buffer)
+    (goto-char (point-min))
     (message
      (substitute-command-keys
       "Press \\[sieve-upload] to upload script to server."))))