diff options
| author | Stefan Monnier | 2000-06-12 05:08:46 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-06-12 05:08:46 +0000 |
| commit | 811ec3a8df8a14b490f4309f566c2b4ce93b955f (patch) | |
| tree | f7ce6128868842df03650471193074fc437e5125 | |
| parent | 72d8b544c6eff21e8d5aad013a31fbfc1979a4d0 (diff) | |
| download | emacs-811ec3a8df8a14b490f4309f566c2b4ce93b955f.tar.gz emacs-811ec3a8df8a14b490f4309f566c2b4ce93b955f.zip | |
(gulp-send-requests): Don't quote lambda.
| -rw-r--r-- | lisp/emacs-lisp/gulp.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/gulp.el b/lisp/emacs-lisp/gulp.el index 096460a1961..877e62255b3 100644 --- a/lisp/emacs-lisp/gulp.el +++ b/lisp/emacs-lisp/gulp.el | |||
| @@ -103,11 +103,11 @@ is left in the `*gulp*' buffer at the end." | |||
| 103 | (while (setq node (car m-p-alist)) | 103 | (while (setq node (car m-p-alist)) |
| 104 | (setq msg (gulp-create-message (cdr node) time)) | 104 | (setq msg (gulp-create-message (cdr node) time)) |
| 105 | (setq mail-setup-hook | 105 | (setq mail-setup-hook |
| 106 | '(lambda () | 106 | (lambda () |
| 107 | (mail-subject) | 107 | (mail-subject) |
| 108 | (insert "It's time for Emacs updates again") | 108 | (insert "It's time for Emacs updates again") |
| 109 | (goto-char (point-max)) | 109 | (goto-char (point-max)) |
| 110 | (insert msg))) | 110 | (insert msg))) |
| 111 | (mail nil (car node)) | 111 | (mail nil (car node)) |
| 112 | (goto-char (point-min)) | 112 | (goto-char (point-min)) |
| 113 | (if (y-or-n-p "Send? ") (mail-send) | 113 | (if (y-or-n-p "Send? ") (mail-send) |