From 305851165abb83e013ece91b4188640b3ff37d56 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 7 May 1996 05:55:11 +0000 Subject: [PATCH] (gulp-search-path, gulp-packages): Variable deleted. (gulp-send-requests): Make the list of packages from scratch here. Read directory name with the minibuffer. --- lisp/emacs-lisp/gulp.el | 25 ++++++++++--------------- 1 file changed, 10 insertions(+), 15 deletions(-) diff --git a/lisp/emacs-lisp/gulp.el b/lisp/emacs-lisp/gulp.el index 92ac453a03a..953ef1a8286 100644 --- a/lisp/emacs-lisp/gulp.el +++ b/lisp/emacs-lisp/gulp.el @@ -30,38 +30,33 @@ ;;; Code: -(defvar gulp-search-path (concat source-directory "lisp/") - "*The search path for the packages to request updates of.") - (defvar gulp-discard "^;+ *Maintainer: *FSF *$" "*The regexp matching the packages not requiring the request for updates.") -(defvar gulp-packages (directory-files gulp-search-path nil "\\.el$" t) - "The list of files to consider.") - (defvar gulp-tmp-buffer " *gulp*" "The name of the temporary buffer.") (defvar gulp-max-len 2000 - "*All the interecting info should be among characters 1 through gulp-max-len.") + "*Distance into a Lisp source file to scan for keywords.") (defvar gulp-request-header "This message was created automatically. Apparently, you are the maintainer of the following package(s):\n\n" - "*The first line of the mesage.") + "*Text to use at the start of a message sent to request updates.") (defvar gulp-request-end "\nIf your copy is newer than mine, please email me the patches ASAP.\n\n" - "*The punch line.") + "*Text to add at the end of a message sent to request updates.") -(defun gulp-send-requests () - "Send requests for updates to the authors of the packages. -Consider each file in `gulp-packages;. +(defun gulp-send-requests (dir) + "Send requests for updates to the authors of Lisp packages in directory DIR. The prepared message consists of `gulp-request-header', followed by the list of packages with modification times, concluded with `gulp-request-end'. -You will NOT be given an opportunity to edit the message, only to send or cancel. +You can't edit the message, but you can confirm whether to send it. The list of rejected addresses will be put into `gulp-tmp-buffer'." - (interactive) - (let (mail-setup-hook msg node (m-p-alist aaaa)) ;; (gulp-create-m-p-alist gulp-packages))) + (interactive "DRequest updates for Lisp directory: ") + (let ((m-p-alist (gulp-create-m-p-alist + (directory-files dir nil "\\.el$" t))) + mail-setup-hook msg node) (while (setq node (car m-p-alist)) (setq msg (gulp-create-message (cdr node))) (setq mail-setup-hook '(lambda () (goto-char (point-max)) (insert msg))) -- 2.39.2