[Emacs-diffs] trunk r113009: * lisp/gnus/sieve.el (sieve-edit-script): Avoid beginning-of-buffer.

[Stefan Monnier]

------------------------------------------------------------
revno: 113009
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2013-06-16 20:49:49 -0400
message:
  * 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.
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/eww.el               eww.el-20130610114603-80ap3gwnw4x4m5ix-1
  lisp/gnus/shr.el               shr.el-20101002102929-yfzewk55rsg0mn93-1
  lisp/gnus/sieve.el             sieve.el-20091113204419-o5vbwnq5f7feedwu-3283

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-06-16 22:54:56 +0000
+++ b/lisp/gnus/ChangeLog       2013-06-17 00:49:49 +0000
@@ -1,3 +1,9 @@
+2013-06-17  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>
 
        * eww.el (eww-display-html): Default to using the entire window width.

=== modified file 'lisp/gnus/eww.el'
--- a/lisp/gnus/eww.el  2013-06-16 22:54:56 +0000
+++ b/lisp/gnus/eww.el  2013-06-17 00:49:49 +0000
@@ -25,6 +25,7 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
+(require 'format-spec)
 (require 'shr)
 (require 'url)
 (require 'mm-url)

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2013-06-16 22:20:55 +0000
+++ b/lisp/gnus/shr.el  2013-06-17 00:49:49 +0000
@@ -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

=== modified file 'lisp/gnus/sieve.el'
--- a/lisp/gnus/sieve.el        2013-06-14 09:48:49 +0000
+++ b/lisp/gnus/sieve.el        2013-06-17 00:49:49 +0000
@@ -213,7 +213,7 @@
       (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."))))