summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/gulp.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1998-03-03 01:57:04 +0000
committerRichard M. Stallman <rms@gnu.org>1998-03-03 01:57:04 +0000
commita4929bfa20b0fabc9a9c66f607731a3d3aba911b (patch)
tree45192c8680ade9c8dbd761fa92b4a4c3848f6e97 /lisp/emacs-lisp/gulp.el
parentf43cc7292dda756a138f011a13cb924446b95a3d (diff)
downloademacs-a4929bfa20b0fabc9a9c66f607731a3d3aba911b.tar.gz
(gulp-send-requests): Call sort properly.
When showing the message, put point at beginning of buffer.
Diffstat (limited to 'lisp/emacs-lisp/gulp.el')
-rw-r--r--lisp/emacs-lisp/gulp.el7
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)