;ELC   
;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Sun Jul 21 15:50:48 1996
;;; from file /gd/gnu/emacs/19.0/lisp/gulp.el
;;; emacs version 19.31.94.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`gulp.el' was compiled for Emacs 19.29 or later"))


#@74 *The regexp matching the packages not requiring the request for updates.
(defvar gulp-discard "^;+ *Maintainer: *FSF *$" (#$ . -472))
#@35 The name of the temporary buffer.
(defvar gulp-tmp-buffer "*gulp*" (#$ . 612))
#@57 *Distance into a Lisp source file to scan for keywords.
(defvar gulp-max-len 2000 (#$ . -697))
#@39 *The starting text of a gulp message.
(defvar gulp-request-header (byte-code "АБВ\fЕ\\#ЖQ‡" ["This message was created automatically.\nA new version of GNU Emacs, " format "%d.%d" emacs-major-version emacs-minor-version 1 ", is entering the pretest state,\nand it is high time to submit the updates to the various emacs packages.\nYou're listed as the maintainer of the following package(s):\n\n"] 6) (#$ . -798))
#@38 *The closing text in a gulp message.
(defvar gulp-request-end (byte-code "АБВ\f#ЕQ‡" ["\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\nThanks."] 5) (#$ . -1219))
#@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) "ЉА	!q€ВГ\fЕЖЗ$\f\"ЗЕ‰‰	\n‰\f@‰ѓZ НA\"	П\nРЕ@\"€СТ!ѓD У €‚Q Ф €	q€ХЦ\"c€\fA‰\f‚ -	q€Е‰)‡" [get-buffer-create gulp-tmp-buffer gulp-create-m-p-alist directory-files dir nil "^[^=].*\\.el$" t node msg mail-setup-hook buffer-undo-list m-p-alist gulp-create-message time (lambda nil (mail-subject) (insert "It's time for Emacs updates again") (goto-char (point-max)) (insert msg)) mail y-or-n-p "Send? " mail-send kill-this-buffer format "%s\n\n"] 7 (#$ . 1504) "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) "А	\f@‰ѓ# \nЕ@… ЗAPИ°\fA‰‚ \n	P*‡" [nil gulp-request-header str node rec "	" time "	Last modified:	" "\n" gulp-request-end] 6 (#$ . 2557)])
#@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) "ЉА‰‰‰‰‰З!€q€Й\nѓn М@‰\"‰A@‰ѓ^ П\n\"‰ѓR \n	B\fABBР\f\"B‚^ \nABDBСТ#€A‰„ У €.‡" [nil tm mnt mnt-tm node filen mplist get-buffer-create gulp-tmp-buffer t buffer-undo-list flist gulp-maintainer dir fl-tm assoc delete message "%s -- %s" erase-buffer] 7 (#$ . 2830)])
#@79 Return a list (MAINTAINER TIMESTAMP) for the package FILENM in directory DIR.
(defalias 'gulp-maintainer #[(filenm dir) "Љ	PГЕЖЗ\n!Ињ\"	\nq€Л €М\nГН$€Пb€РГТ#ѓ1 Г‚_ Пb€РУГТ#ѓG ФП!‰GНV„V Пb€РХГТ#ѓV ФП!\fGНUѓ_ Г\f	,B‡" [dir filenm fl nil mnt format-time-string "%Y-%m-%d %a %T %Z" file-attributes 5 timest gulp-tmp-buffer erase-buffer insert-file-contents 0 gulp-max-len 1 re-search-forward gulp-discard t "^;+ *Maintainer: \\(.*\\)$" match-string "^;+ *Author: \\(.*\\)$"] 5 (#$ . 3331)])