(provide (quote gnusmisc)) (require (quote gnus)) (defvar gnus-Browse-killed-mode-hook nil "\ *A hook for GNUS Browse-Killed Mode.") (defvar gnus-Browse-killed-buffer "*Killed Newsgroup*") (defvar gnus-Browse-killed-mode-map nil) (defvar gnus-winconf-browse-killed nil) (autoload (quote timezone-make-date-arpa-standard) "timezone") (put (quote gnus-Browse-killed-mode) (quote mode-class) (quote special)) (or (memq gnus-Browse-killed-buffer gnus-buffer-list) (setq gnus-buffer-list (cons gnus-Browse-killed-buffer gnus-buffer-list))) (if gnus-Browse-killed-mode-map nil (setq gnus-Browse-killed-mode-map (make-keymap)) (suppress-keymap gnus-Browse-killed-mode-map t) (define-key gnus-Browse-killed-mode-map " " (quote gnus-Group-next-group)) (define-key gnus-Browse-killed-mode-map "" (quote gnus-Group-prev-group)) (define-key gnus-Browse-killed-mode-map "" (quote gnus-Group-next-group)) (define-key gnus-Browse-killed-mode-map "" (quote gnus-Group-prev-group)) (define-key gnus-Browse-killed-mode-map "n" (quote gnus-Group-next-group)) (define-key gnus-Browse-killed-mode-map "p" (quote gnus-Group-prev-group)) (define-key gnus-Browse-killed-mode-map "y" (quote gnus-Browse-killed-yank)) (define-key gnus-Browse-killed-mode-map "" (quote gnus-Browse-killed-yank)) (define-key gnus-Browse-killed-mode-map "l" (quote gnus-Browse-killed-groups)) (define-key gnus-Browse-killed-mode-map "q" (quote gnus-Browse-killed-exit)) (define-key gnus-Browse-killed-mode-map "" (quote gnus-Browse-killed-exit)) (define-key gnus-Browse-killed-mode-map " " (quote gnus-Info-find-node))) (defun gnus-Browse-killed-mode nil "\ 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." (interactive) (byte-code "ÈˆÉ ˆÊÀ!ƒˉ‚&ÌÁ!<ƒ#ËÌÁ!AB‰‚&͉ˆÎ‰ˆÏ‰ˆÐ‰ˆÑ!ˆÒp!ˆÂ‰ˆÓÔ!‡" [mode-line-modified mode-line-format t major-mode mode-name mode-line-buffer-identification gnus-Browse-killed-mode-map buffer-read-only nil kill-all-local-variables boundp "--- " default-value "--- GNUS: Killed Newsgroups %[(%m)%]----%3p-%-" gnus-Browse-killed-mode "Browse-Killed" "GNUS: Killed Newsgroups" use-local-map buffer-flush-undo run-hooks gnus-Browse-killed-mode-hook] 8)) (defun gnus-Browse-killed-groups nil "\ Browse the killed newsgroups. The keys y and C-y yank the newsgroup on the current line into the Newsgroups buffer." (interactive) (byte-code "Ĉ† ÆÇ!ˆÈ !†É ‰ˆÊË !!ˆÌ ˆÄÍ ˆ …7Î @!cˆ A‰ˆ‚%ˆeb*‡" [gnus-killed-assoc gnus-Browse-killed-buffer gnus-winconf-browse-killed buffer-read-only nil killed-assoc error "No killed newsgroups" get-buffer-window current-window-configuration pop-to-buffer get-buffer-create gnus-Browse-killed-mode erase-buffer gnus-Group-prepare-line] 11)) (defun gnus-Browse-killed-yank nil "\ Yank current newsgroup to Newsgroup buffer." (interactive) (byte-code "ÂˆÇ …-ÂÈ \"É !ˆ …Ê !ˆÉ!ˆË ˆÌ`ÍÎ!ˆ`\"*)ˆÏ ‡" [group buffer-read-only nil killed gnus-killed-assoc gnus-Group-buffer gnus-Browse-killed-buffer gnus-Group-group-name assoc pop-to-buffer gnus-Group-insert-group beginning-of-line delete-region forward-line 1 gnus-Browse-killed-check-buffer] 10)) (defun gnus-Browse-killed-check-buffer nil "\ Exit if the buffer is empty by deleting the window and killing the buffer." (byte-code "?…  !… à ‡" [gnus-killed-assoc gnus-Browse-killed-buffer get-buffer gnus-Browse-killed-exit] 3)) (defun gnus-Browse-killed-exit nil "\ Exit this mode by deleting the window and killing the buffer." (interactive) (byte-code "ˆÃ!… ÄÃ!!ˆÅ!ˆ …Æ !ˆÂ‰‡" [gnus-Browse-killed-buffer gnus-winconf-browse-killed nil get-buffer-window delete-window kill-buffer set-window-configuration] 7)) (defun gnus-Group-kill-region (begin end) "\ Kill newsgroups in current region (excluding current point). The killed newsgroups can be yanked by using \\[gnus-Group-yank-group]." (interactive "r") (byte-code "ÈŠÄ bˆÅ ˆ` bˆÆ ˆ`\")S bˆÅ ˆÇ!)‡" [lines begin end nil count-lines beginning-of-line end-of-line gnus-Group-kill-group] 6)) (defun gnus-Group-kill-group (n) "\ Kill newsgroup on current line, repeated prefix argument N times. The killed newsgroups can be yanked by using \\[gnus-Group-yank-group]." (interactive "p") (byte-code "ÁˆÁÁ ÇV…IÈ ‰ˆ †ÉÊÁ\"ˆË ˆÌ`ÍÎ!ˆ`\"ˆÏ !ˆ S‰ˆÐ !…EŠ qˆÁebˆÑ @!c))ˆ‚ˆÒÓÁÆ#*‡" [buffer-read-only nil group n gnus-Browse-killed-buffer gnus-killed-assoc t 0 gnus-Group-group-name signal end-of-buffer beginning-of-line delete-region forward-line 1 gnus-kill-newsgroup get-buffer gnus-Group-prepare-line search-forward ":"] 12)) (defun gnus-Group-yank-group nil "\ Yank the last newsgroup killed with \\[gnus-Group-kill-group], inserting it before the newsgroup on the line containging point." (interactive) (byte-code "ÈÄ@!ˆÅ !… Š qˆÃebˆÆeÇÈ!ˆ`\"))ˆÉ ‡" [gnus-killed-assoc gnus-Browse-killed-buffer buffer-read-only nil gnus-Group-insert-group get-buffer delete-region forward-line 1 gnus-Browse-killed-check-buffer] 6)) (defun gnus-Group-insert-group (info) "\ Insert newsgroup at current line using gnus-newsrc-assoc INFO." (byte-code "?…ÇÈ!ˆ ?…ÇÉÊ!!ˆÃË Ì \"ˆÍ ˆÎ !cˆÏÐ!ˆÑÒÃÆ#*‡" [gnus-killed-assoc gnus-have-all-newsgroups buffer-read-only nil group info t error "No killed newsgroups" substitute-command-keys "Not all newsgroups are displayed. Type \\[gnus-Group-list-all-groups] to display all newsgroups." gnus-Group-group-name gnus-insert-newsgroup beginning-of-line gnus-Group-prepare-line forward-line -1 search-forward ":"] 12)) (defun gnus-gmt-to-local nil "\ 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." (byte-code "ŠŒÅ ˆebˆÆeÇÈÀÉ#ˆ`\"ˆebˆÊËÀÁ#…9ÀÌÍÎ!ÏÎ!\"ÐÍÎ!ÏÎ!\"ˆÑ À #c*))‡" [nil t buffer-read-only date gnus-local-timezone widen narrow-to-region search-forward " " move re-search-forward "^Date:[ ]\\(.*\\)$" buffer-substring match-beginning 1 match-end delete-region timezone-make-date-arpa-standard] 14))