;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\"\210\302\305\306\"\210\302\307\306\"\210\302\310\311\"\210\302\312\313\"\210\302\314\315\"\210\302\316\317\"\207" [require dired autoload mml-attach-file "mml" mailcap-extension-to-mime "mailcap" mailcap-mime-info mm-mailcap-command "mm-decode" ps-print-preprint "ps-print" message-buffers "message" gnus-print-buffer "gnus-sum"] 3) (defvar gnus-dired-mode-map (define-keymap "C-c C-m C-a" 'gnus-dired-attach "C-c C-m C-l" 'gnus-dired-find-file-mailcap "C-c C-m C-p" 'gnus-dired-print)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable gnus-dired-mail-mode funcall function #[0 "\300\207" [gnus-user-agent] 1 ""] "Your preference for a mail composition package.\nSee `mail-user-agent' for more information." :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"))] 10)#@99 Non-nil if Gnus-Dired mode is enabled. Use the command `gnus-dired-mode' to change this variable. (defvar gnus-dired-mode nil (#$ . 1269)) (make-variable-buffer-local 'gnus-dired-mode)#@627 Minor mode for intersections of gnus and dired. \{gnus-dired-mode-map} This is a minor mode. If called interactively, toggle the `Gnus-Dired mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `gnus-dired-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'gnus-dired-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312!\2049\305\313\314\203C\315\202D\316\"\210\317\320!\203g\302 \203X\211\302 \232\203g\321\322\323\203c\324\202d\325\326$\210\210\327 \210\207" [gnus-dired-mode local-minor-modes current-message toggle 1 nil t boundp delq derived-mode-p dired-mode run-hooks gnus-dired-mode-hook gnus-dired-mode-on-hook gnus-dired-mode-off-hook called-interactively-p any message "%s %sabled%s" "Gnus-Dired mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 1460) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar gnus-dired-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\310\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.)" custom-type hook standard-value nil add-minor-mode gnus-dired-mode] 6)#@50 Convenience method to turn on `gnus-dired-mode'. (defalias 'turn-on-gnus-dired-mode #[0 "\300\301!\207" [gnus-dired-mode 1] 2 (#$ . 3287) nil])#@51 Return a list of active mail composition buffers. (defalias 'gnus-dired-mail-buffers #[0 "\302>\203\303\304!\203\305\306!\203\306 \207\307\212\310\311!\211\2037\211@\211q\210 \312=\2030\313!B\262A\266\202\202)\210\211\237\207" [gnus-dired-mail-mode major-mode (message-user-agent gnus-user-agent) require message fboundp message-buffers nil buffer-list t mail-mode buffer-name] 5 (#$ . 3436)]) (autoload 'gnus-completing-read "gnus-util")#@158 Attach dired's marked files to a gnus message composition. If called non-interactively, FILES-TO-ATTACH should be a list of filenames. (fn FILES-TO-ATTACH) (defalias 'gnus-dired-attach #[257 "\303\211\211\204 \304\305!\207\306\307\310#\262\311 \262\211\203>\312\313!\203>\211G\314U\203.\315@!\2029\316\317\320\303\211@&\262\202S\211\321=\203I\322\202J \323 *\210p\262q\210db\210\203s\324@\325@!\206i\326\303#\210A\262\202Y\327\330\"\207" [gnus-dired-mail-mode this-command mail-user-agent nil error "No files to attach" mapconcat #[257 "\300!\207" [file-name-nondirectory] 3 "\n\n(fn F)"] ", " 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-type "application/octet-stream" message "Attached file(s) %s"] 11 (#$ . 3896) [(byte-code "\302\303\304\305\306\303\211\211C\307 \303\212eb\210\310\303\306#\205\311 \262\211??\262\211\203N\211b\210\312 \242B\240\210\211b\210\313y\210\211\303\211\223\210\310\303\306#\205I\311 \262\202%)\203X\242\202[\312 C\266\202*\266\204\314 \210\237\"\"C\207" [case-fold-search inhibit-read-only delq nil mapcar #[257 "\300!?\205\211\207" [file-directory-p] 3 "\n\n(fn F)"] t dired-marker-regexp re-search-forward point-marker dired-get-filename 1 dired-move-to-filename] 14) (dired-mode)]])#@2  (autoload 'mailcap-parse-mailcaps "mailcap" '(#$ . 5353) t)#@132 In dired, visit FILE-NAME according to the mailcap file. If ARG is non-nil, open it in a new buffer. (fn &optional FILE-NAME ARG) (defalias 'gnus-dired-find-file-mailcap #[512 "\302 \210\303!\203O\304\211\204K\305!\204K\306\307\"\203K\310\311\312\"!\211\262\203K\313\314\315\316#@\236A\211\262;\203K\317\304#\320\321\"\210\322\323\304 %\207\324!\207\325!\203Y\326\327!\207\326\330\331!!\207" [shell-file-name shell-command-switch mailcap-parse-mailcaps file-exists-p nil file-directory-p string-match "\\.[^\\.]+$" mailcap-extension-to-mime match-string 0 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" substitute-command-keys "File no longer exists; type \\`g' to update Dired buffer"] 11 (#$ . 5420) [(byte-code "\301\302 \303\"D\207" [current-prefix-arg file-name-sans-versions dired-get-filename t] 3) (dired-mode)]])#@383 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. (fn &optional FILE-NAME PRINT-TO) (defalias 'gnus-dired-print #[512 "\303 \210\304!\203 \305\306!\207\307!\203o\310\211\311\312\"\203H\313\314\315\"!\211\262\203H\316\317\320#\211\262;\203H\321\310\322\323!\310 \324 \n#&\207\322\325\326\"r\211q\210\327\330\"\216\331!\210\n\332=\203e\333 \210\202i\305\334!\210*\210\335!\207\336!\203y\305\337!\207\305\340\341!!\207" [shell-file-name shell-command-switch gnus-dired-mail-mode 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*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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" substitute-command-keys "File no longer exists; type \\`g' to update Dired buffer"] 14 (#$ . 6410) [(byte-code "\301\302 \303\"\304!D\207" [current-prefix-arg file-name-sans-versions dired-get-filename t ps-print-preprint] 3) (dired-mode)]]) (provide 'gnus-dired)