;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:28 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/ps-samp.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.

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


(require 'ps-print)
(defalias 'ps-rmail-mode-hook #[nil "\302\303\304\"\210\305\306\211\207" [ps-header-lines ps-left-header local-set-key [(f22)] ps-rmail-print-message-from-summary 3 (ps-article-subject ps-article-author buffer-name)] 3])
(defalias 'ps-rmail-print-message-from-summary #[nil "\300\301\302\"\207" [ps-print-message-from-summary rmail-summary-buffer "RMAIL"] 3 nil nil])
(defalias 'ps-print-message-from-summary #[(summary-buffer summary-default) "\303!\203J\206\f	\304\n!\205r\nq\210\305 ))\207" [summary-buffer summary-default ps-buf boundp get-buffer ps-spool-buffer-with-faces] 2])
(defalias 'ps-article-subject #[nil "\212eb\210\300\301\302\303#\203\304\224\304\225{\202\305)\207" [re-search-forward "^Subject:[ 	]+\\(.*\\)$" nil t 1 "Subject ???"] 4])
(defalias 'ps-article-author #[nil "\212eb\210\301\302\303\304#\2037\305\224\305\225{\306\307\"\203\"\305\224\305\225O\2023\306\310\"\2032\311\224\311\225O\2023)\2028\312)\207" [fromstring re-search-forward "^From:[ 	]+\\(.*\\)$" nil t 1 string-match ".*[ 	]+(\\(.*\\))" "\\(\"?\\)\\(.*\\)\\1[ 	]+<.*>" 2 "From ???"] 4])
(defalias 'ps-gnus-article-prepare-hook #[nil "\302\303\211\207" [ps-header-lines ps-left-header 3 (ps-article-subject ps-article-author gnus-newsgroup-name)] 2])
(defalias 'ps-vm-mode-hook #[nil "\302\303\304\"\210\305\306\211\207" [ps-header-lines ps-left-header local-set-key [(f22)] ps-vm-print-message-from-summary 3 (ps-article-subject ps-article-author buffer-name)] 3])
(defalias 'ps-gnus-print-article-from-summary #[nil "\300\301\302\"\207" [ps-print-message-from-summary gnus-article-buffer "*Article*"] 3 nil nil])
(defalias 'ps-vm-print-message-from-summary #[nil "\300\301\302\"\207" [ps-print-message-from-summary vm-mail-buffer ""] 3 nil nil])
(defalias 'ps-gnus-summary-setup #[nil "\300\301\302\"\207" [local-set-key [(f22)] ps-gnus-print-article-from-summary] 3])
(defalias 'ps-info-file #[nil "\212eb\210\300\301\302\303#\203\304\224\304\225{\202\305)\207" [re-search-forward "File:[ 	]+\\([^, 	\n]*\\)" nil t 1 "File ???"] 4])
(defalias 'ps-info-node #[nil "\212eb\210\300\301\302\303#\203\304\224\304\225{\202\305)\207" [re-search-forward "Node:[ 	]+\\([^,	\n]*\\)" nil t 1 "Node ???"] 4])
(defalias 'ps-info-mode-hook #[nil "\301\211\207" [ps-left-header (ps-info-node ps-info-file)] 2])
(defalias 'ps-jts-ps-setup #[nil "\304\305\306\"\210\304\307\310\"\210\304\311\312\"\210\313\314\315\"\210\313\316\317\"\210\313\320\321\"\210\313\322\321\"\210\313\323\324\"\210\325\326\327\330\331\207" [ps-spool-duplex ps-print-color-p ps-lpr-command ps-lpr-switches global-set-key [(f22)] ps-spool-buffer-with-faces [(shift f22)] ps-spool-region-with-faces [(control f22)] ps-despool add-hook gnus-article-prepare-hook ps-gnus-article-prepare-hook gnus-summary-mode-hook ps-gnus-summary-setup vm-mode-hook ps-vm-mode-hook vm-mode-hooks Info-mode-hook ps-info-mode-hook t nil "lpr" ("-Jjct,duplex_long") ps-jts-ps-setup] 3])
(defalias 'ps-jack-setup #[nil "\306\307\306\310\311\312\313\314\315\316\317\320\321\311\211 \312!\311\"\306#\322$\323%\324&\325'\326(\327\207" [ps-print-color-p ps-lpr-command ps-lpr-switches ps-paper-type ps-landscape-mode ps-number-of-columns nil "lpr" a4 t 2 28.346456692913385 28.346456692913385 28.346456692913385 42.51968503937008 42.51968503937008 28.346456692913385 0.15 Courier 5.5 Helvetica 6 8 ps-jack-setup ps-left-margin ps-right-margin ps-inter-column ps-bottom-margin ps-top-margin ps-header-offset ps-header-line-pad ps-print-header ps-print-header-frame ps-header-lines ps-show-n-of-n ps-spool-duplex ps-font-family ps-font-size ps-header-font-family ps-header-font-size ps-header-title-font-size] 2])
(byte-code "\300\301!\210\300\302!\207" [require printing zeroconf] 2)
(defalias 'ps-add-printer #[(service) "\306!\307!\310!\311!\312\211 
\312!\211\"\203o\"@!\313!\314\315#\211#@\316\230\203C\317\320#\211$A@)\"\203C\315#@\321\230\203e\317\322#\211$A@)\"\203e\323\324#\211$A@)\")\"A\211\"\204*\n\205\236	\203\211\325\326\327 !\330\312\331	\257\"\210\202\233\325\326\327 !\332\333\334\335\336\f#\257\"\210\337\315!.\207" [service cups-queue is-ps port addr text zeroconf-service-name zeroconf-service-txt zeroconf-service-address zeroconf-service-port nil split-string "=" t "pdl" string-match "application/postscript" "rp" "printers/\\(.+\\)" match-string 1 add-to-list pr-ps-printer-alist intern "lpr" "-P" "cupsdoprint" ("-P" "default") "-H" format "%s:%s" pr-update-menus name string --dolist-tail-- split x] 11])
(defalias 'ps-remove-printer #[(service) "\302\303\304\305!!	\"	\"\306\307!\207" [service pr-ps-printer-alist delete assoc intern zeroconf-service-name pr-update-menus t] 5])
(defalias 'ps-make-dynamic-printer-menu #[nil "\300\301!\205\302 \210\303\304\305\306#\210\303\304\307\310#\207" [featurep dbusbind zeroconf-init zeroconf-service-add-hook "_ipp._tcp" :new ps-add-printer :removed ps-remove-printer] 4])
(provide 'ps-samp)