Takes a string and goes to that news group." (interactive (byte-code "┴┬\"Cç" [news-group-article-assoc completing-read "NewsGroup: "] 3)) (byte-code "┬ê├─ \"ê┼ !ê├╞ \"ç" [news-group-article-assoc gp nil message "Jumping to news group %s..." news-select-news-group "Jumping to news group %s... done."] 5))
(defun news-select-news-group (gp) (byte-code "╟
\"?â ╚╔ \"é& ╩╟
\"A@A@A\"ê╦@╞\"ê╠ )ç" [grp gp news-group-article-assoc news-startup-file news-current-news-group news-point-pdl nil assoc error "Group not subscribed to in file %s." setcar news-read-files-into-buffer news-set-mode-line] 7))
(defun news-goto-message (arg) "\
Goes to the article ARG in current newsgroup." (interactive "p") (byte-code "┬ê?à ├─┼\"ëê╞ !ç" [current-prefix-arg arg nil read-no-blanks-input "Go to article: " "" news-select-message] 3))
updates the position of last article read in the current news group" (interactive) (byte-code "┬ê├@ \"ê─┼ \"ç" [news-point-pdl news-current-message-number nil setcdr message "Updated to %d"] 4))
(defun news-next-message (arg) "\
Move ARG messages forward within one newsgroup.
Negative ARG moves backward.
If ARG is 1 or -1, moves to next or previous newsgroup if at end." (interactive "p") (byte-code "Ȉ
\\ Wå Vâ1 ╔Uâ ╩ ê╦ é. ╠Uâ+ ═ é. ╬╧!éT ╨
\" ╤WâK ╥ [SA@8!éS ╥ S@8!))ç" [no arg news-current-message-number news-current-group-begin news-current-group-end t plist news-list-of-files nil 1 news-set-current-group-certification news-next-group -1 news-previous-group error "Article out of range" news-get-motion-lists 0 news-select-message] 9))
(defun news-previous-message (arg) "\
Move ARG messages backward in current newsgroup.
With no arg or arg of 1, move one message
and move to previous newsgroup if at beginning.
A negative ARG means move forward." (interactive "p") (byte-code "┴ê┬[!ç" [arg nil news-next-message] 2))
(defun news-move-to-group (arg) "\
Given arg move forward or backward to a new newsgroup." (byte-code " ╞ \"╟ ╚Wâ! [S
A@8ëå ╔╩!é-
@8ëå- ╔╦!ê╠ !*)ç" [cg news-current-news-group plist news-user-group-list ngrp arg news-get-motion-lists nil 0 error "No previous news groups" "No more news groups" news-select-news-group] 5))
(defun news-next-group nil "\
Moves to the next user group." (interactive) (byte-code "┴ê┬├!ê?à ┬├!êé ç" [news-list-of-files nil news-move-to-group 0] 4))
(defun news-previous-group nil "\
Moves to the previous user group." (interactive) (byte-code "┴ê┬├!ê?à ┬├!êé ç" [news-list-of-files nil news-move-to-group -1] 4))
(defun news-get-motion-lists (arg listy) "\
Given a msgnumber/group this will return a list of two lists;
one for moving forward and one for moving backward." (byte-code " ├─┼ì*ç" [temp listy result nil out (byte-code "à( ├@ \"â ─┼A
CB\"é$ ╞@C
\"ëêAëêé ç" [temp arg result equal throw out nconc] 6)] 2))
Removes you from newgroup GROUP." (interactive (byte-code "┴┬\"Cç" [news-group-article-assoc completing-read "Unsubscribe from group: "] 3)) (byte-code "┬ê├ !ç" [news-group-article-assoc group nil news-unsubscribe-internal] 2))
(defun news-unsubscribe-current-group nil "\
Removes you from the newsgroup you are now reading." (interactive) (byte-code "┴ê┬├!à ─!ç" [news-current-news-group nil y-or-n-p "Do you really want to unsubscribe from this group ? " news-unsubscribe-internal] 3))
Save the current article that is being read by appending to a file." (interactive "FSave item in file: ") (byte-code "┴ê┬ed#ç" [file nil append-to-file] 4))
Resubscribe to or add a USENET news group named GROUP (a string)." (interactive "sAdd news group: ") (byte-code "╞ê ═╬╧
#Pè╨
\"?â╖ ╤╥!! ╙!â» ╘ !ê╒bê╓
╫P╞╟#âB ╪┘
\"ê┌█!ê▄▌!ê▐céN ╪▀
\"êα êß
Γ\"êπ
╞╟#ê╞╞╞╞
╓Σ╞╟#ê`ë êσ ê`ëêµ ê`ë
êτ █Z\"ë êΦτ
\"! @ A AED Bë),êΘ êΩp!é│ ╪δ
\")é╗ ╪∞
\"))ç" [file-dir news-path gp news-group-article-assoc newsrcbuf news-startup-file nil t start end endofline tem range string-subst-char 47 46 assoc find-file-noselect substitute-in-file-name file-directory-p switch-to-buffer 0 search-forward "! " message "Re-subscribing to group %s." backward-char 2 delete-char 1 ":" "Added %s to your list of newsgroups." end-of-buffer insert ": 1-1
" search-backward ": " beginning-of-line end-of-line buffer-substring news-parse-range save-buffer kill-buffer "Newsgroup %s doesn't exist." "Already subscribed to group %s."] 26))
Forges a link to an rnews message numbered number (current if no arg)
Good for hanging on to a message that might or might not be
automatically deleted." (interactive "P
FName to link to message: ") (byte-code "┼ê╞╟╚╔ #╩
â ╦
!é R \"ç" [news-path news-current-news-group number news-current-message-number newname nil add-name-to-file string-subst-char 47 46 "/" prefix-numeric-value] 7))
(defun caesar-region (&optional n) "\
Caesar rotation of region by N, default 13, for decrypting netnews." (interactive (byte-code "â ┬!Cé ┴Cç" [current-prefix-arg nil prefix-numeric-value] 2)) (byte-code "┴ê╠
