Mercurial > emacs

comparison lisp/emacs-lisp/gulp.el @ 15179:be7cc250142a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gulp-search-path, gulp-packages): Variable deleted. (gulp-send-requests): Make the list of packages from scratch here. Read directory name with the minibuffer.
author Richard M. Stallman <rms@gnu.org>
date Tue, 07 May 1996 05:55:11 +0000
parents c23003387bc9
children 6bcff02ade49
comparison
equal deleted inserted replaced
15178:c23003387bc9 15179:be7cc250142a
28 ;; name of the author or maintainer and send him e-mail requesting 28 ;; name of the author or maintainer and send him e-mail requesting
29 ;; update. 29 ;; update.
30 30
31 ;;; Code: 31 ;;; Code:
32 32
33 (defvar gulp-search-path (concat source-directory "lisp/")
34 "*The search path for the packages to request updates of.")
35
36 (defvar gulp-discard "^;+ *Maintainer: *FSF *$" 33 (defvar gulp-discard "^;+ *Maintainer: *FSF *$"
37 "*The regexp matching the packages not requiring the request for updates.") 34 "*The regexp matching the packages not requiring the request for updates.")
38
39 (defvar gulp-packages (directory-files gulp-search-path nil "\\.el$" t)
40 "The list of files to consider.")
41 35
42 (defvar gulp-tmp-buffer " *gulp*" "The name of the temporary buffer.") 36 (defvar gulp-tmp-buffer " *gulp*" "The name of the temporary buffer.")
43 37
44 (defvar gulp-max-len 2000 38 (defvar gulp-max-len 2000
45 "*All the interecting info should be among characters 1 through gulp-max-len.") 39 "*Distance into a Lisp source file to scan for keywords.")
46 40
47 (defvar gulp-request-header 41 (defvar gulp-request-header
48 "This message was created automatically. 42 "This message was created automatically.
49 Apparently, you are the maintainer of the following package(s):\n\n" 43 Apparently, you are the maintainer of the following package(s):\n\n"
50 "*The first line of the mesage.") 44 "*Text to use at the start of a message sent to request updates.")
51 45
52 (defvar gulp-request-end 46 (defvar gulp-request-end
53 "\nIf your copy is newer than mine, please email me the patches ASAP.\n\n" 47 "\nIf your copy is newer than mine, please email me the patches ASAP.\n\n"
54 "*The punch line.") 48 "*Text to add at the end of a message sent to request updates.")
55 49
56 (defun gulp-send-requests () 50 (defun gulp-send-requests (dir)
57 "Send requests for updates to the authors of the packages. 51 "Send requests for updates to the authors of Lisp packages in directory DIR.
58 Consider each file in `gulp-packages;.
59 The prepared message consists of `gulp-request-header', followed by the 52 The prepared message consists of `gulp-request-header', followed by the
60 list of packages with modification times, concluded with `gulp-request-end'. 53 list of packages with modification times, concluded with `gulp-request-end'.
61 You will NOT be given an opportunity to edit the message, only to send or cancel. 54 You can't edit the message, but you can confirm whether to send it.
62 The list of rejected addresses will be put into `gulp-tmp-buffer'." 55 The list of rejected addresses will be put into `gulp-tmp-buffer'."
63 (interactive) 56 (interactive "DRequest updates for Lisp directory: ")
64 (let (mail-setup-hook msg node (m-p-alist aaaa)) ;; (gulp-create-m-p-alist gulp-packages))) 57 (let ((m-p-alist (gulp-create-m-p-alist
58 (directory-files dir nil "\\.el$" t)))
59 mail-setup-hook msg node)
65 (while (setq node (car m-p-alist)) 60 (while (setq node (car m-p-alist))
66 (setq msg (gulp-create-message (cdr node))) 61 (setq msg (gulp-create-message (cdr node)))
67 (setq mail-setup-hook '(lambda () (goto-char (point-max)) (insert msg))) 62 (setq mail-setup-hook '(lambda () (goto-char (point-max)) (insert msg)))
68 (mail nil (car node)) 63 (mail nil (car node))
69 (if (y-or-n-p "Send? ") (mail-send) 64 (if (y-or-n-p "Send? ") (mail-send)