;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:03 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/gulp.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\306\301&\210\310\316\317\320\314\321\306\301&\210\310\322\323\324\314\325\306\301&\210\310\326\327\330\314\321\306\301&\210\310\331\332\333\314\321\306\301&\207" [custom-declare-group gulp nil "Ask for updates for Lisp packages." :prefix "-" :group maint custom-declare-variable gulp-discard "^;+ *Maintainer: *FSF *$" "The regexp matching the packages not requiring the request for updates." :type regexp gulp-tmp-buffer "*gulp*" "The name of the temporary buffer." string gulp-max-len 2000 "Distance into a Lisp source file to scan for keywords." integer gulp-request-header (concat "This message was created automatically.\nI'm going to start pretesting a new version of GNU Emacs soon, so I'd\nlike to ask if you have any updates for the Emacs packages you work on.\nYou're listed as the maintainer of the following package(s):\n\n") "The starting text of a gulp message." gulp-request-end (concat "\nIf you have any changes since the version in the previous release (" (format "%d.%d" emacs-major-version emacs-minor-version) "),\nplease send them to me ASAP.\n\nPlease don't send the whole file.  Instead, please send a patch made with\n`diff -c' that shows precisely the changes you would like me to install.\nAlso please include itemized change log entries for your changes;\nplease use lisp/ChangeLog as a guide for the style and for what kinds\nof information to include.\n\nThanks.") "The closing text in a gulp message."] 8)
#@469 Send requests for updates to the authors of Lisp packages in directory DIR.
For each maintainer, the message consists of `gulp-request-header',
followed by the list of packages (with modification times if the optional
prefix argument TIME is non-nil), concluded with `gulp-request-end'.

You can't edit the messages, but you can confirm whether to send each one.

The list of addresses for which you decided not to send mail
is left in the `*gulp*' buffer at the end.
(defalias 'gulp-send-requests #[(dir &optional time) "r\306!q\210\307\310	\311\312\313$	\"\313\311\211\211\314\315\"\211@\211\203Z\316\nA\"\317\320\311\n@\"\210eb\210\321\322!\203E\323 \210\202Q\324 \210q\210\325\326\n\"c\210A\211\202!-q\210\311\211)\207" [gulp-tmp-buffer dir node msg mail-setup-hook buffer-undo-list get-buffer-create gulp-create-m-p-alist directory-files nil "^[^=].*\\.el$" t sort #[(a b) "@	@\231\207" [a b] 2] gulp-create-message #[nil "\301 \210\302c\210db\210c\207" [msg mail-subject "It's time for Emacs updates again"] 1] mail y-or-n-p "Send? " mail-send kill-this-buffer format "%s\n\n" m-p-alist time] 7 (#$ . 2076) "DRequest updates for Lisp directory: \nP"])
#@70 Return the message string for REC, which is a list like (FILE TIME).
(defalias 'gulp-create-message #[(rec time) "\306@\211\203\"	\307\n@\f\205\310\nAP\311\260A\211\202	
P*\207" [gulp-request-header str node rec time gulp-request-end nil "	" "	Last modified:	" "\n"] 6 (#$ . 3269)])
#@135 Create the maintainer/package alist for files in FLIST in DIR.
That is a list of elements, each of the form (MAINTAINER PACKAGES...).
(defalias 'gulp-create-m-p-alist #[(flist dir) "\212\306\211\211\211\211\211\211
\307!\210q\210\310\203f\311@\211\"\211A@\211\203]\312\n
\"\211\203R\n
	B\fABB\313\f
\"B
\202]\n
ABD
B
A\211\204!\314 \210
.\207" [fl-tm tm mnt mnt-tm node filen nil get-buffer-create t gulp-maintainer assoc delete erase-buffer mplist gulp-tmp-buffer buffer-undo-list flist dir] 8 (#$ . 3573)])
#@79 Return a list (MAINTAINER TIMESTAMP) for the package FILENM in directory DIR.
(defalias 'gulp-maintainer #[(filenm dir) "\212\306	\"\307\310\311\312\n!\313\234\"
q\210\314 \210\315\n\307\316$\210\317b\210\320\307\321#\2030\307\202^\317b\210\320\322\307\321#\203F\323\317!\211G\316V\204U\317b\210\320\324\307\321#\203U\323\317!G\316U\203^\307\f,B\207" [filenm dir fl mnt timest gulp-tmp-buffer expand-file-name nil format-time-string "%Y-%m-%d %a %T %Z" file-attributes 5 erase-buffer insert-file-contents 0 1 re-search-forward t "^;+ *Maintainer: \\(.*\\)$" match-string "^;+ *Author: \\(.*\\)$" gulp-max-len gulp-discard] 5 (#$ . 4130)])
(provide 'gulp)