Parse string representing range of numbers of he form <a>-<b>
to a list (a . b)" (byte-code "´ˆ \"˜ ¯O!˜ T˘O!BÁ#˜ !ÉÈB)Ç" [n number-string string-match "-" string-to-int 0 nil] 7))
(defun news-get-new-news nil "\
Get new USENET news, if there is any for the current user." (interactive) (byte-code "´È??Ä
˛ È´ÉÈ´ÉÈˇ—\"ȱ!´Ê¼!´´´´
qȽbȾസ#ÄÕ`ÉÈá È`ÉÈâ È`É ÈãäZ\"É
Èåã \"!ç
\"Âzˇè
\"ÁÐ
B
@AAED BÉ)ÈÁ7Èé!-)Èê!ÉÈˇë!Èì!ÈÉÈÄ”Æ@´\"?įAÉÈÁ®È?±ˇí!Á¾ˇª!*Ç" [news-user-group-list news-group-article-assoc nil news-startup-file file temp-user-groups newsrcbuf start end endofline tem t range news-buffer news-update-newsrc-file message "Looking up %s file..." substitute-in-file-name find-file-noselect 0 search-forward ": " beginning-of-line end-of-line buffer-substring 2 news-parse-range assoc "You are subscribed twice to %s; I ignore second" kill-buffer nreverse "Prefrobnicating..." switch-to-buffer news-read-files-into-buffer "No news is good news." ""] 20))
(defun news-list-news-groups nil "\
Display all the news groups to which you belong." (interactive) (byte-code "˜È˙ÐÊqȨcȲcÈ
˜ ÄM˚ @\"@cÈÂ)¸Á*³jÈ˝A@A@!cÈÂ>˛cÁ@ˇjÈ A?É)ÈÁ*)ÑÇ" [standard-output temp news-user-group-list flag nil item news-group-article-assoc "*Newsgroups*" "News Group Msg No. News Group Msg No.
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Ê—
\"?•±¼!!½!Âfl¾!ÈàbÈá
âP˘˙#ÂBãä
\"Èåç!Èèé!ÈêcÁNãë
\"Èì ÈÆ
í\"Ȫ
˘˙#È˘˘˘˘
áî˘˙#È`É Èï È`ÉÈð È`É
Èñ çZ\"ÉÈŁñ
\"!@AAEDBÉ),ÈØ ÈŒ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))
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 "ˋȳ
!?½ÉÁ'
˛WÂ!ˇ—
[ˇ\"ZÉÁ'—
ˇ\"Éȱ
!?Äö¼˜!?Å>½¾H¾
\\\"Ä⁄˛àˋáâ!Èãä˛\"ÉÈäWÄgIÈTÉÈÁTÈPå!˛ÉÈˇWÄ÷¾\\
\\HIÈç\\
\\HIÈTÉÈÁyÈáè!+Èé ê ˛ˋˋ
ë \"É
È
GÉÈWÄì
HHIÈTÉÈÁ˘ÈbÈì \"È
c-Ç" [current-prefix-arg nil n t caesar-translate-table i lower upper from to str len numberp 13 0 26 % zerop boundp /= 97 "abcdefghijklmnopqrstuvwxyz" message "Building caesar-translate-table..." make-vector 256 upcase 65 "Building caesar-translate-table... done" region-beginning region-end buffer-substring kill-region] 19))
Caesar rotates all letters in the current buffer by 13 places.
Used to encode/decode possibly offensive messages (commonly in net.jokes).
With prefix arg, specifies the number of places to rotate each letter forward.
Mail and USENET news headers are not rotated." (interactive (byte-code "´!CÁˋCÇ" [current-prefix-arg nil prefix-numeric-value] 2)) (byte-code "ˋÈÊˋÉȨebȲ˚¸³\"½Á˚Qˋ˘#Â'`Á(e!ÈdbÈ˛!È