%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 '(#$ . 1054) :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 (#$ . 1621))
(make-variable-buffer-local 'gnus-dired-mode)
#@316 Minor mode for intersections of gnus and dired.
If called interactively, enable Gnus-Dired mode if ARG is
positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and
toggle it if ARG is `toggle'; disable the mode otherwise.
\{gnus-dired-mode-map}
(defalias 'gnus-dired-mode #[(&optional arg) "\304 \305=\203 \n?\202 \306 !\307V\310\311!\204 \312\313\314\n\203& \315\202' \316\"\210\317\320!\203L \304 \203; \304 \232\203L \321\322\323\n\203G \324\202H \325 #\210))\326 \210\n\207" [#1=#:last-message arg gnus-dired-mode local 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 " in current buffer" message "Gnus-Dired mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 1813) (list (or current-prefix-arg 'toggle))])
(defvar gnus-dired-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\307\211%\207" [gnus-dired-mode-map gnus-dired-mode-hook variable-documentation put "Hook run after entering or leaving `gnus-dired-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" 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 (#$ . 3154) 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! B A\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 (#$ . 3304)])
(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!\202w \311\312 \313#\314 \211\203? \315\316!\203? G\317U\2031 \320@!\202; \321\322\323\306\211@&\202T \f\211\324=\203J \325\202K
\326 \210*p\nq\210db\210 \203s \327 @\330 @!\206i \331\306#\210 A\211\204^ \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 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] 8 (#$ . 3793) (list (delq nil (mapcar #'(lambda (f) (if (file-directory-p f) nil f)) (nreverse (prog1 (let ((inhibit-read-only t) case-fold-search found results) (if nil (if (integerp nil) (progn (dired-repeat-over-lines nil #'(lambda nil (if nil (sit-for 0)) (setq results (cons #1=(dired-get-filename) results)))) (if (< nil 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" '(#$ . 5687) 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 (#$ . 5755) (list (file-name-sans-versions (dired-get-filename) t) current-prefix-arg)])
#@348 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*" #[nil "\301!\205 \302!\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 (#$ . 6716) (list (file-name-sans-versions (dired-get-filename) t) (ps-print-preprint current-prefix-arg))])
(provide 'gnus-dired)
Zerion Mini Shell 1.0