;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Fri Jul 1 20:33:17 1994 ;;; from file /home/fsf/rms/e19/lisp/gnusmisc.el ;;; emacs version 19.25.13. ;;; bytecomp version FSF 2.10 ;;; 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 "`/home/fsf/rms/e19/lisp/gnusmisc.el' was compiled for Emacs 19")) (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Ë\fÍ!ˆÏ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 "„ÁÂ!ˆÃ\f!„Å ÇÈ\f!!ˆÉ ˆÊ \fÍ ˆ ƒ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 "À ‰ƒ/ÂÄ \"JÇ!ˆƒÉ!ˆÇ\n!ˆËyˆ`Ìyˆ`|ˆ*)Í ‡" [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 0 1 gnus-browse-killed-check-buffer] 4 "\ 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 "À !ƒ\fÂÀ !!ˆÃ !ˆ\fƒÅ\f!ˆÆ‰‡" [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ˆÂ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"]) (defalias 'gnus-group-kill-group #[(n) "À‰ ÄVƒCÅ ‰„ÆÇÀ\"ˆÄyˆ`Èyˆ`|ˆÉ !ˆ SÊ !ƒŠ qˆÀebˆÌ @!cˆ*‚ÎÏÀÐ#*‡" [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"]) (defalias '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]) (defalias '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."]) (defalias 'gnus-gmt-to-local #[nil "ŠŒ~ˆebˆeÀÁÂÃ#ˆ`}ˆebˆÄÅÂÆ#…5ÂǔǕ{ ǔǕ|ˆÊ #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 (quote gnusmisc))