;ELC ;;; compiled by cthomp@willow on Thu Aug 12 00:34:30 1993 ;;; from file /era/era-0.80/editor/lisp/gnus/gnusmisc.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.15; 14-jul-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.")) (require 'gnus) (defvar gnus-browse-killed-mode-hook nil "\ *A hook for GNUS Browse-Killed Mode.") (byte-code "ÀÁ!¬‚ÂÀÃ!¬‚ÄÀÅ!¬‚ÄÆÇÈ\"ˆÉÊËÌ#ˆ  >¬†  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) (fset '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]) (fset 'gnus-list-killed-groups #[nil "¬„ÁÂ!ˆÃ !¬„Å ÇÈ !!ˆÉ ˆÊ  Í ˆ «Î @!cˆ A‰ ¬qeb*‡" [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]) (fset 'gnus-browse-killed-yank #[nil "À ‰«§ÂÄ \"JÇ!ˆ«…É!ˆÇ\n!ˆËyˆ`Ìyˆ`|ˆ*)Í ‡" [gnus-group-group-name group nil buffer-read-only intern-soft gnus-killed-hashtb killed gnus-pop-to-buffer gnus-group-buffer gnus-group-insert-group gnus-browse-killed-buffer 0 1 gnus-browse-killed-check-buffer] 4 "\ Yank current newsgroup to Newsgroup buffer." nil]) (fset '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."]) (fset '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]) (fset '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"]) (fset 'gnus-group-kill-region #[(begin end) "ŠÀ bˆÂyˆ` bˆÄˆ`\")S bˆÂyˆÆ !)‡" [count-lines begin 0 end nil 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"]) (fset 'gnus-group-kill-group #[(n) "À‰ ÄV«¶Å ‰¬…ÆÇÀ\"ˆÄyˆ`Èyˆ`|ˆÉ !ˆ SÊ !«YŠ qˆÀebˆÌ @!cˆ*ªEÎÏÀÐ#*‡" [nil group buffer-read-only n 0 gnus-group-group-name signal end-of-buffer 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"]) (fset 'gnus-group-yank-group #[nil "À @!ˆÂ !«‘Š qˆÄebˆeÆyˆ`|ˆ*Ç ‡" [gnus-group-insert-group gnus-killed-assoc get-buffer gnus-browse-killed-buffer nil buffer-read-only 1 gnus-browse-killed-check-buffer] 2 "\ Yank the last newsgroup killed with \\[gnus-group-kill-group], inserting it before the newsgroup on the line containing point." nil]) (fset 'gnus-group-insert-group #[(info) "¬„ÁÂ!ˆÃÄ Ç \"ˆÉyˆÊ!cˆËyˆÌÍÃÎ#*‡" [gnus-killed-assoc error "No killed newsgroups" nil gnus-group-group-name group buffer-read-only gnus-insert-newsgroup info 0 gnus-group-prepare-line -1 search-forward ":" t] 4 "\ Insert newsgroup at current line using gnus-newsrc-assoc INFO."]) (fset 'gnus-gmt-to-local #[nil "ŠŒ~ˆebˆeÀÁÂÃ#ˆ`}ˆebˆÄÅÂÆ#­™ÂǔǕ{ ǔǕ|ˆÊ #c**‡" [search-forward "\n\n" nil move re-search-forward "^Date:[ ]\\(.*\\)$" t 1 date buffer-read-only timezone-make-date-arpa-standard gnus-local-timezone] 5 "\ 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 'gnusmisc)