# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 864865077 0
# Node ID d0f4e2e9e1f8140be7633b2e2af27f245f5de936
# Parent  e5ae89a02d50aefc9390f55f6b77caf3959e0118
(gulp-send-requests): Sort maintainers alphabetically.
(gulp-create-m-p-alist): Don't print message here.  Bind fl-tm.
(gulp-request-header, gulp-request-end): Update the default text.

diff -r e5ae89a02d50 -r d0f4e2e9e1f8 lisp/emacs-lisp/gulp.el
--- a/lisp/emacs-lisp/gulp.el	Thu May 29 00:14:20 1997 +0000
+++ b/lisp/emacs-lisp/gulp.el	Thu May 29 00:17:57 1997 +0000
@@ -42,10 +42,8 @@
 (defvar gulp-request-header
   (concat
    "This message was created automatically.
-A new version of GNU Emacs, "
-   (format "%d.%d" emacs-major-version (+ emacs-minor-version 1))
-   ", is entering the pretest state,
-and it is high time to submit the updates to the various emacs packages.
+I'm going to start pretesting a new version of GNU Emacs soon, so I'd
+like to ask if you have any updates for the Emacs packages you work on.
 You're listed as the maintainer of the following package(s):\n\n")
   "*The starting text of a gulp message.")
 
@@ -56,6 +54,12 @@
    "),
 please send them to me ASAP.
 
+Please don't send the whole file.  Instead, please send a patch made with
+`diff -c' that shows precisely the changes you would like me to install.
+Also please include itemized change log entries for your changes;
+please use lisp/ChangeLog as a guide for the style and for what kinds
+of information to include.
+
 Thanks.")
   "*The closing text in a gulp message.")
 
@@ -78,6 +82,10 @@
 	  ;; Temporarily inhibit undo in the *gulp* buffer.
 	  (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))
       (while (setq node (car m-p-alist))
 	(setq msg (gulp-create-message (cdr node) time))
 	(setq mail-setup-hook
@@ -111,7 +119,7 @@
   "Create the maintainer/package alist for files in FLIST in DIR.
 That is a list of elements, each of the form (MAINTAINER PACKAGES...)."
   (save-excursion
-    (let (mplist filen node mnt-tm mnt tm)
+    (let (mplist filen node mnt-tm mnt tm fl-tm)
       (get-buffer-create gulp-tmp-buffer)
       (set-buffer gulp-tmp-buffer)
       (setq buffer-undo-list t)
@@ -122,7 +130,6 @@
 		(setq mplist (cons (cons mnt (cons (cons filen tm) (cdr node)))
 				   (delete node mplist)))
 	      (setq mplist (cons (list mnt (cons filen (cdr fl-tm))) mplist))))
-	(message "%s -- %s" filen fl-tm)
 	(setq flist (cdr flist)))
       (erase-buffer)
       mplist)))