From a4929bfa20b0fabc9a9c66f607731a3d3aba911b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 3 Mar 1998 01:57:04 +0000 Subject: [PATCH] (gulp-send-requests): Call sort properly. When showing the message, put point at beginning of buffer. --- lisp/emacs-lisp/gulp.el | 7 ++++--- 1 file 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) -- 2.39.2