ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/gnus-dired.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 '(#$ . 1056) :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 (#$ . 1623))
(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) "\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 (#$ . 1814) (list (or current-prefix-arg 'toggle))])
#@180 Hook run after entering or leaving `gnus-dired-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar gnus-dired-mode-hook nil (#$ . 2511))
(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 (#$ . 2842) 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 (#$ . 2992)])
(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 (#$ . 3481) (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" '(#$ . 5393) 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 (#$ . 5461) (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*" #[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 (#$ . 6422) (list (file-name-sans-versions (dired-get-filename) t) (ps-print-preprint current-prefix-arg))])
(provide 'gnus-dired)
Kontol Shell Bypass