;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:31 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/tla-gnus.el ;;; in Emacs version 23.0.50.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`tla-gnus.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\"\210\303\306\305\"\210\303\307\305\"\210\303\310\305\"\210\303\311\305\"\207" [require tla-core dvc-gnus autoload tla-categories-string "tla" tla-branches-string tla-versions-string tla-revisions-string tla--button-revision-fn] 3) #@67 Make archive@host.com/something clickable in Gnus Article buffer. (defalias 'tla-gnus-setup-buttons #[nil "\300\301\302\"\210\300\301\303\"\210\300\301\304\"\210\300\301\305\"\210\300\301\306\"\207" [add-to-list gnus-button-alist ((tla-make-name-regexp 0 t t) 1 t tla-categories-string 1) ((tla-make-name-regexp 1 t t) 1 t tla-branches-string 1) ((tla-make-name-regexp 2 t t) 1 t tla-versions-string 1) ((tla-make-name-regexp 3 t t) 1 t tla-revisions-string 1) ((tla-make-name-regexp 4 t t) 1 t tla--button-revision-fn 1)] 3 (#$ . 877) nil]) #@212 Integrate the tla backend of DVC into Gnus. Add the `tla-submit-patch-done' function to the `message-sent-hook'. The archives/categories/branches/version/revision names are buttonized in the *Article* buffers. (defalias 'tla-insinuate-gnus #[nil "\300\301\302\"\210\303 \207" [add-hook message-sent-hook tla-submit-patch-done tla-gnus-setup-buttons] 3 (#$ . 1426) nil]) #@138 View MIME part N in a gnus article, as a tla changeset. The patch can be embedded or external. If external, the parameter N is ignored. (defalias 'tla-gnus-article-view-patch #[(n) "\301 \210\302@!\203\303\202GS\303V\203\304\305!\207\306 \207" [gnus-article-mime-handles gnus-summary-select-article-buffer bufferp 1 tla-gnus-article-view-attached-patch 2 tla-gnus-article-view-external-patch] 2 (#$ . 1804) nil]) #@36 View MIME part N, as tla patchset. (defalias 'tla-gnus-article-view-attached-patch #[(n) "\301\302\"\207" [n gnus-article-part-wrapper tla-gnus-view-patch] 3 (#$ . 2232) "p"]) #@250 View an external patch that is referenced in this mail. The mail must either contain a line starting with 'Committed ' and ending with the fully qualified revision name. The second supported format contains an extra line for Revision and Archive. (defalias 'tla-gnus-article-view-external-patch #[nil "\305\211\211\306 \307 \210\310 \210eb\210\311\312\313\314\305\315#P\305\315#\203-\316\317\224\320\\\317\225S\"\202V\321\322\305\315#\203;\316`\323 \"\321\324\305\315#\203I\316`\323 \"\n\203V \203V\n\325 Q\326 \210 \203q\327 \315\"\210\212\330\f\331 #q\210\332!)\202x\333\334!\210\335!,\207" [window-conf version archive revision tla-arch-branch nil current-window-configuration gnus-summary-select-article-buffer split-window-vertically re-search-forward "Committed " tla-make-name-regexp 4 t buffer-substring-no-properties 0 10 search-forward "Revision: " line-end-position "Archive: " "/" gnus-article-show-summary tla-get-changeset dvc-get-buffer changeset dvc-buffer-push-previous-window-config message "No external arch patch found in this article." set-window-configuration] 6 (#$ . 2416) nil]) #@69 View a patch within gnus. HANDLE should be the handle of the part. (defalias 'tla-gnus-view-patch #[(handle) "\303\304!\305 \306\n \"\210\307 \210\310 \210\311 !\210\312!\210\313 !*\207" [window-conf archive-name handle dvc-make-temp-name "gnus-patch-tgz" current-window-configuration mm-save-part-to-file gnus-summary-select-article-buffer split-window-vertically tla-show-changeset-from-tgz dvc-buffer-push-previous-window-config delete-file] 3 (#$ . 3545)]) #@81 Apply MIME part N, as tla patchset. When called with no prefix arg, set N := 2. (defalias 'tla-gnus-article-apply-patch #[(n) "\204\302\303 \304\"\207" [current-prefix-arg n 2 gnus-article-part-wrapper tla-gnus-apply-patch] 3 (#$ . 4016) "p"]) #@42 Apply the patch corresponding to HANDLE. (defalias 'tla-gnus-apply-patch #[(handle) "\306 \210\307\310!\311\205\312! \"\313\314 \315 \"\210\316 \210\317 \210\320 !\210\321\n!\210\322\323\f\211#\324 \313#\210\325 !\210\326=\205D\327 ,\207" [dvc-memorized-version tla-apply-patch-mapping window-conf tree tree-dir archive-name dvc-gnus-article-extract-log-message dvc-make-temp-name "gnus-patch-tgz" tla--name-match-from-list tla--name-split nil current-window-configuration mm-save-part-to-file gnus-summary-select-article-buffer split-window-vertically tla-show-changeset-from-tgz dvc-buffer-push-previous-window-config dvc-read-directory-name "Apply to tree: " tla-apply-changeset-from-tgz delete-file tla-inventory-mode delete-other-windows handle major-mode] 4 (#$ . 4270)]) (provide 'tla-gnus)