mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 06:50:23 -08:00
Code Issues Projects Releases Wiki Activity

(gulp-send-requests): Call sort properly.

Browse source 
When showing the message, put point at beginning of buffer.
This commit is contained in:
Richard M. Stallman 1998-03-03 01:57:04 +00:00
parent f43cc7292d
commit a4929bfa20
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/gulp.el
View file

@ -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)