Mercurial > emacs
changeset 21044:acdb727611dd
(gulp-send-requests): Call sort properly.
When showing the message, put point at beginning of buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 03 Mar 1998 01:57:04 +0000 |
| parents | 1ae9ab956d88 |
| children | cc3f3c1ea725 |
| files | lisp/emacs-lisp/gulp.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)