From 7545bd25758f079680a7bb8559d50e32b3034c12 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 16 Jun 2013 20:49:49 -0400 Subject: * lisp/gnus/sieve.el (sieve-edit-script): Avoid beginning-of-buffer. * lisp/gnus/shr.el (browse-url): Require `url'. * lisp/gnus/eww.el (url): Require format-spec. --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/eww.el | 1 + lisp/gnus/shr.el | 1 + lisp/gnus/sieve.el | 2 +- 4 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index c531853988..8b0741bec6 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2013-06-17 Stefan Monnier + + * sieve.el (sieve-edit-script): Avoid beginning-of-buffer. + * shr.el (browse-url): Require `url'. + * eww.el (url): Require format-spec. + 2013-06-16 Lars Magne Ingebrigtsen * eww.el (eww-display-html): Default to using the entire window width. diff --git a/lisp/gnus/eww.el b/lisp/gnus/eww.el index 868450c51d..a79738a283 100644 --- a/lisp/gnus/eww.el +++ b/lisp/gnus/eww.el @@ -25,6 +25,7 @@ ;;; Code: (eval-when-compile (require 'cl)) +(require 'format-spec) (require 'shr) (require 'url) (require 'mm-url) diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 339b969892..be8ffb0258 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -31,6 +31,7 @@ ;;; Code: (eval-when-compile (require 'cl)) +(eval-when-compile (require 'url)) ;For url-filename's setf handler. (require 'browse-url) (defgroup shr nil diff --git a/lisp/gnus/sieve.el b/lisp/gnus/sieve.el index b3539c5857..42e6330273 100644 --- a/lisp/gnus/sieve.el +++ b/lisp/gnus/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.")))) -- cgit v1.2.3