From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 3 Mar 1998 01:57:04 +0000 (+0000)
Subject: (gulp-send-requests): Call sort properly.
X-Git-Tag: emacs-20.3~2030
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4929bfa20b0fabc9a9c66f607731a3d3aba911b;p=emacs.git

(gulp-send-requests): Call sort properly.
When showing the message, put point at beginning of buffer.
---

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)