diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-03-03 01:57:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-03-03 01:57:04 +0000 |
| commit | a4929bfa20b0fabc9a9c66f607731a3d3aba911b (patch) | |
| tree | 45192c8680ade9c8dbd761fa92b4a4c3848f6e97 /lisp | |
| parent | f43cc7292dda756a138f011a13cb924446b95a3d (diff) | |
| download | emacs-a4929bfa20b0fabc9a9c66f607731a3d3aba911b.tar.gz | |
(gulp-send-requests): Call sort properly.
When showing the message, put point at beginning of buffer.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/gulp.el | 7 |
1 files 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) |