;;; compiled by roland@geech.gnu.ai.mit.edu on Sun May 16 22:45:44 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/gnusmisc.el ;;; emacs version 19.6.3. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (require (quote gnus)) (defvar gnus-browse-killed-mode-hook nil "\ *A hook for GNUS Browse-Killed Mode.") (byte-code "ÀÁ!„ÂÀÃ!„ÄÀÅ!„ÄÆÇÈ\"ˆÉÊËÌ#ˆ  >„0  B „„Î Ï Ð\"ˆÑ ÒÓ#ˆÑ ÔÕ#ˆÑ ÖÓ#ˆÑ ×Õ#ˆÑ ØÓ#ˆÑ ÙÕ#ˆÑ ÚÛ#ˆÑ ÜÛ#ˆÑ ÝÞ#ˆÑ ßà#ˆÑ áà#ˆÑ âã#ˆÄ‡" [boundp gnus-browse-killed-buffer "*Killed Newsgroup*" gnus-browse-killed-mode-map nil gnus-winconf-browse-killed autoload timezone-make-date-arpa-standard "timezone" put gnus-browse-killed-mode mode-class special gnus-buffer-list make-keymap suppress-keymap t define-key " " gnus-group-next-group "" gnus-group-prev-group "" "" "n" "p" "y" gnus-browse-killed-yank "" "l" gnus-list-killed-groups "q" gnus-browse-killed-exit "" " " gnus-info-find-node] 4) (defalias 'gnus-browse-killed-mode #[nil "À ˆÁÂ!ƒÃ‚!ÄÅ!<ƒÃÄÅ!AB‚!ÆÇÉ\nË Í!ˆÏp!ˆÐÒÓ!‡" [kill-all-local-variables boundp mode-line-modified "--- " default-value mode-line-format "--- GNUS: Killed Newsgroups %[(%m)%]----%3p-%-" gnus-browse-killed-mode major-mode "Browse-Killed" mode-name "GNUS: Killed Newsgroups" mode-line-buffer-identification use-local-map gnus-browse-killed-mode-map buffer-flush-undo t buffer-read-only run-hooks gnus-browse-killed-mode-hook] 3 "\ Major mode for browsing the killed newsgroups. All normal editing commands are turned off. Instead, these commands are available: \\{gnus-browse-killed-mode-map} The killed newsgroups are saved in the quick startup file (.newsrc.el) unless it against the options line in the startup file (.newsrc). Entry to this mode calls gnus-browse-killed-mode-hook with no arguments, if that value is non-nil." nil]) (defalias 'gnus-list-killed-groups #[nil "„ÁÂ!ˆÃ !„Å ÇÈ !!ˆÉ ˆÊ  Í ˆ ƒ9Î @!cˆ A‰ „)eb*‡" [gnus-killed-assoc error "No killed newsgroups" get-buffer-window gnus-browse-killed-buffer current-window-configuration gnus-winconf-browse-killed pop-to-buffer get-buffer-create gnus-browse-killed-mode nil killed-assoc buffer-read-only erase-buffer gnus-group-prepare-line] 4 "\ List the killed newsgroups. The keys y and C-y yank the newsgroup on the current line into the Newsgroups buffer." nil]) (defalias 'gnus-browse-killed-yank #[nil "À ‰ƒ2ÂÄ \"JÇ!ˆƒÉ!ˆÇ\n!ˆËÌ!ˆÍ`ËÎ!ˆ`\"ˆ*)Ï ‡" [gnus-group-group-name group nil buffer-read-only intern-soft gnus-killed-hashtb killed pop-to-buffer gnus-group-buffer gnus-group-insert-group gnus-browse-killed-buffer forward-line 0 delete-region 1 gnus-browse-killed-check-buffer] 5 "\ Yank current newsgroup to Newsgroup buffer." nil]) (defalias 'gnus-browse-killed-check-buffer #[nil "?… Á\n!… à ‡" [gnus-killed-assoc get-buffer gnus-browse-killed-buffer gnus-browse-killed-exit] 2 "\ Exit if the buffer is empty by deleting the window and killing the buffer."]) (defalias 'gnus-browse-killed-exit #[nil "À !ƒ ÂÀ !!ˆÃ !ˆ ƒÅ !ˆÆ‰‡" [get-buffer-window gnus-browse-killed-buffer delete-window kill-buffer gnus-winconf-browse-killed set-window-configuration nil] 3 "\ Exit this mode by deleting the window and killing the buffer." nil]) (defalias 'gnus-group-transpose-groups #[(arg) "ÁV…#ÂÉ\"ˆÄÅ!ˆÂÆÃ\"ˆÇ ˆÂÆÃ\"ˆS‰‚‡" [arg 0 gnus-group-search-forward t gnus-group-kill-group 1 nil gnus-group-yank-group] 4 "\ Exchange current newsgroup and previous newsgroup. With argument ARG, takes previous newsgroup and moves it past ARG newsgroup." "p"]) (defalias 'gnus-group-kill-region #[(begin end) "ŠÀ bˆÂÃ!ˆ` bˆÅ ˆ`\")S bˆÂÃ!ˆÇ!)‡" [count-lines begin forward-line 0 end end-of-line lines gnus-group-kill-group] 3 "\ Kill newsgroups in current region (excluding current point). The killed newsgroups can be yanked by using \\[gnus-group-yank-group]." "r"]) (defalias 'gnus-group-kill-group #[(n) "À‰ ÄVƒFÅ ‰„ÆÇÀ\"ˆÈÄ!ˆÉ`ÈÊ!ˆ`\"ˆË !ˆ SÌ !ƒŠ qˆÀebˆÎ@!cˆ*‚ÐÑÀÒ#*‡" [nil group buffer-read-only n 0 gnus-group-group-name signal end-of-buffer forward-line delete-region 1 gnus-kill-newsgroup get-buffer gnus-browse-killed-buffer gnus-group-prepare-line gnus-killed-assoc search-forward ":" t] 5 "\ Kill newsgroup on current line, repeated prefix argument N times. The killed newsgroups can be yanked by using \\[gnus-group-yank-group]." "p"]) (defalias 'gnus-group-yank-group #[nil "À @!ˆÂ !ƒŠ qˆÄebˆÆeÇÈ!ˆ`\"ˆ*É ‡" [gnus-group-insert-group gnus-killed-assoc get-buffer gnus-browse-killed-buffer nil buffer-read-only delete-region forward-line 1 gnus-browse-killed-check-buffer] 4 "\ Yank the last newsgroup killed with \\[gnus-group-kill-group], inserting it before the newsgroup on the line containging point." nil]) (defalias 'gnus-group-insert-group #[(info) "„ÁÂ!ˆÃÄ Ç \"ˆÉÊ!ˆË!cˆÉÌ!ˆÍÎÃÏ#*‡" [gnus-killed-assoc error "No killed newsgroups" nil gnus-group-group-name group buffer-read-only gnus-insert-newsgroup info forward-line 0 gnus-group-prepare-line -1 search-forward ":" t] 4 "\ Insert newsgroup at current line using gnus-newsrc-assoc INFO."]) (defalias 'gnus-gmt-to-local #[nil "ŠŒÀ ˆebˆÁeÂÃÄÅ#ˆ`\"ˆebˆÆÇÄÈ#…=ÄÉÊË!ÌË!\" ÏÊË!ÌË!\"ˆÐ Ä#c**‡" [widen narrow-to-region search-forward "\n\n" nil move re-search-forward "^Date:[ ]\\(.*\\)$" t buffer-substring match-beginning 1 match-end date buffer-read-only delete-region timezone-make-date-arpa-standard gnus-local-timezone] 6 "\ Rewrite Date: field described in GMT to local in current buffer. The variable gnus-local-timezone is used for local time zone. Intended to be used with gnus-article-prepare-hook."]) (provide (quote gnusmisc))