;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:42:12 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/gnusmisc.el ;;; emacs version 19.28.90.26. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/gnusmisc.el' was compiled for Emacs 19")) (require (quote gnus)) #@38 *A hook for GNUS Browse-Killed Mode. (defvar gnus-browse-killed-mode-hook nil (#$ . -508)) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÅÄ BÀÆ!„!ÅÆ BÇÈÉ\"ˆÊËÌÍ#ˆ >„= B\f„‘Ï Ð\fÑ\"ˆÒ\fÓÔ#ˆÒ\fÕÖ#ˆÒ\f×Ô#ˆÒ\fØÖ#ˆÒ\fÙÔ#ˆÒ\fÚÖ#ˆÒ\fÛÜ#ˆÒ\fÝÜ#ˆÒ\fÞß#ˆÒ\fàá#ˆÒ\fâá#ˆÒ\fãä#ˆÅ‡" [boundp gnus-browse-killed-buffer "*Killed Newsgroup*" current-load-list 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) #@400 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. (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 (#$ . 1263) nil]) #@115 List the killed newsgroups. The keys y and C-y yank the newsgroup on the current line into the Newsgroups buffer. (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 (#$ . 2171) nil]) #@45 Yank current newsgroup to Newsgroup buffer. (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 (#$ . 2695) nil]) #@76 Exit if the buffer is empty by deleting the window and killing the buffer. (defalias 'gnus-browse-killed-check-buffer #[nil "?… Á\n!… à ‡" [gnus-killed-assoc get-buffer gnus-browse-killed-buffer gnus-browse-killed-exit] 2 (#$ . 3069)]) #@63 Exit this mode 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 (#$ . 3314) nil]) #@129 Exchange current newsgroup and previous newsgroup. With argument ARG, takes previous newsgroup and moves it past ARG newsgroup. (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 (#$ . 3606) "p"]) #@133 Kill newsgroups in current region (excluding current point). The killed newsgroups can be yanked by using \[gnus-group-yank-group]. (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 (#$ . 3936) "r"]) #@138 Kill newsgroup on current line, repeated prefix argument N times. The killed newsgroups can be yanked by using \[gnus-group-yank-group]. (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 (#$ . 4236) "p"]) #@127 Yank the last newsgroup killed with \[gnus-group-kill-group], inserting it before the newsgroup on the line containing point. (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 (#$ . 4715) nil]) #@64 Insert newsgroup at current line using gnus-newsrc-assoc INFO. (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 (#$ . 5076)]) #@180 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. (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 (#$ . 5424)]) (provide (quote gnusmisc))