1#@!#!123s

��JFIF�� 1#@!#!123s
: / proc / thread-self / root / usr / share / emacs / 24.3 / lisp / gnus /
Filename : gnus-dired.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:46 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-dired.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!\210\302\303\304\"\210\302\305\306\"\210\302\307\310\"\210\302\311\310\"\210\302\312\306\"\210\302\313\314\"\210\302\315\316\"\210\302\317\320\"\207" [require dired autoload mml-attach-file "mml" mm-default-file-encoding "mm-decode" mailcap-extension-to-mime "mailcap" mailcap-mime-info mm-mailcap-command ps-print-preprint "ps-print" message-buffers "message" gnus-print-buffer "gnus-sum"] 3)
(defvar gnus-dired-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [map make-sparse-keymap define-key "
" gnus-dired-attach "
\f" gnus-dired-find-file-mailcap "
" gnus-dired-print] 4))
#@93 Your preference for a mail composition package.
See `mail-user-agent' for more information.
(custom-declare-variable 'gnus-dired-mail-mode ''gnus-user-agent '(#$ . 1204) :group 'mail :version "23.1" :type '(radio (function-item :tag "Default Emacs mail" :format "%t\n" sendmail-user-agent) (function-item :tag "Emacs interface to MH" :format "%t\n" mh-e-user-agent) (function-item :tag "Gnus Message package" :format "%t\n" message-user-agent) (function-item :tag "Gnus Message with full Gnus features" :format "%t\n" gnus-user-agent) (function :tag "Other")))
#@99 Non-nil if Gnus-Dired mode is enabled.
Use the command `gnus-dired-mode' to change this variable.
(defvar gnus-dired-mode nil (#$ . 1771))
(make-variable-buffer-local 'gnus-dired-mode)
#@73 Minor mode for intersections of gnus and dired.

\{gnus-dired-mode-map}
(defalias 'gnus-dired-mode #[(&optional arg) "\303 	\304=\203�\n?\202�\305	!\306V\307\310!\204�\311\312\313\n\203&�\314\202'�\315\"\210\316\317!\203H�\303 \203;�\303 \232\203H�\320\321\n\203E�\322\202F�\323\"\210)\324 \210\n\207" [#1=#:last-message arg gnus-dired-mode current-message toggle prefix-numeric-value 0 derived-mode-p dired-mode nil run-hooks gnus-dired-mode-hook gnus-dired-mode-on-hook gnus-dired-mode-off-hook called-interactively-p any message "Gnus-Dired mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 1962) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\303\211%\207" [gnus-dired-mode-map add-minor-mode gnus-dired-mode nil] 6)
#@48 Convenience method to turn on gnus-dired-mode.
(defalias 'turn-on-gnus-dired-mode #[nil "\300\301!\207" [gnus-dired-mode 1] 2 (#$ . 2723) nil])
#@51 Return a list of active mail composition buffers.
(defalias 'gnus-dired-mail-buffers #[nil "\305>\203�\306\307!\203�\310\311!\203�\311 \207\312\212\313\314!\312\211\203;�@\211q\210\f\315=\2034�\316\n!	BA\211\204\"�+	\237)\207" [gnus-dired-mail-mode buffers buffer --dolist-tail-- major-mode (message-user-agent gnus-user-agent) require message fboundp message-buffers nil buffer-list t mail-mode buffer-name] 3 (#$ . 2873)])
(autoload 'gnus-completing-read "gnus-util")
#@136 Attach dired's marked files to a gnus message composition.
If called non-interactively, FILES-TO-ATTACH should be a list of
filenames.
(defalias 'gnus-dired-attach #[(files-to-attach) "\306\211\211\204�\307\310!\202r�\311\312\313#\314 \211\203:�\315\316!\203:�G\317U\2031�\320@!\2026�\321\322\323#\202O�\f\211\324=\203E�\325\202F�
\326 \210*p\nq\210db\210\203n�\327@\330@!\206d�\331\306#\210A\211\204Y�\332\333	\"+\207" [bufs files-str destination files-to-attach gnus-dired-mail-mode this-command nil error "No files to attach" mapconcat #[(f) "\301!\207" [f file-name-nondirectory] 2] ", " gnus-dired-mail-buffers y-or-n-p "Attach files to existing mail composition buffer? " 1 get-buffer gnus-completing-read "Attach to which mail composition buffer" t gnus-user-agent gnoose-dired-attach compose-mail mml-attach-file mm-default-file-encoding "application/octet-stream" message "Attached file(s) %s" mail-user-agent] 5 (#$ . 3362) (list (delq nil (mapcar #'(lambda (f) (if (file-directory-p f) nil f)) (nreverse (let ((arg nil)) (prog1 (let ((inhibit-read-only t) case-fold-search found results) (if arg (if (integerp arg) (progn (dired-repeat-over-lines arg #'(lambda nil (if nil (sit-for 0)) (setq results (cons #1=(dired-get-filename) results)))) (if (< arg 0) (nreverse results) results)) (list #1#)) (let ((regexp (dired-marker-regexp)) next-position) (save-excursion (goto-char (point-min)) (setq next-position (and (re-search-forward regexp nil t) (point-marker)) found (not (null next-position))) (while next-position (goto-char next-position) (if nil (sit-for 0)) (setq results (cons #1# results)) (goto-char next-position) (forward-line 1) (set-marker next-position nil) (setq next-position (and (re-search-forward regexp nil t) (point-marker))))) (if (and nil (= (length results) 1)) (setq results (cons t results))) (if found results (list #1#))))) (dired-move-to-filename)))))))])
#@2 
(autoload 'mailcap-parse-mailcaps "mailcap" '(#$ . 5286) t)
#@102 In dired, visit FILE-NAME according to the mailcap file.
If ARG is non-nil, open it in a new buffer.
(defalias 'gnus-dired-find-file-mailcap #[(&optional file-name arg) "\306 \210\307!\203U�\310\211\204P�\311!\204P�\312\313\"\203P�\314\315\316\"!\211\203P�\317\320\321\n\322\323#@\"A\211;\203P�\324	\310#\325\326\f\"\210\327\330\310
\f%)\202S�\331!*\207\332!\203_�\333\334!\207\333\335!\207" [file-name method mime-type arg view-command shell-file-name mailcap-parse-mailcaps file-exists-p nil file-directory-p string-match "\\.[^\\.]+$" mailcap-extension-to-mime match-string 0 assoc viewer mailcap-mime-info all no-decode mm-mailcap-command message "viewing via %s" start-process "*display*" find-file file-symlink-p error "File is a symlink to a nonexistent target" "File no longer exists; type `g' to update Dired buffer" shell-command-switch] 6 (#$ . 5354) (list (file-name-sans-versions (dired-get-filename) t) current-prefix-arg)])
#@347 In dired, print FILE-NAME according to the mailcap file.

If there is no print command, print in a PostScript image. If the
optional argument PRINT-TO is nil, send the image to the printer. If
PRINT-TO is a string, save the PostScript image in a file with that
name.  If PRINT-TO is a number, prompt the user for the name of the
file to save in.
(defalias 'gnus-dired-print #[(&optional file-name print-to) "\306 \210\307!\203
�\310\311!\207\312!\203l�\313\211\314\315\"\203F�\316\317\320\"!\211\203F�\321\n\322\323#\211;\203F�\324\313\325\326!\313\f\327	\n#&\202j�\325\330!r
q\210\331\216\332!\210\"\333=\203a�\334 \210\202e�\310\335!\210+\336#!*\207\337!\203v�\310\340!\207\310\341!\207" [file-name method mime-type shell-file-name shell-command-switch #1=#:temp-buffer mailcap-parse-mailcaps file-directory-p error "Can't print a directory" file-exists-p nil string-match "\\.[^\\.]+$" mailcap-extension-to-mime match-string 0 mailcap-mime-info "print" no-decode call-process generate-new-buffer " *mm*" mm-mailcap-command " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents gnus-user-agent gnus-print-buffer "MIME print only implemented via Gnus" ps-despool file-symlink-p "File is a symlink to a nonexistent target" "File no longer exists; type `g' to update Dired buffer" gnus-dired-mail-mode print-to] 10 (#$ . 6315) (list (file-name-sans-versions (dired-get-filename) t) (ps-print-preprint current-prefix-arg))])
(provide 'gnus-dired)