103 |
(while (setq node (car m-p-alist)) |
(while (setq node (car m-p-alist)) |
104 |
(setq msg (gulp-create-message (cdr node) time)) |
(setq msg (gulp-create-message (cdr node) time)) |
105 |
(setq mail-setup-hook |
(setq mail-setup-hook |
106 |
(lambda () |
(lambda () |
107 |
(mail-subject) |
(mail-subject) |
108 |
(insert "It's time for Emacs updates again") |
(insert "It's time for Emacs updates again") |
109 |
(goto-char (point-max)) |
(goto-char (point-max)) |
171 |
(if (= (length mnt) 0) (setq mnt nil))) ;; "^;; Author: $" --> nil |
(if (= (length mnt) 0) (setq mnt nil))) ;; "^;; Author: $" --> nil |
172 |
(cons mnt timest)))) |
(cons mnt timest)))) |
173 |
|
|
174 |
|
(provide 'gulp) |
175 |
|
|
176 |
;;; gulp.el ends here |
;;; gulp.el ends here |