| blob | ed34f87e5e5e51db206982e2eebe70137f34d034 |
1 ;;; GNUS: an NNTP-based News Reader for GNU Emacs
2 ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc.
4 ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp>
5 ;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.33 1994/02/11 21:56:45 kwzh Exp kwzh $
6 ;; Keywords: news
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
24 ;;; Commentary:
26 ;; How to Install GNUS:
27 ;; (0) First of all, remove GNUS related OLD *.elc files (at least
28 ;; nntp.elc).
29 ;; (1) Unshar gnus.el, gnuspost.el, gnusmail.el, gnusmisc.el, and
30 ;; nntp.el.
31 ;; (2) byte-compile-file nntp.el, gnus.el, gnuspost.el, gnusmail.el,
32 ;; and gnusmisc.el. If you have a local news spool,
33 ;; byte-compile-file nnspool.el, too.
34 ;; (3) Define three environment variables in .login file as follows:
35 ;;
36 ;; setenv NNTPSERVER flab
37 ;; setenv DOMAINNAME "stars.flab.Fujitsu.CO.JP"
38 ;; setenv ORGANIZATION "Fujitsu Laboratories Ltd., Kawasaki, Japan."
39 ;;
40 ;; Or instead, define lisp variables in your .emacs, site-init.el,
41 ;; or default.el as follows:
42 ;;
43 ;; (setq gnus-nntp-server "flab")
44 ;; (setq gnus-local-domain "stars.flab.Fujitsu.CO.JP")
45 ;; (setq gnus-local-organization "Fujitsu Laboratories Ltd., ...")
46 ;;
47 ;; If the function (system-name) returns the full internet name,
48 ;; you don't have to define the domain.
49 ;;
50 ;; (4) You may have to define NNTP service name as number 119.
51 ;;
52 ;; (setq gnus-nntp-service 119)
53 ;;
54 ;; Or, if you'd like to use a local news spool directly in stead
55 ;; of NNTP, install nnspool.el and set the variable to nil as
56 ;; follows:
57 ;;
58 ;; (setq gnus-nntp-service nil)
59 ;;
60 ;; (5) If you'd like to use the GENERICFROM feature like the Bnews,
61 ;; define the variable as follows:
62 ;;
63 ;; (setq gnus-use-generic-from t)
64 ;;
65 ;; (6) Define autoload entries in .emacs file as follows:
66 ;;
67 ;; (autoload 'gnus "gnus" "Read network news." t)
68 ;; (autoload 'gnus-post-news "gnuspost" "Post a news." t)
69 ;;
70 ;; (7) Read nntp.el if you have problems with NNTP or kanji handling.
71 ;;
72 ;; (8) Install mhspool.el, tcp.el, and tcp.c if it is necessary.
73 ;;
74 ;; mhspool.el is a package for reading articles or mail in your
75 ;; private directory using GNUS.
76 ;;
77 ;; tcp.el and tcp.c are necessary if and only if your Emacs does
78 ;; not have the function `open-network-stream' which is used for
79 ;; communicating with NNTP server inside Emacs.
80 ;;
81 ;; (9) Install an Info file generated from the texinfo manual gnus.texinfo.
82 ;;
83 ;; If you are not allowed to create the Info file to the standard
84 ;; Info-directory, create it in your private directory and set the
85 ;; variable gnus-info-directory to that directory.
86 ;;
87 ;; For getting more information about GNUS, consult USENET newsgorup
88 ;; gnu.emacs.gnus.
90 ;; TO DO:
91 ;; (1) Incremental update of active info.
92 ;; (2) Asynchronous transmission of large messages.
94 ;;; Code:
101 "*Specify default NNTP server.
105 "*The name of the host running NNTP server.
106 If it is a string such as `:DIRECTORY', the user's private DIRECTORY
107 is used as a news spool.
121 "*Specifies what to do with cross references (Xref: field).
122 If nil, ignore cross references. If t, mark articles as read in
123 subscribed newsgroups. Otherwise, if not nil nor t, mark articles as
127 "*Specifies what to do with Followup-To: field.
128 If nil, ignore followup-to: field. If t, use its value except for
132 "*The number of articles which indicates a large newsgroup.
133 If the number of articles in a newsgroup is greater than the value,
137 "*File name saving a copy of an article posted using FCC: field.
138 Initialized from the AUTHORCOPY environment variable.
140 Articles are saved using a function specified by the the variable
141 `gnus-author-copy-saver' (`rmail-output' is default) if a file name is
142 given. Instead, if the first character of the name is `|', the
143 contents of the article is piped out to the named program. It is
144 possible to save an article in an MH folder as follows:
149 "*A function called with a file name to save an author copy to.
154 "*Non-nil means that a newsgroup name is used as a default file name
155 to save articles to. If it's nil, the directory form of a newsgroup is
159 "*A directory name to save articles to (default to ~/News).
163 "*A function to save articles in your favorite format.
164 The function must be interactively callable (in other words, it must
165 be an Emacs command).
167 GNUS provides the following functions:
168 gnus-summary-save-in-rmail (in Rmail format)
169 gnus-summary-save-in-mail (in Unix mail format)
170 gnus-summary-save-in-folder (in an MH folder)
174 "*A function generating a file name to save articles in Rmail format.
178 "*A function generating a file name to save articles in Unix mail format.
182 "*A function generating a file name to save articles in MH folder.
186 "*A function generating a file name to save articles in article format.
193 "*Non-nil means that you are a novice to USENET.
194 If non-nil, verbose messages may be displayed
207 "*The login name of the user.
211 "*The full name of the user.
224 "*Non-nil means hide thread subtrees initially.
225 If non-nil, you have to run the command `gnus-summary-show-thread' by
232 "*Don't take care of subject differences, but only references if non-nil.
239 "*A regexp to match uninteresting newsgroups in the active file.
240 Any lines in the active file matching this regular expression are
241 removed from the newsgroup list before anything else is done to it,
245 "^Path:\\|^Posting-Version:\\|^Article-I.D.:\\|^Expires:\\|^Date-Received:\\|^References:\\|^Control:\\|^Xref:\\|^Lines:\\|^Posted:\\|^Relay-Version:\\|^Message-ID:\\|^Nf-ID:\\|^Nf-From:\\|^Approved:\\|^Sender:"
250 "*All required fields for articles you post.
251 RFC977 and RFC1036 require From, Date, Newsgroups, Subject, Message-ID
252 and Path fields. Organization, Distribution and Lines are optional.
253 If you want GNUS not to insert some field, remove it from the
263 "*A function generating a optional string displayed in GNUS Summary
264 mode buffer. The function is called with an article HEADER. The
271 "*Select the first unread article automagically if non-nil.
272 If you want to prevent automatic selection of the first unread article
273 in some newsgroups, set the variable to nil in `gnus-select-group-hook'
277 "*Select the next newsgroup automagically if non-nil.
278 If the value is t and the next newsgroup is empty, GNUS will exit
279 Summary mode and go back to Group mode. If the value is neither nil
280 nor t, GNUS will select the following unread newsgroup. Especially, if
281 the value is the symbol `quietly', the next unread newsgroup will be
291 "*Insert `To: author' of the article when following up if non-nil.
292 Mail is sent using the function specified by the variable
296 "*Break an article into pages if non-nil.
315 "*Specify window configurations for each action.
316 The format of the variable is a list of (ACTION (G S A)), where G, S,
317 and A are the relative height of Group, Summary, and Article windows,
321 "*Function to process a MIME message.
326 "*Function to compose reply mail.
327 The function `gnus-mail-reply-using-mail' uses usual sendmail mail
328 program. The function `gnus-mail-reply-using-mhe' uses the MH-E mail
333 "*Function to forward current message to another user.
334 The function `gnus-mail-reply-using-mail' uses usual sendmail mail
339 "*Function to compose mail in other window.
340 The function `gnus-mail-other-window-using-mail' uses the usual sendmail
341 mail program. The function `gnus-mail-other-window-using-mhe' uses the MH-E
345 "*Function to mail a message too which is being posted as an article.
346 The message must have To: or Cc: field. The default is copied from
351 "*Function called with a newsgroup name when new newsgroup is found.
352 The function `gnus-subscribe-randomly' inserts a new newsgroup a the
353 beginning of newsgroups. The function `gnus-subscribe-alphabetically'
354 inserts it in strict alphabetic order. The function
355 `gnus-subscribe-hierarchically' inserts it in hierarchical newsgroup
374 "*A hook called at start up time.
375 This hook is called after GNUS is connected to the NNTP server. So, it
376 is possible to change the behavior of GNUS according to the selected
380 "*A hook called after newsgroup list is created in the Newsgroup buffer.
384 "*A hook called after summary list is created in the Summary buffer.
388 "*A hook called after an article is prepared in the Article buffer.
392 "*A hook called when a newsgroup is selected.
393 If you want to sort Summary buffer by date and then by subject, you
394 can use the following hook:
396 \(setq gnus-select-group-hook
397 (list
398 (function
399 (lambda ()
400 ;; First of all, sort by date.
401 (gnus-keysort-headers
402 (function string-lessp)
403 (function
404 (lambda (a)
405 (gnus-sortable-date (gnus-header-date a)))))
406 ;; Then sort by subject string ignoring `Re:'.
407 ;; If case-fold-search is non-nil, case of letters is ignored.
408 (gnus-keysort-headers
409 (function string-lessp)
410 (function
411 (lambda (a)
412 (if case-fold-search
413 (downcase (gnus-simplify-subject (gnus-header-subject a) t))
414 (gnus-simplify-subject (gnus-header-subject a) t)))))
415 ))))
417 If you'd like to simplify subjects like the
418 `gnus-summary-next-same-subject' command does, you can use the
419 following hook:
421 \(setq gnus-select-group-hook
422 (list
423 (function
424 (lambda ()
425 (mapcar (function
426 (lambda (header)
427 (nntp-set-header-subject
428 header
429 (gnus-simplify-subject
430 (gnus-header-subject header) 're-only))))
431 gnus-newsgroup-headers)))))
433 In some newsgroups author name is meaningless. It is possible to
434 prevent listing author names in GNUS Summary buffer as follows:
436 \(setq gnus-select-group-hook
437 (list
438 (function
439 (lambda ()
441 (setq gnus-optional-headers
442 (function gnus-optional-lines)))
443 (t
444 (setq gnus-optional-headers
449 "*A hook called when an article is selected.
450 The default hook shows conversation thread subtrees of the selected
451 article automatically using `gnus-summary-show-thread'.
453 If you'd like to run RMAIL on a digest article automagically, you can
454 use the following hook:
456 \(setq gnus-select-article-hook
457 (list
458 (function
459 (lambda ()
460 (gnus-summary-show-thread)
462 (gnus-summary-rmail-digest))
465 (gnus-header-subject gnus-current-headers)))
466 (gnus-summary-rmail-digest)
473 ;; Reply-To: is required by `undigestify-rmail-message'.
478 "*A hook called when reading digest messages using Rmail.
479 This hook can be used to modify incomplete digest articles as follows
480 \(this is the default):
482 \(setq gnus-select-digest-hook
483 (list
484 (function
485 (lambda ()
486 ;; Reply-To: is required by `undigestify-rmail-message'.
488 (progn
493 "*A hook called when reading digest messages using Rmail.
497 "*A hook called when a newsgroup is selected and summary list is prepared.
498 This hook is intended to apply a KILL file to the selected newsgroup.
499 The function `gnus-apply-kill-file' is called by default.
501 Since a general KILL file is too heavy to use only for a few
502 newsgroups, I recommend you to use a lighter hook function. For
503 example, if you'd like to apply a KILL file to articles which contains
504 a string `rmgroup' in subject in newsgroup `control', you can use the
505 following hook:
507 \(setq gnus-apply-kill-hook
508 (list
509 (function
510 (lambda ()
522 "*A hook called when an article is selected at the first time.
523 The hook is intended to mark an article as read (or unread)
524 automatically when it is selected.
526 If you'd like to mark as unread (-) instead, use the following hook:
528 \(setq gnus-mark-article-hook
529 (list
530 (function
531 (lambda ()
532 (gnus-summary-mark-as-unread gnus-current-article)
536 "*A hook called after preparing body, but before preparing header fields.
537 The default hook (`gnus-inews-insert-signature') inserts a signature
541 "*A hook called before finally posting an article.
542 The default hook (`gnus-inews-do-fcc') does FCC processing (save article
546 "*A hook called when exiting (not quitting) Summary mode.
547 If your machine is so slow that exiting from Summary mode takes very
548 long time, set the variable `gnus-use-cross-reference' to nil. This
558 "*A hook called when saving the newsrc file.
561 \f
562 ;; Site dependent variables. You have to define these variables in
563 ;; site-init.el, default.el or your .emacs.
566 "*Local time zone.
567 This value is used only if `current-time-zone' does not work in your Emacs.
568 It specifies the GMT offset, i.e. a decimal integer
569 of the form +-HHMM giving the hours and minutes ahead of (i.e. east of) GMT.
570 For example, +0900 should be used in Japan, since it is 9 hours ahead of GMT.
577 The `DOMAINNAME' environment variable is used instead if defined. If
578 the function (system-name) returns the full internet name, there is no
586 "*List of distributions.
587 The first element in the list is used as default. If distributions
591 "*If nil, prepend local host name to the defined domain in the From:
595 "*If nil, use the NNTP server name in the Path: field; if stringp,
597 \f
598 ;; Internal variables.
618 ;; Alist syntax is different from that of 3.14.3.
666 gnus-digest-buffer gnus-digest-summary-buffer)
671 gnus-newsrc-options-n-yes gnus-newsrc-options-n-no
672 gnus-newsrc-assoc gnus-killed-assoc gnus-marked-assoc)
678 "Functions overloaded by gnus.
693 "Assoc list of read articles.
700 "Assoc list of newsgroups removed from gnus-newsrc-assoc.
707 "Assoc list of articles marked as unread.
751 "List of article headers in the current newsgroup.
752 If the variable is modified (added or deleted), the function
753 gnus-clear-hashtables-for-newsgroup-headers must be called to clear
765 ;; Save window configuration.
776 ;; Define GNUS Subsystems.
826 \f
827 ;;(put 'gnus-eval-in-buffer-window 'lisp-indent-hook 1)
830 "Pop to BUFFER, evaluate FORMS, and then returns to original window."
839 "Make a hash table (default and minimum size is 200).
840 Optional argument HASHSIZE specifies the table size."
844 "Get hash value of STRING in HASHTABLE."
845 ;;(` (symbol-value (abbrev-symbol (, string) (, hashtable))))
846 ;;(` (abbrev-expansion (, string) (, hashtable)))
850 "Set hash value. Arguments are STRING, VALUE, and HASHTABLE."
851 ;; We cannot use define-abbrev since it only accepts string as value.
854 ;; Note: Macros defined here are also defined in nntp.el. I don't like
855 ;; to put them here, but many users got troubled with the old
856 ;; definitions in nntp.elc. These codes are NNTP 3.10 version.
859 "Return article number in HEADER."
863 "Set article number of HEADER to NUMBER."
867 "Return subject string in HEADER."
871 "Set article subject of HEADER to SUBJECT."
875 "Return author string in HEADER."
879 "Set article author of HEADER to FROM."
883 "Return xref string in HEADER."
887 "Set article xref of HEADER to xref."
891 "Return lines in HEADER."
895 "Set article lines of HEADER to LINES."
899 "Return date in HEADER."
903 "Set article date of HEADER to DATE."
907 "Return Id in HEADER."
911 "Set article Id of HEADER to ID."
915 "Return references in HEADER."
919 "Set article references of HEADER to REF."
922 \f
923 ;;;
924 ;;; GNUS Group Mode
925 ;;;
928 nil
942 ;;(define-key gnus-group-mode-map "/" 'isearch-forward)
964 ;;(define-key gnus-group-mode-map "x" 'gnus-group-force-update)
973 "Major mode for reading network news.
974 All normal editing commands are turned off.
975 Instead, these commands are available:
977 SPC Read articles in this newsgroup.
978 = Select this newsgroup.
979 j Move to the specified newsgroup.
980 n Move to the next unread newsgroup.
981 p Move to the previous unread newsgroup.
982 C-n Move to the next newsgroup.
983 C-p Move to the previous newsgroup.
984 < Move point to the beginning of this buffer.
985 > Move point to the end of this buffer.
986 u Unsubscribe from (subscribe to) this newsgroup.
987 U Unsubscribe from (subscribe to) the specified newsgroup.
988 c Mark all articles as read, preserving marked articles.
989 C Mark all articles in this newsgroup as read.
990 l Revert this buffer.
991 L List all newsgroups.
992 g Get new news.
993 R Force to read the raw .newsrc file and get new news.
994 b Check bogus newsgroups.
995 r Restrict visible newsgroups to the current region.
996 a Post a new article.
997 ESC k Edit a local KILL file applied to this newsgroup.
998 ESC K Edit a global KILL file applied to all newsgroups.
999 C-k Kill this newsgroup.
1000 C-y Yank killed newsgroup here.
1001 C-w Kill newsgroups in current region (excluding current point).
1002 C-x C-t Exchange this newsgroup and previous newsgroup.
1003 C-c C-l list killed newsgroups.
1004 s Save .newsrc file.
1005 z Suspend reading news.
1006 q Quit reading news.
1007 Q Quit reading news without saving .newsrc file.
1008 V Show the version number of this GNUS.
1009 ? Describe Group Mode commands briefly.
1010 C-h m Describe Group Mode.
1011 C-c C-i Read Info about Group Mode.
1013 The name of the host running NNTP server is asked for if no default
1014 host is specified. It is also possible to choose another NNTP server
1015 even when the default server is defined by giving a prefix argument to
1018 If an NNTP server is preceded by a colon such as `:Mail', the user's
1019 private directory `~/Mail' is used as a news spool. This makes it
1020 possible to read mail stored in MH folders or articles saved by GNUS.
1021 File names of mail or articles must consist of only numeric
1022 characters. Otherwise, they are ignored.
1024 If there is a file named `~/.newsrc-SERVER', it is used as the
1025 startup file instead of standard one when talking to SERVER. It is
1026 possible to talk to many hosts by using different startup files for
1027 each.
1029 Option `-n' of the options line in the startup file is recognized
1030 properly the same as the Bnews system. For example, if the options
1031 line is `options -n !talk talk.rumors', newsgroups under the `talk'
1032 hierarchy except for `talk.rumors' are ignored while checking new
1033 newsgroups.
1035 If there is a file named `~/.signature-DISTRIBUTION', it is used as
1036 signature file instead of standard one when posting a news in
1037 DISTRIBUTION.
1039 If an Info file generated from `gnus.texinfo' is installed, you can
1040 read an appropriate Info node of the Info file according to the
1043 The variable `gnus-version', `nntp-version', `nnspool-version', and
1044 `mhspool-version' have the version numbers of this version of gnus.el,
1045 nntp.el, nnspool.el, and mhspoo.el, respectively.
1047 User customizable variables:
1048 gnus-nntp-server
1049 Specifies the name of the host running the NNTP server. If its
1050 value is a string such as `:DIRECTORY', the user's private
1051 DIRECTORY is used as a news spool. The variable is initialized
1052 from the NNTPSERVER environment variable.
1054 gnus-nntp-service
1056 Nil forces GNUS to use a local news spool if the variable
1057 `gnus-nntp-server' is set to the local host name.
1059 gnus-startup-file
1060 Specifies a startup file (.newsrc). If there is a file named
1061 `.newsrc-SERVER', it's used instead when talking to SERVER. I
1062 recommend you to use the server specific file, if you'd like to
1063 talk to many servers. Especially if you'd like to read your
1064 private directory, the name of the file must be
1065 `.newsrc-:DIRECTORY'.
1067 gnus-signature-file
1068 Specifies a signature file (.signature). If there is a file named
1069 `.signature-DISTRIBUTION', it's used instead when posting an
1070 article in DISTRIBUTION. Set the variable to nil to prevent
1071 appending the file automatically. If you use an NNTP inews which
1072 comes with the NNTP package, you may have to set the variable to
1073 nil.
1075 gnus-use-cross-reference
1076 Specifies what to do with cross references (Xref: field). If it
1077 is nil, cross references are ignored. If it is t, articles in
1078 subscribed newsgroups are only marked as read. Otherwise, if it
1079 is not nil nor t, articles in all newsgroups are marked as read.
1081 gnus-use-followup-to
1082 Specifies what to do with followup-to: field. If it is nil, its
1083 value is ignored. If it is non-nil, its value is used as followup
1084 newsgroups. Especially, if it is t and field value is `poster',
1085 your confirmation is required.
1087 gnus-author-copy
1088 Specifies a file name to save a copy of article you posted using
1089 FCC: field. If the first character of the value is `|', the
1090 contents of the article is piped out to a program specified by the
1091 rest of the value. The variable is initialized from the
1092 AUTHORCOPY environment variable.
1094 gnus-author-copy-saver
1095 Specifies a function to save an author copy. The function is
1096 called with a file name. The default function `rmail-output'
1097 saves in Unix mail format.
1099 gnus-kill-file-name
1100 Use specified file name as a KILL file (default to `KILL').
1102 gnus-novice-user
1103 Non-nil means that you are a novice to USENET. If non-nil,
1104 verbose messages may be displayed or your confirmations may be
1105 required.
1107 gnus-interactive-post
1108 Non-nil means that newsgroup, subject and distribution are asked
1109 for interactively when posting a new article.
1111 gnus-use-full-window
1112 Non-nil means to take up the entire screen of Emacs.
1114 gnus-window-configuration
1115 Specifies the configuration of Group, Summary, and Article
1116 windows. It is a list of (ACTION (G S A)), where G, S, and A are
1117 the relative height of Group, Summary, and Article windows,
1118 respectively. ACTION is `summary', `newsgroups', or `article'.
1120 gnus-subscribe-newsgroup-method
1121 Specifies a function called with a newsgroup name when new
1122 newsgroup is found. The default definition adds new newsgroup at
1123 the beginning of other newsgroups.
1125 And more and more. Please refer to texinfo documentation.
1127 Various hooks for customization:
1128 gnus-group-mode-hook
1129 Entry to this mode calls the value with no arguments, if that
1130 value is non-nil. This hook is called before GNUS is connected to
1131 the NNTP server. So, you can change or define the NNTP server in
1132 this hook.
1134 gnus-startup-hook
1135 Called with no arguments after the NNTP server is selected. It is
1136 possible to change the behavior of GNUS or initialize the
1137 variables according to the selected NNTP server.
1139 gnus-group-prepare-hook
1140 Called with no arguments after a newsgroup list is created in the
1141 Newsgroup buffer, if that value is non-nil.
1143 gnus-save-newsrc-hook
1144 Called with no arguments when saving newsrc file if that value is
1145 non-nil.
1147 gnus-prepare-article-hook
1148 Called with no arguments after preparing message body, but before
1149 preparing header fields which is automatically generated if that
1150 value is non-nil. The default hook (gnus-inews-insert-signature)
1151 inserts a signature file.
1153 gnus-inews-article-hook
1154 Called with no arguments when posting an article if that value is
1155 non-nil. This hook is called just before posting an article. The
1156 default hook does FCC (save an article to the specified file).
1158 gnus-suspend-gnus-hook
1159 Called with no arguments when suspending (not exiting) GNUS, if
1160 that value is non-nil.
1162 gnus-exit-gnus-hook
1163 Called with no arguments when exiting (not suspending) GNUS, if
1164 that value is non-nil."
1167 ;; Gee. Why don't you upgrade?
1185 ;;;###autoload
1187 "Read network news.
1188 If optional argument CONFIRM is non-nil, ask NNTP server."
1197 ;; NNTP server is successfully open.
1208 )))
1211 "Insert startup message in current buffer."
1212 ;; Insert the message.
1215 %s
1217 NNTP-based News Reader for GNU Emacs
1220 If you have any trouble with this software, please let me
1221 know. I will fix your problems in the next release.
1223 Comments, suggestions, and bug fixes are welcome.
1225 Masanobu UMEDA
1227 ;; And then hack it.
1228 ;; 57 is the longest line.
1231 ;; +4 is fuzzy factor.
1235 "List newsgroups in the Newsgroup buffer.
1236 If argument SHOW-ALL is non-nil, unsubscribed groups are also listed."
1253 ;; Go to last newsgroup if possible. If cannot, try next and
1254 ;; previous. If all fail, go to first unread newsgroup.
1263 ;; Adjust cursor point.
1266 )))
1269 "Prepare list of newsgroups in current buffer.
1270 If optional argument ALL is non-nil, unsubscribed groups are also listed."
1276 ;; This specifies the format of Group buffer.
1279 ;; List newsgroups.
1287 ;; Yes, I can use gnus-group-prepare-line, but this is faster.
1290 ;; Subscribed or not.
1292 ;; Has new news?
1298 gnus-marked-hashtb))))))
1300 ;; Number of unread articles.
1301 unread-count
1302 ;; Newsgroup name.
1303 group-name))
1304 )
1306 )
1310 ))
1313 "Return a string for the Newsgroup buffer from INFO.
1314 INFO is an element of gnus-newsrc-assoc or gnus-killed-assoc."
1318 ;; Not in hash table, so compute it now.
1323 ;; This specifies the format of Group buffer.
1326 ;; Subscribed or not.
1328 ;; Has new news?
1334 gnus-marked-hashtb))))))
1336 ;; Number of unread articles.
1337 unread-count
1338 ;; Newsgroup name.
1339 group-name
1340 )))
1343 "Update newsgroup info of GROUP.
1344 If optional argument VISIBLE-ONLY is non-nil, non displayed group is ignored."
1349 ;; Buffer may be narrowed.
1352 ;; Search a line to modify. If the buffer is large, the search
1353 ;; takes long time. In most cases, current point is on the line
1354 ;; we are looking for. So, first of all, check current line.
1355 ;; And then if current point is in the first half, search from
1356 ;; the beginning. Otherwise, search from the end.
1367 ;; GROUP is listed in current buffer. So, delete old line.
1372 )
1373 ;; No such line in the buffer, so insert it at the top.
1380 ))
1381 )))
1384 "Get newsgroup name around point."
1389 )))
1392 "Return regexp that matches for a line of NEWSGROUP."
1396 "Search for the next (or previous) newsgroup.
1397 If 1st argument BACKWARD is non-nil, search backward instead.
1398 If 2nd argument NOREST is non-nil, don't care about newsgroup property.
1399 If optional argument HERETOO is non-nil, current line is searched for, too."
1417 ;; Adjust cursor point.
1420 ;; Return T if found.
1421 found
1422 ))
1424 ;; GNUS Group mode command
1427 "Read news in this newsgroup.
1428 If argument ALL is non-nil, already read articles become readable.
1429 If optional argument NO-ARTICLE is non-nil, no article body is displayed."
1434 group
1436 ;;(not (nth 1 (gnus-gethash group gnus-newsrc-hashtb))) ;Unsubscribed
1439 no-article
1440 ))
1441 ))
1444 "Select this newsgroup.
1445 No article is selected automatically.
1446 If argument ALL is non-nil, already read articles become readable."
1451 "Jump to newsgroup GROUP."
1458 ;; Add GROUP entry, then seach again.
1460 ;; Adjust cursor point.
1463 ))
1466 "Go to next N'th newsgroup."
1475 "Go to next N'th unread newsgroup."
1484 "Go to previous N'th newsgroup."
1493 "Go to previous N'th unread newsgroup."
1502 "Mark all articles not marked as unread in current newsgroup as read.
1503 If prefix argument ALL is non-nil, all articles are marked as read.
1504 Cross references (Xref: field) of articles are ignored."
1513 "Do you really want to mark everything as read? "
1517 ;; Any marked articles will be preserved.
1521 ))
1524 "Mark all articles in current newsgroup as read.
1525 Cross references (Xref: field) of articles are ignored."
1530 "Toggle subscribe from/to unsubscribe current group."
1536 "Toggle subscribe from/to unsubscribe GROUP.
1537 New newsgroup is added to .newsrc automatically."
1543 ;; Toggle subscription flag.
1547 ;; Adjust cursor point.
1552 ;; Add new newsgroup.
1555 ;; Adjust cursor point.
1559 ))
1562 "List all of newsgroups in the Newsgroup buffer."
1569 "Get newly arrived articles. In fact, read the active file again."
1575 "Force GNUS to read the raw startup file."
1582 "Check bogus newsgroups."
1588 "Restrict visible newsgroups to the current region (START and END).
1603 "Edit a global KILL file."
1612 "Edit a local KILL file."
1621 "Update .newsrc file."
1626 "Suspend the current GNUS session.
1627 In fact, cleanup buffers except for Group Mode buffer.
1628 The hook gnus-suspend-gnus-hook is called before actually suspending."
1631 ;; Kill GNUS buffers except for Group Mode buffer.
1638 ))
1642 "Quit reading news after updating .newsrc.
1643 The hook gnus-exit-gnus-hook is called before actually quitting."
1656 ))
1659 "Quit reading news without updating .newsrc.
1660 The hook gnus-exit-gnus-hook is called before actually quitting."
1673 ))
1676 "Describe Group mode commands briefly."
1686 )))
1688 \f
1689 ;;;
1690 ;;; GNUS Summary Mode
1691 ;;;
1694 nil
1706 ;;(define-key gnus-summary-mode-map "\e\C-n" 'gnus-summary-next-unread-same-subject)
1707 ;;(define-key gnus-summary-mode-map "\e\C-p" 'gnus-summary-prev-unread-same-subject)
1714 ;;(define-key gnus-summary-mode-map "\C-cn" 'gnus-summary-next-group)
1715 ;;(define-key gnus-summary-mode-map "\C-cp" 'gnus-summary-prev-group)
1717 ;;(define-key gnus-summary-mode-map "/" 'isearch-forward)
1720 ;;(define-key gnus-summary-mode-map "\eS" 'gnus-summary-search-article-backward)
1725 ;;(define-key gnus-summary-mode-map "J" 'gnus-summary-goto-article)
1728 ;;(define-key gnus-summary-mode-map "\er" 'gnus-summary-refer-article)
1747 ;;(define-key gnus-summary-mode-map "c" 'gnus-summary-catchup)
1748 ;;(define-key gnus-summary-mode-map "c" 'gnus-summary-catchup-all)
1750 ;;(define-key gnus-summary-mode-map "c" 'gnus-summary-catchup-all-and-exit)
1763 ;;(define-key gnus-summary-mode-map "G" 'gnus-summary-reselect-current-group)
1769 ;;(define-key gnus-summary-mode-map "v" 'gnus-summary-show-all-headers)
1792 "Major mode for reading articles in this newsgroup.
1793 All normal editing commands are turned off.
1794 Instead, these commands are available:
1796 SPC Scroll to the next page of the current article. The next unread
1797 article is selected automatically at the end of the message.
1798 DEL Scroll to the previous page of the current article.
1799 RET Scroll up (or down) one line the current article.
1800 n Move to the next unread article.
1801 p Move to the previous unread article.
1802 N Move to the next article.
1803 P Move to the previous article.
1804 ESC C-n Move to the next article which has the same subject as the
1805 current article.
1806 ESC C-p Move to the previous article which has the same subject as the
1807 current article.
1809 Move to the next unread article which has the same subject as the
1810 current article.
1812 Move to the previous unread article which has the same subject as
1813 the current article.
1814 C-c C-n Scroll to the next digested message of the current article.
1815 C-c C-p Scroll to the previous digested message of the current article.
1816 C-n Move to the next subject.
1817 C-p Move to the previous subject.
1818 ESC n Move to the next unread subject.
1819 ESC p Move to the previous unread subject.
1821 Exit the current newsgroup and select the next unread newsgroup.
1823 Exit the current newsgroup and select the previous unread newsgroup.
1824 . Jump to the first unread article in the current newsgroup.
1825 s Do an incremental search forward on the current article.
1826 ESC s Search for an article containing a regexp forward.
1827 ESC r Search for an article containing a regexp backward.
1828 < Move point to the beginning of the current article.
1829 > Move point to the end of the current article.
1830 j Jump to the article specified by the numeric article ID.
1831 l Jump to the article you read last.
1832 ^ Refer to parent of the current article.
1833 ESC ^ Refer to the article specified by the Message-ID.
1834 u Mark the current article as unread, and go forward.
1835 U Mark the current article as unread, and go backward.
1836 d Mark the current article as read, and go forward.
1837 D Mark the current article as read, and go backward.
1838 ESC u Clear the current article's mark, and go forward.
1839 ESC U Clear the current article's mark, and go backward.
1840 k Mark articles which has the same subject as the current article as
1841 read, and then select the next unread article.
1842 C-k Mark articles which has the same subject as the current article as
1843 read.
1844 ESC k Edit a local KILL file applied to the current newsgroup.
1845 ESC K Edit a global KILL file applied to all newsgroups.
1846 ESC C-t Toggle showing conversation threads.
1847 ESC C-s Show thread subtrees.
1848 ESC C-h Hide thread subtrees.
1851 ESC C-f Go to the same level next thread.
1852 ESC C-b Go to the same level previous thread.
1853 ESC C-d Go downward current thread.
1854 ESC C-u Go upward current thread.
1855 ESC C-k Mark articles under current thread as read.
1856 & Execute a command for each article conditionally.
1858 Mark all articles as read in the current newsgroup, preserving
1859 articles marked as unread.
1861 Mark all articles as read in the current newsgroup.
1863 Catch up all articles not marked as unread, and then exit the
1864 current newsgroup.
1866 Catch up all articles, and then exit the current newsgroup.
1867 C-t Toggle truncations of subject lines.
1868 x Delete subject lines marked as read.
1869 X Delete subject lines with the specific marks.
1870 C-c C-s C-n Sort subjects by article number.
1871 C-c C-s C-a Sort subjects by article author.
1872 C-c C-s C-s Sort subjects alphabetically.
1873 C-c C-s C-d Sort subjects by date.
1874 = Expand Summary window to show headers full window.
1875 C-x C-s Reselect the current newsgroup. Prefix argument means to select all.
1876 w Stop page breaking by linefeed.
1877 C-c C-r Caesar rotates letters by 13/47 places.
1878 g Force to show the current article.
1879 t Show original article header if pruned header currently shown, or
1880 vice versa.
1881 ESC-t Toggle MIME processing.
1882 C-d Run RMAIL on the current digest article.
1883 a Post a new article.
1884 f Post a reply article.
1885 F Post a reply article with original article.
1886 C Cancel the current article.
1887 r Mail a message to the author.
1888 R Mail a message to the author with original author.
1889 C-c C-f Forward the current message to another user.
1890 m Mail a message in other window.
1891 o Save the current article in your favorite format.
1892 C-o Append the current article to a file in Unix mail format.
1893 | Pipe the contents of the current article to a subprocess.
1894 q Quit reading news in the current newsgroup.
1895 Q Quit reading news without recording unread articles information.
1896 V Show the version number of this GNUS.
1897 ? Describe Summary mode commands briefly.
1898 C-h m Describe Summary mode.
1899 C-c C-i Read Info about Summary mode.
1901 User customizable variables:
1902 gnus-large-newsgroup
1903 The number of articles which indicates a large newsgroup. If the
1904 number of articles in a newsgroup is greater than the value, the
1905 number of articles to be selected is asked for. If the given value
1906 N is positive, the last N articles is selected. If N is negative,
1907 the first N articles are selected. An empty string means to select
1908 all articles.
1910 gnus-use-long-file-name
1911 Non-nil means that a newsgroup name is used as a default file name
1912 to save articles to. If it's nil, the directory form of a
1913 newsgroup is used instead.
1915 gnus-default-article-saver
1916 Specifies your favorite article saver which is interactively
1917 funcallable. Following functions are available:
1919 gnus-summary-save-in-rmail (in Rmail format)
1920 gnus-summary-save-in-mail (in Unix mail format)
1921 gnus-summary-save-in-folder (in MH folder)
1922 gnus-summary-save-in-file (in article format).
1924 gnus-rmail-save-name
1925 gnus-mail-save-name
1926 gnus-folder-save-name
1927 gnus-file-save-name
1928 Specifies a function generating a file name to save articles in
1929 specified format. The function is called with NEWSGROUP, HEADERS,
1930 and optional LAST-FILE. Access macros to the headers are defined
1931 as nntp-header-FIELD, and functions are defined as
1932 gnus-header-FIELD.
1934 gnus-article-save-directory
1935 Specifies a directory name to save articles to using the commands
1936 gnus-summary-save-in-rmail, gnus-summary-save-in-mail and
1937 gnus-summary-save-in-file. The variable is initialized from the
1938 SAVEDIR environment variable.
1940 gnus-show-all-headers
1941 Non-nil means that all headers of an article are shown.
1943 gnus-save-all-headers
1944 Non-nil means that all headers of an article are saved in a file.
1946 gnus-show-mime
1947 Non-nil means that show a MIME message.
1949 gnus-show-threads
1950 Non-nil means that conversation threads are shown in tree structure.
1952 gnus-thread-hide-subject
1953 Non-nil means that subjects for thread subtrees are hidden.
1955 gnus-thread-hide-subtree
1956 Non-nil means that thread subtrees are hidden initially.
1958 gnus-thread-hide-killed
1959 Non-nil means that killed thread subtrees are hidden automatically.
1961 gnus-thread-ignore-subject
1962 Non-nil means that subject differences are ignored in constructing
1963 thread trees.
1965 gnus-thread-indent-level
1966 Indentation of thread subtrees.
1968 gnus-optional-headers
1969 Specifies a function which generates an optional string displayed
1970 in the Summary buffer. The function is called with an article
1971 HEADERS. The result must be a string excluding `[' and `]'. The
1972 default function returns a string like NNN:AUTHOR, where NNN is
1973 the number of lines in an article and AUTHOR is the name of the
1974 author.
1976 gnus-auto-extend-newsgroup
1977 Non-nil means visible articles are extended to forward and
1978 backward automatically if possible.
1980 gnus-auto-select-first
1981 Non-nil means the first unread article is selected automagically
1982 when a newsgroup is selected normally (by gnus-group-read-group).
1983 If you'd like to prevent automatic selection of the first unread
1984 article in some newsgroups, set the variable to nil in
1985 gnus-select-group-hook or gnus-apply-kill-hook.
1987 gnus-auto-select-next
1988 Non-nil means the next newsgroup is selected automagically at the
1989 end of the newsgroup. If the value is t and the next newsgroup is
1990 empty (no unread articles), GNUS will exit Summary mode and go
1991 back to Group mode. If the value is neither nil nor t, GNUS won't
1992 exit Summary mode but select the following unread newsgroup.
1993 Especially, if the value is the symbol `quietly', the next unread
1994 newsgroup will be selected without any confirmations.
1996 gnus-auto-select-same
1997 Non-nil means an article with the same subject as the current
1998 article is selected automagically like `rn -S'.
2000 gnus-auto-center-summary
2001 Non-nil means the point of Summary Mode window is always kept
2002 centered.
2004 gnus-break-pages
2005 Non-nil means an article is broken into pages at page delimiters.
2006 This may not work with some versions of GNU Emacs earlier than
2007 version 18.50.
2009 gnus-page-delimiter
2010 Specifies a regexp describing line-beginnings that separate pages
2011 of news article.
2013 [gnus-more-message is obsolete. overlay-arrow-string interfares
2014 with other subsystems, such as dbx mode.]
2016 gnus-digest-show-summary
2017 Non-nil means that a summary of digest messages is shown when
2018 reading a digest article using `gnus-summary-rmail-digest'
2019 command.
2021 gnus-digest-separator
2022 Specifies a regexp separating messages in a digest article.
2024 gnus-mail-reply-method
2025 gnus-mail-other-window-method
2026 Specifies a function to begin composing mail message using
2027 commands gnus-summary-reply and gnus-summary-mail-other-window.
2028 Functions gnus-mail-reply-using-mail and gnus-mail-reply-using-mhe
2029 are available for the value of gnus-mail-reply-method. And
2030 functions gnus-mail-other-window-using-mail and
2031 gnus-mail-other-window-using-mhe are available for the value of
2032 gnus-mail-other-window-method.
2034 gnus-mail-send-method
2035 Specifies a function to mail a message too which is being posted
2036 as an article. The message must have To: or Cc: field. The value
2037 of the variable send-mail-function is the default function which
2038 uses sendmail mail program.
2040 Various hooks for customization:
2041 gnus-summary-mode-hook
2042 Entry to this mode calls the value with no arguments, if that
2043 value is non-nil.
2045 gnus-select-group-hook
2046 Called with no arguments when newsgroup is selected, if that value
2047 is non-nil. It is possible to sort subjects in this hook. See the
2048 documentation of this variable for more information.
2050 gnus-summary-prepare-hook
2051 Called with no arguments after a summary list is created in the
2052 Summary buffer, if that value is non-nil. If you'd like to modify
2053 the buffer, you can use this hook.
2055 gnus-select-article-hook
2056 Called with no arguments when an article is selected, if that
2057 value is non-nil. See the documentation of this variable for more
2058 information.
2060 gnus-select-digest-hook
2061 Called with no arguments when reading digest messages using Rmail,
2062 if that value is non-nil. This hook can be used to modify an
2063 article so that Rmail can work with it. See the documentation of
2064 the variable for more information.
2066 gnus-rmail-digest-hook
2067 Called with no arguments when reading digest messages using Rmail,
2068 if that value is non-nil. This hook is intended to customize Rmail
2069 mode.
2071 gnus-apply-kill-hook
2072 Called with no arguments when a newsgroup is selected and the
2073 Summary buffer is prepared. This hook is intended to apply a KILL
2074 file to the selected newsgroup. The format of KILL file is
2075 completely different from that of version 3.8. You have to rewrite
2076 them in the new format. See the documentation of Kill file mode
2077 for more information.
2079 gnus-mark-article-hook
2080 Called with no arguments when an article is selected at the first
2081 time. The hook is intended to mark an article as read (or unread)
2082 automatically when it is selected. See the documentation of the
2083 variable for more information.
2085 gnus-exit-group-hook
2086 Called with no arguments when exiting the current newsgroup, if
2087 that value is non-nil. If your machine is so slow that exiting
2088 from Summary mode takes very long time, inhibit marking articles
2089 as read using cross-references by setting the variable
2090 gnus-use-cross-reference to nil in this hook."
2093 ;; Gee. Why don't you upgrade?
2099 ;; To disable display-time facility.
2100 ;;(make-local-variable 'global-mode-string)
2101 ;;(setq global-mode-string nil)
2104 ;;(setq mode-line-process '(" " gnus-newsgroup-name))
2116 ;;(setq case-fold-search t)
2120 "Initialize Summary buffer."
2125 ))
2128 "Start reading news in newsgroup GROUP.
2129 If optional 1st argument SHOW-ALL is non-nil, already read articles are
2130 also listed.
2131 If optional 2nd argument NO-ARTICLE is non-nil, no article is selected
2132 initially."
2136 ;; Don't switch-to-buffer to prevent displaying old contents
2137 ;; of the buffer until new subjects list is created.
2138 ;; Suggested by Juha Heinanen <jh@tut.fi>
2140 ;; You can change the order of subjects in this hook.
2143 ;; Function `gnus-apply-kill-file' must be called in this hook.
2146 ;; This newsgroup is empty.
2150 ;; Hide conversation thread subtrees. We cannot do this in
2151 ;; gnus-summary-prepare-hook since kill processing may not
2152 ;; work with hidden articles.
2154 gnus-thread-hide-subtree
2156 ;; Show first unread article if requested.
2159 gnus-auto-select-first
2161 ;; Window is configured automatically.
2162 ;; Current buffer may be changed as a result of hook
2163 ;; evaluation, especially by gnus-summary-rmail-digest
2164 ;; command, so we should adjust cursor point carefully.
2167 ;; Adjust cursor point.
2173 ;; I sometime get confused with the old Article buffer.
2181 ;; Adjust cursor point.
2184 ))
2185 ;; Cannot select newsgroup GROUP.
2188 ;; If NNTP is used, nntp_access file may not be installed
2189 ;; properly. Otherwise, may be active file problem.
2195 ;; Check bogus newsgroups.
2196 ;; We must be in Group Mode buffer.
2198 ))
2201 "Prepare summary list of current newsgroup in Summary buffer."
2203 ;; Note: The next codes are not actually used because the user who
2204 ;; want it can define them in gnus-select-group-hook.
2205 ;; Print verbose messages if too many articles are selected.
2206 ;; (and (numberp gnus-large-newsgroup)
2207 ;; (> (length gnus-newsgroup-headers) gnus-large-newsgroup)
2208 ;; (message "Preparing headers..."))
2214 ;; Erase header retrieval message.
2216 ;; Call hooks for modifying Summary buffer.
2217 ;; Suggested by sven@tde.LTH.Se (Sven Mattisson).
2220 ))
2222 ;; Basic ideas by Paul Dworkin <paul@media-lab.media.mit.edu>
2223 ;; Subject bug fix by jbw@bigbird.bu.edu (Joe Wells)
2226 "Prepare Summary buffer from THREADS and indentation LEVEL.
2227 THREADS is a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...]).'
2228 Optional PARENT-SUBJECT specifies the subject of the parent."
2235 ;; `M Indent NUM: [OPT] SUBJECT'
2241 ;; If thread is a cons, hierarchical threads is given.
2242 ;; Otherwise, thread itself is header.
2246 ;; Print valid header only.
2254 ;; Read or not.
2258 ;; Thread level.
2260 ;; Article number.
2261 number
2262 ;; Optional headers.
2265 ;; Its subject string.
2268 ;; Subject is different from the parent.
2270 parent-subject child-subject)))
2271 nil
2273 subject)
2274 ))
2275 ))
2276 ;; Print subthreads.
2281 )))
2283 ;;(defun gnus-summary-set-mode-line ()
2284 ;; "Set Summary mode line string."
2285 ;; ;; The value must be a string to escape %-constructs.
2286 ;; (let ((subject
2287 ;; (if gnus-current-headers
2288 ;; (nntp-header-subject gnus-current-headers) gnus-newsgroup-name)))
2289 ;; (setq mode-line-buffer-identification
2290 ;; (concat "GNUS: "
2291 ;; subject
2292 ;; ;; Enough spaces to pad subject to 17 positions.
2293 ;; (make-string (max 0 (- 17 (length subject))) ? ))))
2294 ;; (set-buffer-modified-p t))
2296 ;; New implementation in gnus 3.14.3
2299 "Set Summary mode line string.
2300 If you don't like it, define your own gnus-summary-set-mode-line."
2304 gnus-newsgroup-unreads gnus-newsgroup-marked))))
2308 gnus-newsgroup-unselected gnus-newsgroup-marked)))))
2312 gnus-newsgroup-name
2315 ;; Basic ideas by tale@pawl.rpi.edu.
2323 ))))
2326 ;; GNUS Summary mode command.
2329 "Search for next unread newsgroup.
2330 If optional argument BACKWARD is non-nil, search backward instead."
2334 ;; We don't want to alter current point of Group mode buffer.
2337 )))
2340 "Search for article forward.
2341 If 1st argument BACKWARD is non-nil, search backward.
2342 If 2nd argument UNREAD is non-nil, only unread article is selected.
2343 If 3rd argument SUBJECT is non-nil, the article which has
2344 the same subject will be searched for."
2349 ;; We have to take care of hidden lines.
2352 ;;(if unread " " ".")
2357 ;; Ignore words in parentheses.
2360 )))
2368 ;; Adjust cursor point.
2371 ;; This is the result.
2372 article
2373 ))
2376 "Search for article forward.
2377 If 1st optional argument UNREAD is non-nil, only unread article is selected.
2378 If 2nd optional argument SUBJECT is non-nil, the article which has
2379 the same subject will be searched for."
2383 "Search for article backward.
2384 If 1st optional argument UNREAD is non-nil, only unread article is selected.
2385 If 2nd optional argument SUBJECT is non-nil, the article which has
2386 the same subject will be searched for."
2390 "Article number around point. If nothing, return current number."
2396 ;; If search fail, return current article number.
2397 gnus-current-article
2398 )))
2401 "Return current subject string or nil if nothing."
2403 ;; It is possible to implement this function using
2404 ;; `gnus-summary-article-number' and `gnus-newsgroup-headers'.
2406 ;; We have to take care of hidden lines.
2409 ))
2412 "Move point to ARTICLE's subject."
2422 gnus-newsgroup-headers)
2428 ))
2431 "Center point in Summary window."
2432 ;; Scroll window so as to cursor comes center of Summary window
2433 ;; only when article is displayed.
2434 ;; Suggested by earle@mahendo.JPL.NASA.GOV (Greg Earle).
2435 ;; Recenter only when requested.
2436 ;; Subbested by popovich@park.cs.columbia.edu
2443 ;; Walking around Group mode buffer.
2446 "Move point to NEWSGROUP in Group mode buffer."
2447 ;; Keep update point of Group mode buffer if visible.
2451 ;; Take care of tree window mode.
2456 ;; Take care of tree window mode.
2463 "Exit current newsgroup and then select next unread newsgroup.
2464 If prefix argument NO-ARTICLE is non-nil, no article is selected initially."
2466 ;; Make sure Group mode buffer point is on current newsgroup.
2476 ;; We are now in Group mode buffer.
2477 ;; Make sure Group mode buffer point is on GROUP.
2483 ;; Expected newsgroup has nothing to read since the articles
2484 ;; are marked as read by cross-referencing. So, try next
2485 ;; newsgroup. (Make sure we are in Group mode buffer now.)
2491 )
2492 )))
2495 "Exit current newsgroup and then select previous unread newsgroup.
2496 If prefix argument NO-ARTICLE is non-nil, no article is selected initially."
2498 ;; Make sure Group mode buffer point is on current newsgroup.
2508 ;; We are now in Group mode buffer.
2509 ;; We have to adjust point of Group mode buffer because current
2510 ;; point is moved to next unread newsgroup by exiting.
2516 ;; Expected newsgroup has nothing to read since the articles
2517 ;; are marked as read by cross-referencing. So, try next
2518 ;; newsgroup. (Make sure we are in Group mode buffer now.)
2524 )
2525 )))
2527 ;; Walking around summary lines.
2530 "Go to next N'th summary line.
2531 If optional argument UNREAD is non-nil, only unread article is selected."
2542 ))
2545 "Go to next N'th unread summary line."
2550 "Go to previous N'th summary line.
2551 If optional argument UNREAD is non-nil, only unread article is selected."
2562 ))
2565 "Go to previous N'th unread summary line."
2569 ;; Walking around summary lines with displaying articles.
2572 "Expand Summary window to show headers full window."
2578 "Display ARTICLE in Article buffer."
2580 nil
2587 ;; Successfully display article.
2588 t
2589 ))
2592 "Select the current article.
2593 Optional first argument ALL-HEADERS is non-nil, show all header fields.
2594 Optional second argument FORCE is nil, the article is only selected
2595 again when current header does not match with ALL-HEADERS option."
2601 ;; The selected one is different from that of the current article.
2605 ))
2608 "Put `+' at the current article.
2609 Optional argument specifies CURRENT-MARK instead of `+'."
2614 ;; First of all clear mark at last article.
2624 )))
2626 ;;(defun gnus-summary-next-article (unread &optional subject)
2627 ;; "Select article after current one.
2628 ;;If argument UNREAD is non-nil, only unread article is selected."
2629 ;; (interactive "P")
2630 ;; (cond ((gnus-summary-display-article
2631 ;; (gnus-summary-search-forward unread subject)))
2632 ;; (unread
2633 ;; (message "No more unread articles"))
2634 ;; (t
2635 ;; (message "No more articles"))
2636 ;; ))
2639 "Select article after current one.
2640 If argument UNREAD is non-nil, only unread article is selected."
2646 gnus-auto-select-same
2648 gnus-newsgroup-marked)
2651 gnus-summary-next-page
2652 gnus-summary-kill-same-subject-and-select
2653 ;;gnus-summary-next-article
2654 ;;gnus-summary-next-same-subject
2655 ;;gnus-summary-next-unread-same-subject
2656 )))
2657 ;; Wrap article pointer if there are unread articles.
2658 ;; Hook function, such as gnus-summary-rmail-digest, may
2659 ;; change current buffer, so need check.
2662 ;; No more articles with same subject, so jump to the first
2663 ;; unread article.
2665 ;;(and (eq buffer (current-buffer))
2666 ;; (= (point) last-point)
2667 ;; ;; Ignore given SUBJECT, and try again.
2668 ;; (gnus-summary-next-article unread nil))
2672 ))
2677 ;; Extend to next article if possible.
2678 ;; Basic ideas by himacdonald@watdragon.waterloo.edu
2680 ;; Threads feature must be turned off.
2686 ;; Select next newsgroup automatically if requested.
2691 ;;(null (gnus-set-difference gnus-newsgroup-unreads
2692 ;; gnus-newsgroup-marked))
2695 gnus-summary-next-article
2696 gnus-summary-next-page
2697 gnus-summary-next-same-subject
2698 gnus-summary-next-unread-same-subject
2699 gnus-summary-kill-same-subject
2700 gnus-summary-kill-same-subject-and-select
2701 ))
2702 ;; Ignore characters typed ahead.
2704 )))
2712 group
2714 gnus-unread-hashtb)))
2717 gnus-newsgroup-name
2718 ))
2720 ;; Select next unread newsgroup automagically.
2723 ;; Select quietly.
2726 ;; Confirm auto selection.
2731 )
2732 ))
2733 )))
2736 "Select unread article after current one."
2742 "Select article before current one.
2743 If argument UNREAD is non-nil, only unread article is selected."
2749 gnus-auto-select-same
2751 gnus-newsgroup-marked)
2754 ;;gnus-summary-prev-page
2755 ;;gnus-summary-prev-article
2756 ;;gnus-summary-prev-same-subject
2757 ;;gnus-summary-prev-unread-same-subject
2758 )))
2759 ;; Ignore given SUBJECT, and try again.
2766 ;; Extend to previous article if possible.
2767 ;; Basic ideas by himacdonald@watdragon.waterloo.edu
2775 )))
2778 "Select unred article before current one."
2784 "Show next page of selected article.
2785 If end of article, select next article.
2786 Argument LINES specifies lines to be scrolled up."
2792 ;; Selected subject is different from current article's.
2802 )))
2805 "Show previous page of selected article.
2806 Argument LINES specifies lines to be scrolled down."
2811 ;; Selected subject is different from current article's.
2817 )))
2820 "Scroll up (or down) one line current article.
2821 Argument LINES specifies lines to be scrolled up (or down if negative)."
2830 ))
2833 "Select next article which has the same subject as current one."
2838 "Select previous article which has the same subject as current one."
2843 "Select next unread article which has the same subject as current one."
2848 "Select previous unread article which has the same subject as current one."
2853 "Refer parent article of current article.
2854 If a prefix argument CHILD is non-nil, go back to the child article
2855 using internally maintained articles history.
2856 NOTE: This command may not work with nnspool.el."
2861 ;; Go back to child article using history.
2864 ;; Look for parent Message-ID.
2865 ;; We cannot use gnus-current-headers to get references
2866 ;; because we may be looking at parent or referred article.
2868 ;; Get the last message-id in the references.
2874 ))
2878 )))
2881 "Refer article specified by MESSAGE-ID.
2882 If the MESSAGE-ID is nil or an empty string, Message-ID is poped from
2883 internally maintained articles history.
2884 NOTE: This command may not work with nnspool.el nor mhspool.el."
2886 ;; Make sure that this command depends on the fact that article
2887 ;; related information is not updated when an article is retrieved
2888 ;; by Message-ID.
2893 ;; Construct the correct Message-ID if necessary.
2894 ;; Suggested by tale@pawl.rpi.edu.
2899 ;; Push current message-id on history.
2900 ;; We cannot use gnus-current-headers to get current
2901 ;; message-id because we may be looking at parent or referred
2902 ;; article.
2908 ))
2909 ;; Pop message-id from history.
2913 ;; Retrieve article by message-id. This may not work with
2914 ;; nnspool nor mhspool.
2917 )
2920 "Move to head of NTH next digested message."
2925 ))
2928 "Move to head of NTH previous digested message."
2933 ))
2936 "Select first unread article. Return non-nil if successfully selected."
2942 ;; If there is no unread articles, stay there.
2944 ;;(gnus-summary-display-article (gnus-summary-article-number))
2946 nil
2947 )
2948 ))
2951 "Do incremental search forward on current article."
2958 "Search for an article containing REGEXP forward.
2959 gnus-select-article-hook is not called during the search."
2971 ;;(sit-for 1)
2972 )
2974 ))
2977 "Search for an article containing REGEXP backward.
2978 gnus-select-article-hook is not called during the search."
2990 ;;(sit-for 1)
2991 )
2993 ))
2996 "Search for an article containing REGEXP.
2997 Optional argument BACKWARD means do search for backward.
2998 gnus-select-article-hook is not called during the search."
3006 ;; Hidden thread subtrees must be searched for ,too.
3008 ;; First of all, search current article.
3009 ;; We don't want to read article again from NNTP server nor reset
3010 ;; current point.
3017 ;; Begin search from current point.
3019 ;; Then search next articles.
3029 ))
3031 ;; Adjust article pointer.
3034 ;; Return T if found such article.
3035 found
3036 ))
3039 "If FIELD of article header matches REGEXP, execute a COMMAND string.
3040 If FIELD is an empty string (or nil), entire article body is searched for.
3041 If optional (prefix) argument BACKWARD is non-nil, do backward instead."
3051 current-prefix-arg))
3052 ;; Hidden thread subtrees must be searched for ,too.
3054 ;; We don't want to change current point nor window configuration.
3058 ;; We'd like to execute COMMAND interactively so as to give arguments.
3062 backward)
3066 "Go to beginning of article body"
3074 ))
3077 "Go to end of article body"
3085 ))
3088 "Read ARTICLE if exists.
3089 Optional argument ALL-HEADERS means all headers are shown."
3099 gnus-newsgroup-headers)
3105 "Go to last subject line."
3111 "Force to show current article."
3113 ;; The following is a trick to force to read the current article again.
3118 "Show original header if pruned header currently shown, or vice versa.
3119 With arg, show original header iff arg is positive."
3121 ;; Variable gnus-show-all-headers must be NIL to toggle really.
3129 "Show original article header."
3134 "Toggle MIME processing.
3135 With arg, turn MIME processing on iff arg is positive."
3140 ;; The following is a trick to force to read the current article again.
3145 "Stop page breaking by linefeed temporary (Widen article buffer)."
3150 ))
3153 "Mark articles which has the same subject as read, and then select next.
3154 If argument UNMARK is positive, remove any kinds of marks.
3155 If argument UNMARK is negative, mark articles as unread instead."
3162 ;; Select next unread article. If auto-select-same mode, should
3163 ;; select the first unread article.
3168 ))
3171 "Mark articles which has the same subject as read.
3172 If argument UNMARK is positive, remove any kinds of marks.
3173 If argument UNMARK is negative, mark articles as unread instead."
3180 ;; If marked as read, go to next unread subject.
3182 ;; Go to next unread subject.
3186 ))
3189 "Mark articles with same SUBJECT as read, and return marked number.
3190 If optional argument UNMARK is positive, remove any kinds of marks.
3191 If optional argument UNMARK is negative, mark articles as unread instead."
3209 ))
3210 ;; Hide killed thread subtrees. Does not work properly always.
3211 ;;(and (null unmark)
3212 ;; gnus-thread-hide-killed
3213 ;; (gnus-summary-hide-thread))
3214 ;; Return number of articles marked as read.
3215 count
3216 ))
3219 "Mark current article as unread, and then go forward.
3220 Argument COUNT specifies number of articles marked as unread."
3228 "Mark current article as unread, and then go backward.
3229 Argument COUNT specifies number of articles marked as unread."
3237 "Mark current article as unread.
3238 Optional 1st argument ARTICLE specifies article number to be marked as unread.
3239 Optional 2nd argument CLEAR-MARK remove any kinds of mark."
3242 ;; First of all, show hidden thread subtrees.
3254 )))
3257 "Mark current article as read, and then go forward.
3258 Argument COUNT specifies number of articles marked as read"
3266 "Mark current article as read, and then go backward.
3267 Argument COUNT specifies number of articles marked as read"
3275 "Mark current article as read.
3276 Optional 1st argument ARTICLE specifies article number to be marked as read.
3277 Optional 2nd argument MARK specifies a string inserted at beginning of line.
3278 Any kind of string (length 1) except for a space and `-' is ok."
3281 ;; First of all, show hidden thread subtrees.
3294 )))
3297 "Remove current article's mark, and go forward.
3298 Argument COUNT specifies number of articles unmarked"
3306 "Remove current article's mark, and go backward.
3307 Argument COUNT specifies number of articles unmarked"
3315 "Delete lines which is marked as read."
3322 ;; Adjust point.
3327 ;; It is not so good idea to make the buffer empty.
3329 ))
3338 ;; Adjust point.
3344 ))
3346 ;; Thread-based commands.
3349 "Toggle showing conversation threads.
3350 With arg, turn showing conversation threads on iff arg is positive."
3358 ))
3361 "Show all thread subtrees."
3367 ))))
3370 "Show thread subtrees."
3380 ))))
3383 "Hide all thread subtrees."
3387 ;; Adjust cursor point.
3395 ))))
3398 "Hide thread subtrees."
3402 ;; Adjust cursor point.
3411 ;; Interested in lower levels.
3415 ))
3416 )
3418 ))))
3421 "Go to the same level next thread.
3422 Argument N specifies the number of threads."
3424 ;; Adjust cursor point.
3433 ;; We have to skip lower levels.
3438 ))
3439 )
3440 ;; Return non-nil if successfully move to the next.
3443 ))
3446 "Go to the same level previous thread.
3447 Argument N specifies the number of threads."
3449 ;; Adjust cursor point.
3458 ;; We have to skip lower levels.
3463 ))
3464 )
3465 ;; Return non-nil if successfully move to the previous.
3468 ))
3471 "Go downward current thread.
3472 Argument D specifies the depth goes down."
3474 ;; Adjust cursor point.
3482 ;; We have to skip the same levels.
3488 ))
3489 )
3491 ))
3494 "Go upward current thread.
3495 Argument D specifies the depth goes up."
3497 ;; Adjust cursor point.
3504 ;; We have to skip the same levels.
3510 ))
3511 )
3513 ))
3516 "Mark articles under current thread as read.
3517 If argument UNMARK is positive, remove any kinds of marks.
3518 If argument UNMARK is negative, mark articles as unread instead."
3522 ;; Adjust cursor point.
3527 ;; Mark current article.
3534 )
3535 ;; Mark following articles.
3544 ))
3545 ))
3546 ;; Hide killed subtrees.
3548 gnus-thread-hide-killed
3550 ;; If marked as read, go to next unread subject.
3552 ;; Go to next unread subject.
3554 )
3557 "Toggle truncation of summary lines.
3558 With arg, turn line truncation on iff arg is positive."
3566 "Sort Summary buffer by article number.
3567 Argument REVERSE means reverse order."
3574 reverse
3575 ))
3578 "Sort Summary buffer by author name alphabetically.
3579 If case-fold-search is non-nil, case of letters is ignored.
3580 Argument REVERSE means reverse order."
3589 reverse
3590 ))
3593 "Sort Summary buffer by subject alphabetically. `Re:'s are ignored.
3594 If case-fold-search is non-nil, case of letters is ignored.
3595 Argument REVERSE means reverse order."
3604 reverse
3605 ))
3608 "Sort Summary buffer by date.
3609 Argument REVERSE means reverse order."
3616 reverse
3617 ))
3620 "Sort Summary buffer by PREDICATE using a value passed by KEY.
3621 Optional argument REVERSE means reverse order."
3626 ))
3629 "Sort Summary buffer by PREDICATE.
3630 Optional argument REVERSE means reverse order."
3635 ))
3638 "Once exit and then reselect the current newsgroup.
3639 Prefix argument SHOW-ALL means to select all articles."
3643 ;; We have to adjust the point of Group mode buffer because the
3644 ;; current point was moved to the next unread newsgroup by
3645 ;; exiting.
3649 ))
3652 "Caesar rotates all letters of current message by 13/47 places.
3653 With prefix arg, specifies the number of places to rotate each letter forward.
3654 Caesar rotates Japanese letters by 47 places in any case."
3661 ;; We don't want to jump to the beginning of the message.
3662 ;; `save-excursion' does not do its job.
3668 ))
3669 ))
3672 "Run RMAIL on current digest article.
3673 gnus-select-digest-hook will be called with no arguments, if that
3674 value is non-nil. It is possible to modify the article so that Rmail
3675 can work with it.
3676 gnus-rmail-digest-hook will be called with no arguments, if that value
3677 is non-nil. The hook is intended to customize Rmail mode."
3692 ;; Rmail initializations.
3701 ;; File name is meaningless but `save-buffer' requires it.
3706 ;; There is no need to write this buffer to a file.
3714 ;; Default file name saving digest messages.
3717 gnus-newsgroup-name
3718 gnus-current-headers
3719 gnus-newsgroup-last-rmail
3720 ))
3723 gnus-newsgroup-name
3724 gnus-current-headers
3725 gnus-newsgroup-last-mail
3726 ))
3727 ;; Prevent generating new buffer named ***<N> each time.
3731 ;; Take all windows safely.
3734 ;; Use Summary Article windows for Digest summary and
3735 ;; Digest buffers.
3750 )
3751 ;; Move the buffers to the end of buffer list.
3758 ;; This command should not signal an error because the
3759 ;; command is called from hooks.
3761 ))
3764 "Save this article using default saver function.
3765 The variable `gnus-default-article-saver' specifies the saver function."
3773 "Append this article to Rmail file.
3774 Optional argument FILENAME specifies file name.
3775 Directory to save to is default to `gnus-article-save-directory' which
3776 is initialized from the SAVEDIR environment variable."
3785 gnus-newsgroup-name
3786 gnus-current-headers
3787 gnus-newsgroup-last-rmail
3788 )))
3796 default-name)))
3799 ;; Remember the directory name to save articles.
3801 )))
3802 ))
3805 "Append this article to Unix mail file.
3806 Optional argument FILENAME specifies file name.
3807 Directory to save to is default to `gnus-article-save-directory' which
3808 is initialized from the SAVEDIR environment variable."
3817 gnus-newsgroup-name
3818 gnus-current-headers
3819 gnus-newsgroup-last-mail
3820 )))
3828 default-name)))
3837 ;; Remember the directory name to save articles.
3839 )))
3840 ))
3843 "Append this article to file.
3844 Optional argument FILENAME specifies file name.
3845 Directory to save to is default to `gnus-article-save-directory' which
3846 is initialized from the SAVEDIR environment variable."
3855 gnus-newsgroup-name
3856 gnus-current-headers
3857 gnus-newsgroup-last-file
3858 )))
3866 default-name)))
3869 ;; Remember the directory name to save articles.
3871 )))
3872 ))
3875 "Save this article to MH folder (using `rcvstore' in MH library).
3876 Optional argument FOLDER specifies folder name."
3882 ;; Thanks to yuki@flab.Fujitsu.JUNET and ohm@kaba.junet.
3888 gnus-newsgroup-name
3889 gnus-current-headers
3890 gnus-newsgroup-last-folder
3891 )
3892 t
3893 )))
3898 nil errbuf nil folder)
3905 ))
3906 ))
3909 "Pipe this article to subprocess."
3911 ;; Ignore `gnus-save-all-headers' since this is not save command.
3912 ;;(gnus-summary-select-article)
3913 ;; Huuum. Is this right?
3919 gnus-last-shell-command)))
3924 ))
3925 ))
3928 "Mark all articles not marked as unread in this newsgroup as read.
3929 If prefix argument ALL is non-nil, all articles are marked as read."
3934 "Do you really want to mark everything as read? "
3940 ;; Hidden thread subtrees must be searched for ,too.
3945 ))
3946 ))
3949 "Mark all articles in this newsgroup as read."
3954 "Mark all articles not marked as unread in this newsgroup as read, then exit.
3955 If prefix argument ALL is non-nil, all articles are marked as read."
3960 "Do you really want to mark everything as read? "
3969 ;; Select next newsgroup or exit.
3971 ;; Select next newsgroup quietly.
3975 )))
3978 "Mark all articles in this newsgroup as read, and then exit."
3983 "Edit a global KILL file."
3992 "Edit a local KILL file applied to the current newsgroup."
4001 "Exit reading current newsgroup, and then return to group selection mode.
4002 gnus-exit-group-hook is called with no arguments if that value is non-nil."
4009 ;; Important internal variables are saved, so we can reenter
4010 ;; Summary buffer even if hook changes them.
4014 gnus-newsgroup-unreads)
4015 gnus-newsgroup-marked)
4016 ;; T means ignore unsubscribed newsgroups.
4020 gnus-newsgroup-headers
4021 gnus-newsgroup-unreads
4023 )))
4024 ;; Do not switch windows but change the buffer to work.
4026 ;; Update cross referenced group info.
4031 ;; Make sure where I was, and go to next newsgroup.
4035 ;; If exiting temporary, caller should adjust Group mode
4036 ;; buffer point by itself.
4037 nil ;Nothing to do.
4038 ;; Return to Group mode buffer.
4047 "Quit reading current newsgroup without updating read article info."
4052 ;; Return to Group selection mode.
4061 )))
4064 "Describe Summary mode commands briefly."
4074 )))
4076 \f
4077 ;;;
4078 ;;; GNUS Article Mode
4079 ;;;
4082 nil
4095 "Major mode for browsing through an article.
4096 All normal editing commands are turned off.
4097 Instead, these commands are available:
4100 Various hooks for customization:
4101 gnus-article-mode-hook
4102 Entry to this mode calls the value with no arguments, if that
4103 value is non-nil.
4105 gnus-article-prepare-hook
4106 Called with no arguments after an article is prepared for reading,
4107 if that value is non-nil."
4110 ;; Gee. Why don't you upgrade?
4116 ;; To disable display-time facility.
4117 ;;(make-local-variable 'global-mode-string)
4118 ;;(setq global-mode-string nil)
4136 "Initialize Article mode buffer."
4141 ))
4144 "Prepare ARTICLE in Article mode buffer.
4145 ARTICLE can be either a article number or Message-ID.
4146 If optional argument ALL-HEADERS is non-nil, all headers are inserted."
4147 ;; Make sure a connection to NNTP server is alive.
4156 ;; mhspool does not work with Message-ID. So, let's translate
4157 ;; it into an article number as possible as can. This may help
4158 ;; nnspool too.
4159 ;; Note: this conversion must be done here since if the article
4160 ;; is specified by number or message-id has a different meaning
4161 ;; in the following.
4170 ;; Prepare article buffer
4172 ;; gnus-have-all-headers must be either T or NIL.
4177 ;; Seems me that a new article has been selected.
4179 ;; gnus-current-article must be an article number.
4182 ;; (setq gnus-current-headers
4183 ;; (gnus-find-header-by-number gnus-newsgroup-headers
4184 ;; gnus-current-article))
4188 ))
4189 ;; Clear article history only when the article is
4190 ;; retrieved by the article number.
4193 ;; Hooks for modifying contents of the article. This hook
4194 ;; must be called before being narrowed.
4196 ;; Decode MIME message.
4200 ;; Delete unnecessary headers.
4203 ;; Do page break.
4207 ;; Next function must be called after setting
4208 ;; `gnus-current-article' variable and narrowed to page.
4210 )
4211 ;; There is no such article.
4215 )))
4218 "Show all article headers in Article mode buffer."
4222 ;;(defun gnus-article-set-mode-line ()
4223 ;; "Set Article mode line string."
4224 ;; (setq mode-line-buffer-identification
4225 ;; (list 17
4226 ;; (format "GNUS: %s {%d-%d} %d"
4227 ;; gnus-newsgroup-name
4228 ;; gnus-newsgroup-begin
4229 ;; gnus-newsgroup-end
4230 ;; gnus-current-article
4231 ;; )))
4232 ;; (set-buffer-modified-p t))
4234 ;;(defun gnus-article-set-mode-line ()
4235 ;; "Set Article mode line string."
4236 ;; (let ((unmarked
4237 ;; (- (length gnus-newsgroup-unreads)
4238 ;; (length (gnus-intersection
4239 ;; gnus-newsgroup-unreads gnus-newsgroup-marked))))
4240 ;; (unselected
4241 ;; (- (length gnus-newsgroup-unselected)
4242 ;; (length (gnus-intersection
4243 ;; gnus-newsgroup-unselected gnus-newsgroup-marked)))))
4244 ;; (setq mode-line-buffer-identification
4245 ;; (list 17
4246 ;; (format "GNUS: %s{%d} %s"
4247 ;; gnus-newsgroup-name
4248 ;; gnus-current-article
4249 ;; ;; This is proposed by tale@pawl.rpi.edu.
4250 ;; (cond ((and (zerop unmarked)
4251 ;; (zerop unselected))
4252 ;; " ")
4253 ;; ((zerop unselected)
4254 ;; (format "%d more" unmarked))
4255 ;; (t
4256 ;; (format "%d(+%d) more" unmarked unselected)))
4257 ;; ))))
4258 ;; (set-buffer-modified-p t))
4260 ;; New implementation in gnus 3.14.3
4263 "Set Article mode line string.
4264 If you don't like it, define your own gnus-article-set-mode-line."
4269 ;; The value must be a string to escape %-constructs because of subject.
4272 gnus-newsgroup-name
4278 )))
4282 "Delete unnecessary headers."
4296 )))
4298 ;; Working on article's buffer
4301 "Show next page of current article.
4302 If end of article, return non-nil. Otherwise return nil.
4303 Argument LINES specifies lines to be scrolled up."
4306 ;; Fixed by enami@ptgd.sony.co.jp (enami tsugutomo)
4311 ;; Nothing in this page.
4316 t ;Nothing more.
4318 nil
4319 )
4320 ;; More in this page.
4324 ;; Long lines may cause an end-of-buffer error.
4326 nil
4327 ))
4330 "Show previous page of current article.
4331 Argument LINES specifies lines to be scrolled down."
4344 "Move to head of NTH next digested message.
4345 Set mark at end of digested message."
4346 ;; Stop page breaking in digest mode.
4349 ;; Skip NTH - 1 digest.
4350 ;; Suggested by Khalid Sattar <admin@cs.exeter.ac.uk>.
4351 ;; Digest separator is customizable.
4352 ;; Suggested by Skip Montanaro <montanaro@sprite.crd.ge.com>.
4358 ;; Search for end of this message.
4368 ;; Show From: and Subject: fields.
4371 ))
4374 "Move to head of NTH previous digested message."
4375 ;; Stop page breaking in digest mode.
4378 ;; Skip NTH - 1 digest.
4379 ;; Suggested by Khalid Sattar <admin@cs.exeter.ac.uk>.
4380 ;; Digest separator is customizable.
4381 ;; Suggested by Skip Montanaro <montanaro@sprite.crd.ge.com>.
4387 ;; Search for end of this message.
4396 ;; Show From: and Subject: fields.
4400 ))
4403 "Read article specified by message-id around point."
4414 )))
4417 "Pop up article history."
4424 "Reconfigure windows to show Summary buffer."
4431 "Describe Article mode commands briefly."
4440 )))
4442 \f
4443 ;;;
4444 ;;; GNUS KILL-File Mode
4445 ;;;
4448 nil
4458 "Major mode for editing KILL file.
4460 In addition to Emacs-Lisp Mode, the following commands are available:
4469 A KILL file contains lisp expressions to be applied to a selected
4470 newsgroup. The purpose is to mark articles as read on the basis of
4471 some set of regexps. A global KILL file is applied to every newsgroup,
4472 and a local KILL file is applied to a specified newsgroup. Since a
4473 global KILL file is applied to every newsgroup, for better performance
4474 use a local one.
4476 A KILL file can contain any kind of Emacs lisp expressions expected
4477 to be evaluated in the Summary buffer. Writing lisp programs for this
4478 purpose is not so easy because the internal working of GNUS must be
4479 well-known. For this reason, GNUS provides a general function which
4480 does this easily for non-Lisp programmers.
4482 The `gnus-kill' function executes commands available in Summary Mode
4483 by their key sequences. `gnus-kill' should be called with FIELD,
4484 REGEXP and optional COMMAND and ALL. FIELD is a string representing
4485 the header field or an empty string. If FIELD is an empty string, the
4486 entire article body is searched for. REGEXP is a string which is
4487 compared with FIELD value. COMMAND is a string representing a valid
4488 key sequence in Summary Mode or Lisp expression. COMMAND is default to
4490 executed in the Summary buffer. If the second optional argument ALL
4491 is non-nil, the COMMAND is applied to articles which are already
4492 marked as read or unread. Articles which are marked are skipped over
4493 by default.
4495 For example, if you want to mark articles of which subjects contain
4496 the string `AI' as read, a possible KILL file may look like:
4500 If you want to mark articles with `D' instead of `X', you can use
4501 the following expression:
4505 In this example it is assumed that the command
4506 `gnus-summary-mark-as-read-forward' is assigned to `d' in Summary Mode.
4508 It is possible to delete unnecessary headers which are marked with
4509 `X' in a KILL file as follows:
4513 If the Summary buffer is empty after applying KILL files, GNUS will
4514 exit the selected newsgroup normally. If headers which are marked
4515 with `D' are deleted in a KILL file, it is impossible to read articles
4516 which are marked as read in the previous GNUS sessions. Marks other
4517 than `D' should be used for articles which should really be deleted.
4519 Entry to this mode calls emacs-lisp-mode-hook and
4520 gnus-kill-file-mode-hook with no arguments, if that value is non-nil."
4531 "Begin editing a KILL file of NEWSGROUP.
4532 If NEWSGROUP is nil, the global KILL file is selected."
4536 ;; Save current window configuration if this is first invocation.
4540 ;; Hack windows.
4557 ))
4559 ))
4562 "Insert KILL command for current subject."
4570 ;; No need to speed up this command.
4571 ;;(gnus-get-header-by-number gnus-current-kill-article)
4573 gnus-current-kill-article)))
4577 "Insert KILL command for current author."
4585 ;; No need to speed up this command.
4586 ;;(gnus-get-header-by-number gnus-current-kill-article)
4588 gnus-current-kill-article)))
4592 "Apply current buffer to current newsgroup."
4596 ;; Assume newsgroup is selected.
4605 "Apply sexp before point in current buffer to current newsgroup."
4609 ;; Assume newsgroup is selected.
4620 "Save a KILL file, then return to the previous buffer."
4624 ;; We don't want to return to Article buffer.
4627 ;; Delete the KILL file windows.
4629 ;; Restore last window configuration if available.
4633 ;; Kill the KILL file buffer. Suggested by tale@pawl.rpi.edu.
4636 \f
4637 ;;;
4638 ;;; Utility functions
4639 ;;;
4641 ;; Basic ideas by emv@math.lsa.umich.edu (Edward Vielmetti)
4644 "Run batched KILL.
4645 Usage: emacs -batch -l gnus -f gnus-batch-kill NEWSGROUP ..."
4655 command-line-args-left))))
4658 ;; Disable verbose message.
4662 ;; Eat all arguments.
4664 ;; Startup GNUS.
4666 ;; Apply kills to specified newsgroups in command line arguments.
4682 ))
4683 )
4684 ;; Finally, exit Emacs.
4687 ))
4689 ;; For saving articles
4692 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
4693 If variable `gnus-use-long-file-name' is nil, it is ~/News/News.group/num.
4694 Otherwise, it is like ~/News/news/group/num."
4706 default
4710 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
4711 If variable `gnus-use-long-file-name' is nil, it is ~/News/news.group/num.
4712 Otherwise, it is like ~/News/news/group/num."
4716 newsgroup
4724 default
4728 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
4729 If variable `gnus-use-long-file-name' is nil, it is ~/News/News.group.
4730 Otherwise, it is like ~/News/news/group/news."
4739 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
4740 If variable `gnus-use-long-file-name' is nil, it is ~/News/news.group.
4741 Otherwise, it is like ~/News/news/group/news."
4745 newsgroup
4750 "Generate folder name from NEWSGROUP, HEADERS, and optional LAST-FOLDER.
4751 If variable `gnus-use-long-file-name' is nil, it is +News.group.
4752 Otherwise, it is like +news/group."
4760 "Generate folder name from NEWSGROUP, HEADERS, and optional LAST-FOLDER.
4761 If variable `gnus-use-long-file-name' is nil, it is +news.group.
4762 Otherwise, it is like +news/group."
4766 newsgroup
4769 ;; For KILL files
4772 "Apply KILL file to the current newsgroup."
4773 ;; Apply the global KILL file.
4775 ;; And then apply the local KILL file.
4779 "Return the name of a KILL file of NEWSGROUP.
4780 If NEWSGROUP is nil, return the global KILL file instead."
4783 ;; The global KILL file is placed at top of the directory.
4787 ;; Append ".KILL" to capitalized newsgroup name.
4792 ;; Place "KILL" under the hierarchical directory.
4796 ))
4799 "Return the name of a KILL file of NEWSGROUP.
4800 If NEWSGROUP is nil, return the global KILL file instead."
4803 ;; The global KILL file is placed at top of the directory.
4807 ;; Append ".KILL" to newsgroup name.
4811 ;; Place "KILL" under the hierarchical directory.
4815 ))
4817 ;; For subscribing new newsgroup
4820 "Subscribe new NEWSGROUP and insert it at the beginning of newsgroups."
4825 "Subscribe new NEWSGROUP and insert it in strict alphabetic order."
4826 ;; Basic ideas by mike-w@cs.aukuni.ac.nz (Mike Williams)
4834 ))
4837 "Subscribe new NEWSGROUP and insert it in hierarchical newsgroup order."
4838 ;; Basic ideas by mike-w@cs.aukuni.ac.nz (Mike Williams)
4852 ))
4853 ;; Remove tail of newsgroup name (eg. a.b.c -> a.b)
4858 )))
4861 "Subscribe new NEWSGROUP interactively.
4862 It is inserted in hierarchical newsgroup order if subscribed.
4863 Unless, it is killed."
4866 ;; Save in kill-ring
4871 "Subscribe new NEWSGROUP.
4872 If optional argument NEXT is non-nil, it is inserted before NEXT."
4876 ;; For directories
4879 "Make hierarchical directory name from NEWSGROUP name."
4883 ;; Replace all occurrences of `.' with `/'.
4888 newsgroup
4889 ))
4892 "Make DIRECTORY recursively."
4896 ))
4900 ;; ange-ftp interferes with calling match-* after
4901 ;; calling file-name-as-directory.
4910 ))
4913 "Capitalize NEWSGROUP name with treating '.' and '-' as part of words."
4914 ;; Suggested by "Jonathan I. Kamens" <jik@pit-manager.MIT.EDU>.
4925 "Remove `Re:' and words in parentheses.
4926 If optional argument RE-ONLY is non-nil, strip `Re:' only."
4928 ;; Remove `Re:' and `Re^N:'.
4931 ;; Remove words in parentheses from end.
4935 ;; Return subject string.
4936 subject
4937 ))
4940 "Return a string like `NNN:AUTHOR' from HEADER."
4943 ;; Lines of the article.
4944 ;; Suggested by dana@bellcore.com.
4946 ;; Its author.
4950 ;; 4 stands for length of `NNN:'.
4954 "Return a string like `NNN' from HEADER."
4957 ;; Basic ideas by flee@cs.psu.edu (Felix Lee)
4960 "Sort current headers by PREDICATE using a value passed by KEY safely.
4961 *Safely* means C-g quitting is disabled during sort.
4962 Optional argument REVERSE means reverse order."
4969 ;; Make sure we don't have to call
4970 ;; gnus-clear-hashtables-for-newsgroup-headers to clear hash
4971 ;; tables for the variable gnus-newsgroup-headers since no new
4972 ;; entry is added to nor deleted from the variable.
4973 ))
4976 "Sort LIST by PREDICATE using a value passed by KEY."
4983 "Sort current headers by PREDICATE safely.
4984 *Safely* means C-g quitting is disabled during sort.
4985 Optional argument REVERSE means reverse order."
4991 ;; Make sure we don't have to call
4992 ;; gnus-clear-hashtables-for-newsgroup-headers to clear hash
4993 ;; tables for the variable gnus-newsgroup-headers since no new
4994 ;; entry is added to nor deleted from the variable.
4995 ))
4998 "Return T if first arg string is less than second in lexicographic order.
4999 If case-fold-search is non-nil, case of letters is ignored."
5005 "Return T if DATE1 is earlyer than DATE2."
5010 "Make sortable string by string-lessp from DATE.
5011 Timezone package is used."
5017 ;; Timezone package is used. But, we don't have to care about
5018 ;; the timezone since article's timezones are always GMT.
5020 ))
5022 ;;(defun gnus-sortable-date (date)
5023 ;; "Make sortable string by string-lessp from DATE."
5024 ;; (let ((month '(("JAN" . " 1")("FEB" . " 2")("MAR" . " 3")
5025 ;; ("APR" . " 4")("MAY" . " 5")("JUN" . " 6")
5026 ;; ("JUL" . " 7")("AUG" . " 8")("SEP" . " 9")
5027 ;; ("OCT" . "10")("NOV" . "11")("DEC" . "12")))
5028 ;; (date (or date "")))
5029 ;; ;; Can understand the following styles:
5030 ;; ;; (1) 14 Apr 89 03:20:12 GMT
5031 ;; ;; (2) Fri, 17 Mar 89 4:01:33 GMT
5032 ;; (if (string-match
5033 ;; "\\([0-9]+\\) \\([^ ,]+\\) \\([0-9]+\\) \\([0-9:]+\\)" date)
5034 ;; (concat
5035 ;; ;; Year
5036 ;; (substring date (match-beginning 3) (match-end 3))
5037 ;; ;; Month
5038 ;; (cdr
5039 ;; (assoc
5040 ;; (upcase (substring date (match-beginning 2) (match-end 2))) month))
5041 ;; ;; Day
5042 ;; (format "%2d" (string-to-int
5043 ;; (substring date
5044 ;; (match-beginning 1) (match-end 1))))
5045 ;; ;; Time
5046 ;; (substring date (match-beginning 4) (match-end 4)))
5047 ;; ;; Cannot understand DATE string.
5048 ;; date
5049 ;; )
5050 ;; ))
5053 "Return the value of the header FIELD of current article."
5065 "If FIELD of an article matches REGEXP, execute COMMAND.
5066 Optional 1st argument COMMAND is default to
5068 If optional 2nd argument ALL is non-nil, articles marked are also applied to.
5069 If FIELD is an empty string (or nil), entire article body is searched for.
5070 COMMAND must be a lisp expression or a string representing a key sequence."
5071 ;; We don't want to change current point nor window configuration.
5074 ;; Selected window must be Summary buffer to execute keyboard
5075 ;; macros correctly. See command_loop_1.
5081 )))
5084 "If FIELD of article header matches REGEXP, execute lisp FORM (or a string).
5085 If FIELD is an empty string (or nil), entire article body is searched for.
5086 If optional 1st argument BACKWARD is non-nil, do backward instead.
5087 If optional 2nd argument IGNORE-MARKED is non-nil, articles which are
5088 marked as read or unread are ignored."
5095 nil
5098 ;; Get access function of header filed.
5103 ;; Make FORM funcallable.
5106 ;; Starting from the current article.
5108 ;; Articles marked as read and unread should be ignored.
5112 ))
5116 ))
5120 ;; The point of Summary buffer must be saved during execution.
5123 nil ;Nothing to do.
5125 ;; Compare with header field.
5127 ;; gnus-newsgroup-headers article))
5133 ;; Number (Lines:) or symbol must be converted to string.
5140 ;; Search article body.
5155 ))
5156 )))
5158 ;;; caesar-region written by phr@prep.ai.mit.edu Nov 86
5159 ;;; modified by tower@prep Nov 86
5160 ;;; Modified by umerin@flab.flab.Fujitsu.JUNET for ROT47.
5163 "Caesar rotation of region by N, default 13, for decrypting netnews.
5164 ROT47 will be performed for Japanese text in any case."
5185 ;; ROT47 for Japanese text.
5186 ;; Thanks to ichikawa@flab.fujitsu.junet.
5210 ;; Functions accessing headers.
5211 ;; Functions are more convenient than macros in some case.
5214 "Return article number in HEADER."
5218 "Return subject string in HEADER."
5222 "Return author string in HEADER."
5226 "Return xref string in HEADER."
5230 "Return lines in HEADER."
5234 "Return date in HEADER."
5238 "Return Id in HEADER."
5242 "Return references in HEADER."
5245 \f
5246 ;;;
5247 ;;; Article savers.
5248 ;;;
5251 "Append the current article to an Rmail file named FILE-NAME."
5253 ;; Most of these codes are borrowed from rmailout.el.
5276 ;; Decide whether to append to a file or to an Emacs buffer.
5280 ;; File has been visited, in buffer OUTBUF.
5284 rmail-current-message)))
5285 ;; If MSG is non-nil, buffer is in RMAIL mode.
5299 )
5301 ))
5304 "Append the current article to a file named FILE-NAME."
5313 ;; Append newline at end of the buffer as separator, and then
5314 ;; save it to file.
5319 ))
5322 "Convert article in current buffer to Rmail message format."
5324 ;; Convert article directly into Babyl format.
5325 ;; Suggested by Rob Austein <sra@lcs.mit.edu>
5333 ;;(defun gnus-convert-article-to-rmail ()
5334 ;; "Convert article in current buffer to Rmail message format."
5335 ;; (let ((buffer-read-only nil))
5336 ;; ;; Insert special header of Unix mail.
5337 ;; (goto-char (point-min))
5338 ;; (insert "From "
5339 ;; (or (mail-strip-quoted-names (mail-fetch-field "from"))
5340 ;; "unknown")
5341 ;; " " (current-time-string) "\n")
5342 ;; ;; Stop quoting `From' since this seems unnecessary in most cases.
5343 ;; ;; ``Quote'' "\nFrom " as "\n>From "
5344 ;; ;;(while (search-forward "\nFrom " nil t)
5345 ;; ;; (forward-char -5)
5346 ;; ;; (insert ?>))
5347 ;; ;; Convert article to babyl format.
5348 ;; (rmail-convert-to-babyl-format)
5349 ;; ))
5351 \f
5352 ;;;
5353 ;;; Internal functions.
5354 ;;;
5357 "Open network stream to remote NNTP server.
5358 If optional argument CONFIRM is non-nil, ask you host that NNTP server
5359 is running even if it is defined.
5360 Run gnus-open-server-hook just before opening news server."
5362 ;; Stream is already opened.
5363 nil
5364 ;; Open NNTP server.
5367 ;; If someone has set the service to nil, then this should always
5368 ;; be the local host.
5371 ;; Read server name with completion.
5375 gnus-secondary-servers)
5376 nil nil gnus-nntp-server))
5380 ;; If no server name is given, local host is assumed.
5384 ;; gnus-nntp-server must be either (system-name), ':DIRECTORY', or
5385 ;; nntp server name. I mean '::' cannot be a value of
5386 ;; gnus-nntp-server.
5393 ;; :DIRECTORY
5409 ))
5411 ;; Dummy functions used only once. Should return nil.
5416 "Return a message returned from NNTP server.
5417 If no message is available and optional MESSAGE is given, return it."
5422 status message)))
5425 "Define access functions for the access METHOD.
5426 Methods definition is taken from optional argument ACCESS-METHODS or
5427 the variable gnus-access-methods."
5432 ;; Should not use symbol-function here since overload does not work.
5434 ;; Alist syntax is different from that of 3.14.3.
5437 )))
5440 "Select newsgroup GROUP.
5441 If optional argument SHOW-ALL is non-nil, all of articles in the group
5442 are selected."
5443 ;; Make sure a connection to NNTP server is alive.
5452 ;; Select all active articles.
5457 ;; Select unread articles only.
5459 ;; Require confirmation if selecting large newsgroup.
5462 nil
5471 "How many articles from %s (default %d): "
5472 gnus-newsgroup-name number))))
5480 ;; Select last N articles.
5484 ;; Select first N articles.
5490 ;; Otherwise select all.
5491 )
5492 ;; Get unselected unread articles.
5495 ))
5496 ))
5497 ;; Get headers list.
5499 ;; UNREADS may contain expired articles, so we have to remove
5500 ;; them from the list.
5507 gnus-newsgroup-headers)))
5508 ;; Marked article must be a subset of unread articles.
5511 gnus-newsgroup-unreads)
5514 ;; First and last article in this newsgroup.
5518 0
5519 ))
5524 0
5525 ))
5526 ;; File name that an article was saved last.
5531 ;; Reset article pointer etc.
5537 ;; Clear old hash tables for the variable gnus-newsgroup-headers.
5539 ;; GROUP is successfully selected.
5540 t
5541 )
5542 ))
5544 ;; Hacking for making header search much faster.
5547 "Return a header specified by a NUMBER.
5548 If the variable gnus-newsgroup-headers is updated, the hashed table
5549 gnus-newsgroup-headers-hashtb-by-number must be set to nil to indicate
5550 rehash is necessary."
5554 gnus-newsgroup-headers-hashtb-by-number))
5557 "Return a header specified by an ID.
5558 If the variable gnus-newsgroup-headers is updated, the hashed table
5559 gnus-newsgroup-headers-hashtb-by-id must be set to nil to indicate
5560 rehash is necessary."
5567 "Make hashtable for the variable gnus-newsgroup-headers by number."
5575 header gnus-newsgroup-headers-hashtb-by-number)
5577 )))
5580 "Make hashtable for the variable gnus-newsgroup-headers by id."
5588 header gnus-newsgroup-headers-hashtb-by-id)
5590 )))
5593 "Clear hash tables created for the variable gnus-newsgroup-headers."
5598 "Find new header backward."
5607 header
5608 ))
5611 "Find new header forward."
5620 header
5621 ))
5624 "Extend newsgroup selection with HEADER.
5625 Optional argument BACKWARD means extend toward backward."
5632 ;; Clear current hash tables for the variable gnus-newsgroup-headers.
5634 ;; We have to update unreads and unselected, but don't have to
5635 ;; care about gnus-newsgroup-marked.
5643 )))
5646 "Remember that ARTICLE is marked as read."
5647 ;; Remove from unread and marked list.
5654 "Remember that ARTICLE is marked as unread.
5655 Optional argument CLEAR-MARK means ARTICLE should not be remembered
5656 that it was marked as read once."
5657 ;; Add to unread list.
5661 ;; If CLEAR-MARK is non-nil, the article must be removed from marked
5662 ;; list. Otherwise, it must be added to the list.
5671 "Clear all variables and buffer."
5672 ;; Clear GNUS variables.
5677 ;; Clear other internal variables.
5687 ;; Kill the startup file.
5692 ;; Kill GNUS buffers.
5698 )))
5701 "Configure GNUS windows according to the next ACTION.
5702 The ACTION is either a symbol, such as `summary', or a
5703 configuration list such as `(1 1 2)'. If ACTION is not a list,
5704 configuration list is got from the variable gnus-window-configuration."
5723 ;; No need to change window configuration.
5724 nil
5726 ;; First of all, compute the height of each window.
5728 ;; Take up the entire screen.
5735 ;; The Newsgroup buffer exits always. So, use it to extend the
5736 ;; Group window so as to get enough window space.
5742 ;; Compute expected window height.
5755 ;; Then split the window.
5763 ;; Then select buffers in each window.
5774 ;; If Article buffer does not exist, it will be created
5775 ;; and initialized.
5778 )
5779 ))
5782 "Return a header which is a element of HEADERS and has NUMBER."
5785 ;; We cannot use `=' to accept non-numeric NUMBER.
5789 found
5790 ))
5793 "Return a header which is a element of HEADERS and has Message-ID."
5799 found
5800 ))
5803 "Version numbers of this version of GNUS."
5807 gnus-version nntp-version nnspool-version mhspool-version))
5810 gnus-version nntp-version mhspool-version))
5813 gnus-version nntp-version nnspool-version))
5818 "Find Info documentation of GNUS."
5821 ;; Enlarge info window if needed.
5831 "Overload functions specified by optional argument OVERLOADS.
5832 If nothing is specified, use the variable gnus-overload-functions."
5838 ;; Load file before overloading function if necessary. Make
5839 ;; sure we cannot use `require' always.
5844 )))
5847 "Make conversation threads tree from NEWSGROUP-HEADERS."
5854 ;; Make message dependency alist.
5858 ;; Ignore invalid headers.
5861 ;; Ignore broken references, e.g "<123@a.b.c".
5865 ;; (gnus-find-header-by-id
5866 ;; newsgroup-headers
5867 ;; (substring refer (match-beginning 1) (match-end 1)))
5868 ;; In fact if the variable newsgroup-headers
5869 ;; is not 'equal' to the variable
5870 ;; gnus-newsgroup-headers, the following
5871 ;; function call may return bogus value.
5874 ))
5875 ;; Check subject equality.
5882 ;; H should be a thread root.
5884 ;; H depends on D.
5887 ;; H is a thread root.
5890 ))
5891 )
5892 ;; Make complete threads from the roots.
5893 ;; Note: dependencies are in reverse order, but
5894 ;; gnus-make-threads-1 processes it in reverse order again. So,
5895 ;; we don't have to worry about it.
5900 ))
5906 ;; Find children.
5913 ;; Go down.
5919 ))
5922 "Make text outside current page invisible except for page delimiter.
5923 A numeric arg specifies to move forward or backward by that many pages,
5924 thus showing a page other than the one point was originally in."
5934 ;; Find the end of the page.
5936 ;; If we stopped due to end of buffer, stay there.
5937 ;; If we stopped after a page delimiter, put end of restriction
5938 ;; at the beginning of that line.
5939 ;; These are commented out.
5940 ;; (if (save-excursion (beginning-of-line)
5941 ;; (looking-at page-delimiter))
5942 ;; (beginning-of-line))
5945 ;; Find the top of the page.
5947 ;; If we found beginning of buffer, stay there.
5948 ;; If extra text follows page delimiter on same line,
5949 ;; include it.
5950 ;; Otherwise, show text starting with following line.
5954 ))
5956 ;; Create hash table for alist, such as gnus-newsrc-assoc,
5957 ;; gnus-killed-assoc, and gnus-marked-assoc.
5960 "Return hash table for ALIST.
5961 Optional argument HASHSIZE specifies the hashtable size.
5962 Hash key is a car of alist element, which must be a string."
5967 hashtb)
5969 hashtb
5970 ))
5973 "Return last element of LIST."
5979 last
5980 ))
5983 "Return a list of elements of LIST1 that do not appear in LIST2."
5988 list1
5989 ))
5992 "Return a list of elements that appear in both LIST1 and LIST2."
5998 result
5999 ))
6001 \f
6002 ;;;
6003 ;;; Get information about active articles, already read articles, and
6004 ;;; still unread articles.
6005 ;;;
6007 ;; GNUS internal format of gnus-newsrc-assoc and gnus-killed-assoc:
6008 ;; (("general" t (1 . 1))
6009 ;; ("misc" t (1 . 10) (12 . 15))
6010 ;; ("test" nil (1 . 99)) ...)
6011 ;; GNUS internal format of gnus-marked-assoc:
6012 ;; (("general" 1 2 3)
6013 ;; ("misc" 2) ...)
6014 ;; GNUS internal format of gnus-active-hashtb:
6015 ;; (("general" t (1 . 1))
6016 ;; ("misc" t (1 . 10))
6017 ;; ("test" nil (1 . 99)) ...)
6018 ;; GNUS internal format of gnus-unread-hashtb:
6019 ;; (("general" 1 (1 . 1))
6020 ;; ("misc" 14 (1 . 10) (12 . 15))
6021 ;; ("test" 99 (1 . 99)) ...)
6024 "Setup news information.
6025 If optional argument RAWFILE is non-nil, force to read raw startup file."
6027 gnus-active-hashtb
6028 gnus-unread-hashtb
6030 ))))
6031 ;; We have to clear some variables to re-initialize news info.
6034 gnus-active-hashtb nil
6035 gnus-unread-hashtb nil))
6037 ;; Initialize only once.
6040 ;; Get distributions only once.
6042 ;; newsrc file must be read after reading active file since
6043 ;; its size is used to guess the size of gnus-newsrc-hashtb.
6045 ))
6048 ;; Check new newsgroups and subscribe them.
6054 )))
6055 ))
6058 "Subscribe new NEWSGROUP safely and put it at top."
6066 "Looking for new newsgroups and return names.
6067 `-n' option of options line in .newsrc file is recognized."
6074 ;; Taking account of `-n' option.
6081 ;; Find new newsgroup.
6084 ))
6085 gnus-active-hashtb)
6086 ;; Return new newsgroups.
6087 new-newsgroups
6088 ))
6091 "Kill GROUP from gnus-newsrc-assoc, .newsrc and gnus-unread-hashtb."
6094 nil
6095 ;; Delete from gnus-newsrc-assoc and gnus-newsrc-hashtb.
6098 ;; Add to gnus-killed-assoc and gnus-killed-hashtb.
6102 gnus-killed-assoc)))
6104 ;; Clear unread hashtable.
6105 ;; Thanks cwitty@csli.Stanford.EDU (Carl Witty).
6107 ;; Then delete from .newsrc
6109 ;; Return the deleted newsrc entry.
6110 info
6111 )))
6114 "Insert newsrc INFO entry before NEXT.
6115 If optional argument NEXT is nil, appended to the last."
6122 ;; Check duplication.
6125 ;; Insert to gnus-newsrc-assoc and gnus-newsrc-hashtb.
6132 ;; Seach insertion point.
6138 ))
6139 ;; Find it.
6142 ;; gnus-newsrc-assoc must be nil.
6145 ))
6147 ;; Delete from gnus-killed-assoc and gnus-killed-hashtb.
6151 ;; Then insert to .newsrc.
6153 ;; Add to gnus-unread-hashtb.
6157 gnus-unread-hashtb)
6158 ))
6161 "Check consistency between gnus-newsrc-assoc and gnus-killed-assoc.
6162 gnus-killed-hashtb is also updated."
6173 ;; Subscribed in options line and not in gnus-newsrc-assoc.
6177 )
6181 ))
6184 "Delete bogus newsgroups.
6185 If optional argument CONFIRM is non-nil, confirm deletion of newsgroups."
6195 ;; Update gnus-newsrc-assoc and gnus-newsrc-hashtb.
6202 ;; Active newsgroup.
6204 ;; Found a bogus newsgroup.
6207 )
6211 ;; Update gnus-killed-assoc and gnus-killed-hashtb.
6212 ;; The killed newsgroups are deleted without any confirmations.
6217 ;; Active and really killed newsgroup.
6220 )
6224 ;; Remove BOGUS from .newsrc file.
6228 ;; Update gnus-marked-assoc and gnus-marked-hashtb.
6239 ))
6242 "Compute diffs between active and read articles."
6257 ;; Is nothing changed?
6260 ;; Is this newsgroup in the unread hash table?
6262 )
6263 nil ;Nothing to do.
6269 gnus-unread-hashtb)
6270 )
6272 )
6274 ))
6277 "Check expired article which is marked as unread."
6292 ;; This article is still active.
6302 ))
6306 "Mark articles as read using cross references and return updated newsgroups.
6307 Arguments are GROUP, HEADERS, UNREADS, and optional SUBSCRIBED-ONLY."
6317 ;; This article is not yet marked as read.
6318 nil
6320 ;; For each cross reference info. in one Xref: field.
6326 ;; Ignore unsubscribed newsgroup if requested.
6329 ;; Ignore article marked as unread.
6334 nil ;Alread marked.
6336 ;; Create new assoc entry for GROUP.
6338 ))
6340 ))
6342 ;; Mark cross referenced articles as read.
6344 ;;(message "%s %s" (prin1-to-string unreads) (prin1-to-string xref-list))
6345 ;; Return list of updated group name.
6347 ))
6350 "Parse Xref: field value, and return list of `(group . article-id)'."
6353 ;; Remove server host name.
6357 ;; Process each xref info.
6365 ;; Group name
6367 ;; Article-ID
6370 xref-list))
6373 ;; Return alist.
6374 xref-list
6375 ))
6378 "Update unread article information using XREFS alist."
6392 )))
6395 "Update unread articles of GROUP using UNREAD-LIST and MARKED-LIST."
6399 ;; Ignore unknown newsgroup.
6400 nil
6401 ;; Update gnus-unread-hashtb.
6405 ;; All of the articles are read.
6407 ;; Number of unread articles.
6410 ;; Update gnus-newsrc-assoc.
6412 ;; Articles from 1 to N are not active.
6416 ;; Update .newsrc buffer.
6418 ;; Update gnus-marked-assoc.
6425 ;; hashtb must share the same cons cell.
6429 ))
6430 )))
6431 )))
6434 "Get active file from NNTP server."
6435 ;; Make sure a connection to NNTP server is alive.
6446 "Convert active file format to internal format.
6447 Lines matching gnus-ignored-newsgroups are ignored."
6448 ;; Delete unnecessary lines.
6450 ;;(delete-matching-lines "^to\\..*$")
6452 ;; Save OLD active info.
6454 ;; Make large enough hash table.
6457 ;; Store active file in hashtable.
6462 nil t)
6472 gnus-active-hashtb)
6473 ))
6476 "Read startup FILE.
6477 If optional argument RAWFILE is non-nil, the raw startup file is read."
6479 ;; Reset variables which may be included in the quick startup file.
6488 ;; Prepare .newsrc buffer.
6490 ;; It is not so good idea turning off undo.
6491 ;;(buffer-flush-undo (current-buffer))
6492 ;; Load quick .newsrc to restore gnus-marked-assoc and
6493 ;; gnus-killed-assoc even if gnus-newsrc-assoc is out of date.
6497 ;; Recreate hashtables.
6502 )
6505 ;; .newsrc.el is newer than .newsrc.
6506 ;; Do it this way in case timestamps are identical
6507 ;; (on fast machines/disks).
6509 quick-loaded
6510 gnus-newsrc-assoc ;Really loaded?
6511 )
6512 ;; We don't have to read the raw startup file.
6513 ;; gnus-newsrc-assoc may be defined in the quick startup file.
6514 ;; So, we have to define the hashtable here.
6518 ;; Since .newsrc file is newer than quick file, read it.
6523 )))
6526 "Make server dependent file name by catenating FILE and server host name."
6530 real-file file)
6531 ))
6534 "Parse current buffer as .newsrc file."
6540 ;; We have to re-initialize these variable (except for
6541 ;; gnus-marked-assoc and gnus-killed-assoc) because quick startup
6542 ;; file may contain bogus values.
6547 ;; Make large enough hash table.
6552 ;; Save options line to variable.
6553 ;; Lines beginning with white spaces are treated as continuation
6554 ;; line. Refer man page of newsrc(5).
6559 ;; Save entire options line.
6562 ;; Compile "-n" option.
6569 ))
6570 ))
6571 ;; Parse body of .newsrc file
6572 ;; Options line continuation lines must be also considered here.
6573 ;; Before supporting continuation lines, " newsgroup ! 1-5" was
6574 ;; okay, but now it is invalid. It should be "newsgroup! 1-5".
6576 ;; Due to overflows in regex.c, change the following regexp:
6577 ;; "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(.*\\)$"
6578 ;; Suggested by composer@bucsf.bu.edu (Jeff Kellem)
6579 ;; but no longer viable because of extensive backtracking in Emacs 19:
6580 ;; "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(\\(...\\)*.*\\)$"
6581 ;; but, the following causes trouble on some case:
6582 ;; "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(\\|[^ \t\n].*\\)$"
6587 nil t)
6589 ;; Check duplications of newsgroups.
6590 ;; Note: Checking the duplications takes very long time.
6610 read-list)))
6615 read-list)))
6619 ))
6622 gnus-newsrc-assoc))
6623 ;; Update gnus-newsrc-hashtb one by one.
6625 ))
6627 ))
6630 "Parse -n NEWSGROUPS options and return a cons of YES and NO regexps."
6635 ;; Parse each newsgroup description such as "comp.all". Commas
6636 ;; and white spaces can be a newsgroup separator.
6646 ;; Rewrite "all" to ".+" not ".*". ".+" requires at least one
6647 ;; character.
6651 ".+"
6653 ;; It is yes or no.
6659 )
6660 ;; Make a cons of regexps from parsing result.
6661 ;; We have to append \(\.\|$\) to prevent matching substring of
6662 ;; newsgroup. For example, "jp.net" should not match with
6663 ;; "jp.network".
6664 ;; Fixes for large regexp problems are from yonezu@nak.math.keio.ac.jp.
6683 ))
6686 "Save to .newsrc FILE."
6687 ;; Note: We cannot save .newsrc file if all newsgroups are removed
6688 ;; from the variable gnus-newsrc-assoc.
6690 gnus-current-startup-file
6692 ;; A buffer containing .newsrc file may be deleted.
6700 ;; Make backup file of master newsrc.
6701 ;; You can stop or change version control of backup file.
6702 ;; Suggested by jason@violet.berkeley.edu.
6705 ;; Quickly loadable .newsrc.
6716 ))
6717 ))
6720 "Incrementally update .newsrc buffer about GROUP.
6721 If optional 1st argument DELETE is non-nil, delete the group.
6722 If optional 2nd argument NEXT is non-nil, inserted before it."
6724 ;; Taking account of the killed startup file.
6725 ;; Suggested by tale@pawl.rpi.edu.
6728 ;; Options line continuation lines must be also considered here.
6729 ;; Before supporting continuation lines, " newsgroup ! 1-5" was
6730 ;; okay, but now it is invalid. It should be "newsgroup! 1-5".
6734 ;; Delete ALL entries which match for GROUP.
6741 )
6743 nil
6744 ;; Insert group entry.
6747 nil
6748 ;; Find insertion point.
6760 ;; Insert after options line.
6764 ;; Skip continuation lines.
6772 )))
6773 )))
6776 "Insert GNUS variables such as gnus-newsrc-assoc in lisp format."
6781 ;; Temporary rebind to make changes
6782 ;; gnus-check-killed-newsgroups in invisible.
6785 ;; Remove duplicated or unsubscribed newsgroups in
6786 ;; gnus-killed-assoc (and gnus-killed-hashtb).
6788 ;; Then, insert lisp expressions.
6797 ))
6800 "Insert ranges of read articles."
6810 ))
6813 "-"
6816 ))
6817 )))
6820 "Convert list of sorted numbers to ranges."
6833 )
6835 )
6837 ))
6840 "Expand compressed format of sequence."
6852 )
6854 ))
6857 "Compute number of articles from RANGE `((beg1 . end1) (beg2 . end2) ...)'."
6861 ;; If end1 is 0, it must be skipped. Usually no articles in
6862 ;; this group.
6865 )
6866 count ;Result
6867 ))
6870 "Compute (SRC - OBJ) on range.
6871 Range of SRC is expressed as `(beg . end)'.
6872 Range of OBJ is expressed as `((beg1 . end1) (beg2 . end2) ...)."
6876 ;; Src may be nil.
6887 )
6889 ))
6890 ;; Src may be nil.
6893 ;; Result
6897 ))
6900 "Get distributions file from NNTP server (NNTP2 functionality)."
6901 ;; Make sure a connection to NNTP server is alive.
6910 ;; It's not a fatal error.
6911 ;;(error "Cannot read distributions file from NNTP server.")
6912 )
6913 ;; Merge with user supplied default distributions.
6924 )))
6927 "Convert distributions file format to internal format."
6933 gnus-distribution-list)))
6937 ;; Some older version of GNU Emacs does not support function
6938 ;; `file-newer-than-file-p'.
6942 "Return t if file FILE1 is newer than file FILE2.
6943 If FILE1 does not exist, the answer is nil;
6944 otherwise, if FILE2 does not exist, the answer is t."
6953 ))))
6955 \f
6956 ;;Local variables:
6957 ;;eval: (put 'gnus-eval-in-buffer-window 'lisp-indent-hook 1)
6958 ;;end:
6960 ;;; gnus.el ends here