;;; 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>
(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."))))