# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 888890224 0
# Node ID acdb727611dddc66ddbe13b05ab39391ed391471
# Parent  1ae9ab956d88fabbe19ff104898e65aca2234fda
(gulp-send-requests): Call sort properly.
When showing the message, put point at beginning of buffer.

diff -r 1ae9ab956d88 -r acdb727611dd lisp/emacs-lisp/gulp.el
--- a/lisp/emacs-lisp/gulp.el	Tue Mar 03 01:36:51 1998 +0000
+++ b/lisp/emacs-lisp/gulp.el	Tue Mar 03 01:57:04 1998 +0000
@@ -83,9 +83,9 @@
 	  (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 @@
 		 (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)