(gulp-send-requests): Call sort properly.

When showing the message, put point at beginning of buffer.

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/emacs-lisp/gulp.el b/lisp/emacs-lisp/gulp.el
index f4149adc3e2..e84c1056296 100644
--- a/lisp/emacs-lisp/gulp.el
+++ b/lisp/emacs-lisp/gulp.el
@@ -83,9 +83,9 @@ is left in the `*gulp*' buffer at the end."
           (buffer-undo-list t)
           mail-setup-hook msg node)
       (setq m-p-alist
-            (sort (function (lambda (a b)
-                              (string< (car (car a)) (car (car b)))))
-                  m-p-alist))
+            (sort m-p-alist
+                  (function (lambda (a b)
+                              (string< (car a) (car b))))))
       (while (setq node (car m-p-alist))
         (setq msg (gulp-create-message (cdr node) time))
         (setq mail-setup-hook
@@ -95,6 +95,7 @@ is left in the `*gulp*' buffer at the end."
                  (goto-char (point-max))
                  (insert msg)))
         (mail nil (car node))
+        (goto-char (point-min))
         (if (y-or-n-p "Send? ") (mail-send)
           (kill-this-buffer)
           (set-buffer gulp-tmp-buffer)