;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (require 'ps-print) (defalias 'ps-rmail-mode-hook #[0 "\302\303\304\"\210\305\300!\210\306\305\301!\210\307\211\207" [ps-header-lines ps-left-header local-set-key [print] ps-rmail-print-message-from-summary make-local-variable 3 (ps-article-subject ps-article-author buffer-name)] 3]) (defalias 'ps-rmail-print-message-from-summary #[0 "\300\301\302\"\207" [ps-print-message-from-summary rmail-summary-buffer "RMAIL"] 3 nil nil])#@39 (fn SUMMARY-BUFFER SUMMARY-DEFAULT) (defalias 'ps-print-message-from-summary #[514 "\300!\203 J\206\f\211\301!\205r\211q\210\302 )\207" [boundp get-buffer ps-spool-buffer-with-faces] 5 (#$ . 515)]) (defalias 'ps-article-subject #[0 "\212\214e\300 \210`}\210\301\302\303!\206\304P*\207" [rfc822-goto-eoh "Subject: " mail-fetch-field "Subject" "???"] 3]) (defalias 'ps-article-author #[0 "\212\214e\300 \210`}\210\301\302!\211\203\303\304\"\203\305\306\"\2025\211\2030\303\307\"\2030\305\310\"\2025\211\2065\311*\207" [rfc822-goto-eoh mail-fetch-field "From" string-match ".*[ ]+(\\(.*\\))" match-string 1 "\\(\"?\\)\\(.*\\)\\1[ ]+<.*>" 2 "From ???"] 4]) (defalias 'ps-gnus-article-prepare-hook #[0 "\302\300!\210\303\302\301!\210\304\211\207" [ps-header-lines ps-left-header make-local-variable 3 (ps-article-subject ps-article-author gnus-newsgroup-name)] 2]) (defalias 'ps-vm-mode-hook #[0 "\302\303\304\"\210\305\300!\210\306\305\301!\210\307\211\207" [ps-header-lines ps-left-header local-set-key [print] ps-vm-print-message-from-summary make-local-variable 3 (ps-article-subject ps-article-author buffer-name)] 3]) (defalias 'ps-gnus-print-article-from-summary #[0 "\300\301\302\"\207" [ps-print-message-from-summary gnus-article-buffer "*Article*"] 3 nil nil]) (defalias 'ps-vm-print-message-from-summary #[0 "\300\301\302\"\207" [ps-print-message-from-summary vm-mail-buffer ""] 3 nil nil]) (defalias 'ps-gnus-summary-setup #[0 "\300\301\302\"\207" [local-set-key [print] ps-gnus-print-article-from-summary] 3]) (defalias 'ps-info-file #[0 "\212eb\210\300\301\302\303#\203\304\305!\202\306)\207" [re-search-forward "File:[ ]+\\([^, \n]*\\)" nil t match-string 1 "File ???"] 4]) (defalias 'ps-info-node #[0 "\212eb\210\300\301\302\303#\203\304\305!\202\306)\207" [re-search-forward "Node:[ ]+\\([^, \n]*\\)" nil t match-string 1 "Node ???"] 4]) (defalias 'ps-info-mode-hook #[0 "\301\300!\210\302\211\207" [ps-left-header make-local-variable (ps-info-node ps-info-file)] 2]) (defalias 'ps-samp-ps-setup #[0 "\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\315\316\317\"\210\315\320\321\"\210\315\322\323\"\210\315\324\323\"\210\315\325\326\"\210\327\330\331\332\333\327\334%\335\211&'\335(\336\211)*\335+\337,\327\211-.\334/\3270\330\3401\3412\3423\3434\344\2115\207" [ps-spool-duplex ps-print-color-p ps-lpr-command ps-lpr-switches ps-paper-type ps-landscape-mode global-set-key [print] ps-spool-buffer-with-faces [S-print] ps-spool-region-with-faces [C-print] 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") a4 2 28.346456692913385 42.51968503937008 0.15 Courier 5.5 Helvetica 6 8 ps-number-of-columns 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-font-family ps-font-size ps-header-font-family ps-header-font-size ps-header-title-font-size] 4]) (byte-code "\300\301!\210\300\302!\207" [require printing zeroconf] 2)#@16 (fn SERVICE) (defalias 'ps-add-printer #[257 "\300!\301!\302!\303!\304\211\211\203M\211@\305\306\307#\211@\310\230\203-\311\312A@\"\203-\307\262\211@\313\230\203E\311\314A@\"\203E\315\316A@\"\262\210A\266\202\202\210\205\211\203h\317\320\321!\322\304\323\257\"\210\202|\317\320\321!\324\325\326\327\330  #\257\"\210\331\307!\207" [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] 17 (#$ . 3739)])#@16 (fn SERVICE) (defalias 'ps-remove-printer #[257 "\301\302\303\304!!\"\"\305\306!\207" [pr-ps-printer-alist delete assoc intern zeroconf-service-name pr-update-menus t] 6 (#$ . 4443)]) (defalias 'ps-make-dynamic-printer-menu #[0 "\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)