;ELC ;;; compiled by jwz@thalidomide on Mon Jan 31 22:50:45 1994 ;;; from file /th/jwz/emacs19/lisp/gnus/gnus-mark.el ;;; emacs version 19.9 Lucid. ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "! # # #" [require gnus define-key gnus-summary-mode-map "@" gnus-summary-mark-article "" gnus-summary-mark-regexp substitute-key-definition gnus-summary-mail-forward gnus-forward-marked-articles] 4) (defvar gnus-default-mark-char 64 "\ *Character used to mark articles for later commands in GNUS.") (fset 'gnus-summary-mark-article #[(mark) "p !=!\"\"" [get-buffer gnus-summary-buffer error "not in summary buffer" gnus-summary-mark-as-read nil gnus-default-mark-char gnus-summary-next-subject 1] 3 "\ Mark the current article for later commands. This marker comes from variable `gnus-default-mark-char'. You can change this variable by giving a prefix argument to this command, in which case you will be prompted for the character to use." (byte-code "! )C" [current-prefix-arg t cursor-in-echo-area message "Mark message with: " read-char gnus-default-mark-char] 2)]) (fset 'gnus-summary-mark-regexp #[(regexp &optional marker) "\n! ƚǪE$" [marker char-to-string gnus-default-mark-char gnus-kill "Subject" regexp "" (gnus-summary-mark-as-unread) gnus-summary-mark-as-read nil t] 6 "\ Mark all articles with subjects matching REGEXP. With a prefix ARG, prompt for the marker. Type RET immediately to mark them as unread or enter SPC RET to remove all kinds of marks." (byte-code "!\n!D" [read-string "Mark (regexp): " current-prefix-arg "Mark with char (RET to mark as unread, SPC RET to remove existing markers): "] 3)]) (fset 'gnus-summary-mark-map-articles #[(mark function) "q \"!Q ebm ! Ĕĕ{!\"!)y^)? U! \"!)+" [gnus-summary-buffer "^" regexp-quote make-string 1 mark "[^-0-9]*\\([-0-9]+\\):" nil got-one str looking-at t function gnus-find-header-by-number gnus-newsgroup-headers string-to-int gnus-summary-article-number article gnus-current-article gnus-summary-display-article] 6]) (fset 'gnus-mark-shell-command #[(start end command erase) "!pq db\nq \n= ! ! &*" [get-buffer-create "*Shell Command Output*" orig-buffer buffer erase erase-buffer 1 start end display-buffer bury-buffer call-process-region shell-file-name nil t "-c" command] 10 "\ Execute string COMMAND in inferior shell with region as input. Display output (if any) in temp buffer interactively. If ERASE is non-nil the buffer is erased, otherwise the output is appended to the end of the buffer."]) (fset 'gnus-forward-marked-articles #[nil "Ǝ!\nq ) \" Q#db Ъc\n!db Ӫc." [nil first tmp-buf state p subj ((byte-code "!" [tmp-buf kill-buffer] 2)) get-buffer-create "*gnus-forward-tmp*" erase-buffer gnus-summary-mark-map-articles gnus-default-mark-char #[(msg) "=H\"H= H! q~ qdb cH ` !b#ct" [state first t nil message "Snarfing article %s..." msg 0 gnus-current-article gnus-summary-mark-as-read gnus-summary-display-article gnus-article-buffer tmp-buf subj "----------\n" 1 p insert-buffer re-search-forward "^-" " -"] 4] mail "[Fwd: " "]" "---------- Begin forwarded message\n" "---------- Begin digest\n" insert-buffer "\n---------- End forwarded message\n" "\n---------- End digest\n"] 6 "\ Forward the marked messages to another user, RFC944 style." nil]) (byte-code "M Ȱ " [gnus-mark-read-directory #[(prompt &optional default-dir) " \n \n # \" ljO ! ! \"! \" \"! ! \" \" P)" [read-file-name prompt default-dir default-directory dir string-match "/$" 0 file-directory-p file-exists-p ding message "%s exists and is not a directory!" sleep-for 2 gnus-mark-read-directory y-or-n-p format "directory %s doesn't exist, create it? " make-directory "/"] 4] "^begin[ ]+\\([0-9][0-9][0-9][0-9]?\\)[ ]+\\([^ \n]*\\)$" gnus-uudecode-begin-pattern "^M.............................................................?$" gnus-uudecode-body-pattern "\\(" "\\|" "\\)" gnus-uudecode-begin-or-body-pattern] 5) (defvar gnus-uudecode-file-mode "644" "\ *If non-nil, this overrides the mode specified in the `begin' line of a uuencoded file being unpacked by vm-uudecode. This should be a string, which is the mode desired in octal.") (defvar gnus-uudecode-auto-chmod "u+w" "\ *If non-nil, then when gnus is untarring a file for you, it will apply this chmod modifier to each of the unpacked files. This should be a string like \"u+w\".") (defvar gnus-uudecode-auto-touch t "\ *If non-nil, then when vm-uudecode is untarring a file for you, it will cause the write-date of each of the unpacked files to be the current time. Normally tar unpacks files with the time at which they are packed; this can cause your `make' commands to fail if you are installing a new version of a package which you have modified.") (defvar gnus-uudecode-picture-pattern "\\.\\(gif\\|p[bgp]m\\|rast\\|pic\\|jpg\\|tiff?\\)$" "\ *If non-nil, this should be a pattern which matches files which are images. When gnus-uudecode-marked-articles creates a file which matches this pattern, it will ask you if you want to look at it now. If so, it invokes gnus-uudecode-picture-viewer with the filename as an argument. After doing this, it asks you if you want to keep the picture or delete it.") (defvar gnus-uudecode-picture-viewer "xv" "\ *The picture viewer that gnus-uudecode-marked-articles uses. See doc of variable gnus-uudecode-picture-pattern.") (defvar gnus-uudecode-default-directory nil "\ *") (fset 'gnus-uudecode-marked-articles #[(directory) "Éǎ! q ) \"=! q !PQ\"!R\"!Q\"!Q剔OQ((!ed$(P!)A!q QÉ012ebm!{1B1yi111#01990``$2 2;0R``$2 2eb2+\">?ê?\"ځ@A\"!``؁B!\"CDODQ$ځ@E\"!F!G\"HI!)." [directory gnus-uudecode-default-directory first nil name tmp-buf state ((byte-code "!" [tmp-buf kill-buffer] 2)) get-buffer-create "*gnus-uudecode-tmp*" erase-buffer gnus-summary-mark-map-articles gnus-default-mark-char #[(msg) "\nH\" =!\nH= \nH! q~ qdb` !b#u!pb =#!ڔڕ{ݔbݔݕ|c#!y`|͉!\"ygZ\"iS!y!\\\\\"Ua`!y!y!y!yb*`d|*" [message "Snarfing article %s..." msg 0 state last error "articles out of order: articles follow `end' line." gnus-current-article gnus-summary-mark-as-read gnus-summary-display-article gnus-article-buffer tmp-buf nil case-fold-search p insert-buffer search-forward " \n" t -1 delete-char first re-search-forward gnus-uudecode-begin-pattern "couldn't find `begin' line in first article." 2 name gnus-uudecode-file-mode 1 middle gnus-uudecode-begin-or-body-pattern "couldn't find beginning of data." tmp c 32 4 looking-at "end\n"] 4] last error "no `end' line in last article." file-name-nondirectory base-file final-file "cd " " ; uudecode" command tar-p string-match "\\.tar\\.\\(Z\\|z\\|gz\\)$" y-or-n-p "uncompress/untar? " " && zcat " " | tar -vxf -" t "\\.tar$" "untar? " " && tar -vxf " "\\.\\(Z\\|z\\|gz\\)$" "uncompress? " " ; uncompress " 0 "executing \"" "\" ..." str message gnus-mark-shell-command " done." get-buffer "*Shell Command Output*" "\n" buffer-string files-str files all looking-at "^x \\([^,\n]+\\), " 1 mapconcat identity " " gnus-uudecode-auto-chmod " ; chmod " gnus-uudecode-auto-touch " ; touch " "wrote file %s" case-fold-search gnus-uudecode-picture-pattern format "look at the picture in %s? " regexp-quote " ; " gnus-uudecode-picture-viewer "delete file %s? " delete-file "%s deleted." display-buffer "*Article*"] 11 "\ Strip the junk from the beginning and end of the marked articles, concatenate them together, and pipe the result through uudecode. If the resultant file is a tar file and/or is compressed, this command offers to unpack/uncompress as well. See also the variables gnus-uudecode-file-mode, gnus-uudecode-auto-chmod, and gnus-uudecode-auto-touch." (byte-code "\n\"C" [gnus-mark-read-directory "uudecode in directory: " gnus-uudecode-default-directory] 3)]) (defvar gnus-unshar-program "/bin/sh" "\ *The program to use to unshar files; you might want to use something that is less of a gaping security hole than /bin/sh.") (defvar gnus-unshar-default-directory nil "\ *") (fset 'gnus-unshar-marked-articles #[(directory) " RȎ!q )!\"+" [directory gnus-unshar-default-directory nil "cd " " ; " gnus-unshar-program command tmp-buf ((kill-buffer tmp-buf)) get-buffer "*Shell Command Output*" erase-buffer get-buffer-create "*gnus-unshar-tmp*" gnus-summary-mark-map-articles gnus-default-mark-char #[(msg) "\nH\" \nH= \nH!q~q !####͉#ye`|db#`d|\nH\"ed$\nH\"" [message "Snarfing article %s..." msg 0 gnus-current-article gnus-summary-mark-as-read gnus-summary-display-article gnus-article-buffer tmp-buf erase-buffer insert-buffer re-search-forward "^#!" nil t "^: This is a shar archive" "^# This is a shell archive" "^# type \"sh file -c\"." re-search-backward "^--" "unsharing article %s..." gnus-mark-shell-command command "unsharing article %s...done."] 5]] 5 "\ For each of the marked articles, strip the junk from the beginning and end and then run the result through gnus-unshar-program (typically /bin/sh.)" (byte-code "\n\"C" [gnus-mark-read-directory "unshar in directory: " gnus-unshar-default-directory] 3)]) (defvar gnus-save-marked-in-same-file t "\ *When saving multiple marked articles, whether to prompt each time. If t, you will be asked where to save them once, and all messages will be saved there. If nil, you will be prompted for each article.") (byte-code "M!K" [gnus-save-marked-articles-mapper #[(saver filename var) "! ! \" V UϪ#\"P\")*" [0 count #[(msg) " ! ! J T" [filename saver call-interactively gnus-save-marked-in-same-file var count] 2] fn boundp inside-gnus-save-marked-articles-mapper nil t gnus-summary-mark-map-articles gnus-default-mark-char message "%s" format "Saved %d article%s" 1 "" "s" gnus-save-marked-in-same-file " to %s" filename] 7] boundp gm-orig-gnus-summary-save-in-rmail gnus-summary-save-in-rmail] 2) (fset 'gnus-summary-save-in-rmail #[(&optional filename) " \n#" [gnus-save-marked-articles-mapper gm-orig-gnus-summary-save-in-rmail filename gnus-newsgroup-last-rmail] 4 "\ Append the marked articles to an Rmail file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory' which is initialized from the SAVEDIR environment variable." nil]) (byte-code "!K" [boundp gm-orig-gnus-summary-save-in-mail gnus-summary-save-in-mail] 2) (fset 'gnus-summary-save-in-mail #[(&optional filename) " \n#" [gnus-save-marked-articles-mapper gm-orig-gnus-summary-save-in-mail filename gnus-newsgroup-last-mail] 4 "\ Append the marked articles to a Unix mail file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory' which is initialized from the SAVEDIR environment variable." nil]) (byte-code "!K" [boundp gm-orig-gnus-summary-save-in-file gnus-summary-save-in-file] 2) (fset 'gnus-summary-save-in-file #[(&optional filename) " \n#" [gnus-save-marked-articles-mapper gm-orig-gnus-summary-save-in-file filename gnus-newsgroup-last-file] 4 "\ Append the marked articles to a file. Optional argument FILENAME specifies file name. Directory to save to is default to `gnus-article-save-directory' which is initialized from the SAVEDIR environment variable." nil]) (byte-code "!K" [boundp gm-orig-gnus-summary-save-in-folder gnus-summary-save-in-folder] 2) (fset 'gnus-summary-save-in-folder #[(&optional folder) " \n#" [gnus-save-marked-articles-mapper gm-orig-gnus-summary-save-in-folder folder gnus-newsgroup-last-folder] 4 "\ Save the marked articles to a MH folder (using `rcvstore' in MH library). Optional argument FOLDER specifies folder name." nil]) (provide 'gnus-mark)