X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fsieve.el;h=4ebb458f4295b0b6b44555510ad1b5c56a0a8862;hb=286dc18fd9d9f1d9f215ce3e7b1a4abe788d401e;hp=b3539c5857f51bd7c315fc520d8913cedc1e9da3;hpb=42659353fe6acbd03fb6528373df99dc13f9142c;p=gnus

diff --git a/lisp/sieve.el b/lisp/sieve.el
index b3539c585..4ebb458f4 100644
--- a/lisp/sieve.el
+++ b/lisp/sieve.el
@@ -1,6 +1,6 @@
 ;;; sieve.el --- Utilities to manage sieve scripts
 
-;; Copyright (C) 2001-2013 Free Software Foundation, Inc.
+;; Copyright (C) 2001-2014 Free Software Foundation, Inc.
 
 ;; Author: Simon Josefsson <simon@josefsson.org>
 
@@ -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."))))