| blob | ea56efd1b735c5663c2e51a0efe20f469089be13 |
1 ;;; gnus.el --- GNUS: an NNTP-based News Reader for GNU Emacs
3 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
4 ;; Last-Modified: 10 Jun 1992
6 ;; $Header: gnus.el,v 3.13 90/03/23 13:24:27 umerin Locked $
8 ;; Copyright (C) 1987, 1988, 1989, 1990 Free Software Foundation, Inc.
10 ;; This file is part of GNU Emacs.
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; any later version.
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs; see the file COPYING. If not, write to
24 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
26 ;;; Commentary:
28 ;; GNUS Mailing List:
29 ;; There are two mailing lists for GNUS lovers in the world:
30 ;;
31 ;; info-gnus@flab.fujitsu.co.jp, and
32 ;; info-gnus-english@tut.cis.ohio-state.edu.
33 ;;
34 ;; They are intended to exchange useful information about GNUS, such
35 ;; as bug fixes, useful hooks, and extensions. The major difference
36 ;; between the lists is what the official language is. Both Japanese
37 ;; and English are available in info-gnus, while English is only
38 ;; available in info-gnus-english. There is no need to subscribe to
39 ;; info-gnus if you cannot read Japanese messages, because most of the
40 ;; discussion and important announcements will be sent to
41 ;; info-gnus-english. Moreover, if you can read gnu.emacs.gnus
42 ;; newsgroup of USENET, you need not, either. info-gnus-english and
43 ;; gnu.emacs.gnus are linked each other.
44 ;;
45 ;; Please send subscription request to:
46 ;;
47 ;; info-gnus-request@flab.fujitsu.co.jp, or
48 ;; info-gnus-english-request@cis.ohio-state.edu
50 ;; TO DO:
51 ;; (1) Incremental update of active info.
52 ;; (2) GNUS own poster.
53 ;; (3) Multi-GNUS (Talking to many hosts same time).
54 ;; (4) Asynchronous transmission of large messages.
56 ;;; Code:
63 gnus-default-nntp-server))
64 "The name of the host running NNTP server.
65 If it is a string such as `:DIRECTORY', the user's private DIRECTORY
66 is used as a news spool.
76 "Specifies what to do with cross references (Xref: field).
77 If nil, ignore cross references. If t, mark articles as read in subscribed
81 "*Specifies what to do with Followup-To: field.
82 If nil, ignore followup-to: field. If t, use its value execpt for
86 "*The number of articles which indicates a large newsgroup.
87 If the number of articles in a newsgroup is greater than the value,
91 "*Filename for saving a copy of an article posted using FCC: field.
92 Initialized from the AUTHORCOPY environment variable.
94 Articles are saved using a function specified by the the variable
95 `gnus-author-copy-saver' (`rmail-output' is the default) if a file name
96 is given. Instead, if the first character of the name is `|', the
97 contents of the article is piped out to the named program. It is
98 possible to save an article in an MH folder as follows:
103 "*A function called with a file name to save an author copy to.
108 "Non-nil means that a newsgroup name is used as a default file name
109 to save articles to. If nil, the directory form of a newsgroup is
113 "*The directory in which to save articles; defaults to ~/News.
117 "A function used to save articles in your favorite format.
118 The function must be interactively callable (in other words, it must
119 be an Emacs command).
121 GNUS provides the following functions:
122 gnus-Subject-save-in-rmail (in Rmail format)
123 gnus-Subject-save-in-mail (in Unix mail format)
124 gnus-Subject-save-in-folder (in an MH folder)
128 "A function generating a file name to save articles in Rmail format.
132 "A function generating a file name to save articles in Unix mail format.
136 "A function generating a file name to save articles in MH folder.
140 "A function generating a file name to save articles in article format.
150 "*Non-nil means that you are a novice to USENET.
151 If non-nil, verbose messages may be displayed or your confirmation
158 "*The login name of the user.
162 "*The full name of the user.
172 "*Non-nil means hide thread subtrees initially.
173 If non-nil, you have to run the command `gnus-Subject-show-thread' by
180 "*Don't take care of subject differences, but only references if non-nil.
187 "^Path:\\|^Posting-Version:\\|^Article-I.D.:\\|^Expires:\\|^Date-Received:\\|^References:\\|^Control:\\|^Xref:\\|^Lines:\\|^Posted:\\|^Relay-Version:\\|^Message-ID:\\|^Nf-ID:\\|^Nf-From:\\|^Approved:\\|^Sender:\\|^In-Reply-To:"
197 "A function generating a optional string displayed in GNUS Subject
198 mode buffer. The function is called with an article HEADER. The
205 "*Select the first unread article automagically if non-nil.
206 If you want to prevent automatic selection of the first unread article
207 in some newsgroups, set the variable to nil in `gnus-Select-group-hook'
211 "*Select the next newsgroup automagically if non-nil.
212 If the value is t and the next newsgroup is empty, GNUS will exit
213 Subject mode and go back to Group mode. If the value is neither nil
214 nor t, GNUS will select the following unread newsgroup. Especially, if
215 the value is the symbol `quietly', the next unread newsgroup will be
225 "*Break an article into pages if non-nil.
245 "Specify window configurations for each action.
246 The format of the variable is a list of (ACTION (G S A)), where
247 G, S, and A are the relative height of Group, Subject, and Article
248 windows, respectively. ACTION is `SelectNewsgroup', `ExitNewsgroup',
253 "A function to compose reply mail.
254 The function `gnus-mail-reply-using-mail' uses usual the sendmail mail
255 program. The function `gnus-mail-reply-using-mhe' uses the mh-e mail
260 "A function to compose mail in other window.
261 The function `gnus-mail-other-window-using-mail' uses usual sendmail
262 mail program. The function `gnus-mail-other-window-using-mhe' uses mh-e
288 "A hook called at start up time.
289 This hook is called after GNUS is connected to the NNTP server.
290 So, it is possible to change the behavior of GNUS according to the
294 "A hook called after newsgroup list is created in the Newsgroup buffer.
298 "A hook called after subject list is created in the Subject buffer.
302 "A hook called after an article is prepared in the Article buffer.
306 "A hook called when a newsgroup is selected.
307 If you want to sort Subject buffer by date and then by subject, you
308 can use the following hook:
310 (setq gnus-Select-group-hook
311 '(lambda ()
312 ;; First of all, sort by date.
313 (gnus-sort-headers
314 '(lambda (a b)
315 (gnus-date-lessp (gnus-header-date a)
316 (gnus-header-date b))))
317 ;; Then sort by subject string ignoring `Re:'.
318 ;; If case-fold-search is non-nil, case of letters is ignored.
319 (gnus-sort-headers
320 '(lambda (a b)
321 (gnus-string-lessp
322 (gnus-simplify-subject (gnus-header-subject a) 're)
323 (gnus-simplify-subject (gnus-header-subject b) 're)
324 )))))
326 If you'd like to simplify subjects like the `gnus-Subject-next-same-subject'
327 command does, you can use the following hook:
329 (setq gnus-Select-group-hook
330 '(lambda ()
331 (mapcar (function
332 (lambda (header)
333 (nntp-set-header-subject
334 header
335 (gnus-simplify-subject
336 (gnus-header-subject header) 're-only))))
337 gnus-newsgroup-headers)))
339 In some newsgroups author name is meaningless. It is possible to
340 prevent listing author names in the GNUS Subject buffer as follows:
342 (setq gnus-Select-group-hook
343 '(lambda ()
345 (setq gnus-optional-headers
346 (function gnus-optional-lines)))
347 (t
348 (setq gnus-optional-headers
353 "Hook called when an article is selected.
354 The default hook automatically shows conversation thread subtrees
355 of the selected article as follows:
357 (setq gnus-Select-article-hook
358 '(lambda ()
359 (gnus-Subject-show-thread)))
361 If you'd like to run RMAIL on a digest article automagically, you can
362 use the following hook:
364 (setq gnus-Select-article-hook
365 '(lambda ()
366 (gnus-Subject-show-thread)
368 (gnus-Subject-rmail-digest))
371 (gnus-header-subject gnus-current-headers)))
372 (gnus-Subject-rmail-digest)
378 ;; Reply-To: is required by `undigestify-rmail-message'.
383 "A hook called when reading digest messages using Rmail.
384 This hook can be used to modify incomplete digest articles as follows
385 (this is the default):
387 (setq gnus-Select-digest-hook
388 '(lambda ()
389 ;; Reply-To: is required by `undigestify-rmail-message'.
391 (progn
396 "A hook called when reading digest messages using Rmail.
400 "A hook called when a newsgroup is selected and subject list is prepared.
401 This hook is intended to apply a KILL file to the selected newsgroup.
402 The function `gnus-apply-kill-file' is called defaultly.
404 Since a general KILL file is too heavy to use for only a few
405 newsgroups, we recommend you use a lighter hook function. For
406 example, if you'd like to apply a KILL file to articles which contains
407 a string `rmgroup' in subject in newsgroup `control', you can use the
408 following hook:
410 (setq gnus-Apply-kill-hook
411 '(lambda ()
422 "A hook called when an article is selected for the first time.
423 The hook is intended to mark an article as read when it is selected.
424 If you'd like to mark as unread (-) instead, use the following hook:
426 (setq gnus-Mark-article-hook
427 '(lambda ()
428 (gnus-Subject-mark-as-unread gnus-current-article)
432 "A hook called before posting an article.
436 "A hook called when exiting (not quitting) Subject mode.
437 If your machine is so slow that exiting from Subject mode takes a
438 long time, set the variable `gnus-newsgroup-headers' to nil. This
448 "A hook called when saving the newsrc file.
453 The environment variable DOMAINNAME is used instead if defined. If
454 the function `system-name' returns the full internet name, there is no
462 "*If nil, prepend local host name to the defined domain in the From:
466 "*If nil, use the NNTP server name in the Path: field; if stringp,
468 \f
469 ;; Internal variables.
523 gnus-Digest-buffer gnus-Digest-summary-buffer)
528 gnus-newsrc-options-n-yes gnus-newsrc-options-n-no
529 gnus-newsrc-assoc gnus-killed-assoc gnus-marked-assoc)
535 "Functions overloaded by gnus.
603 ;; Save window configuration.
614 ;; Define GNUS Subsystems.
650 \f
651 ;;(put 'gnus-eval-in-buffer-window 'lisp-indent-function 1)
654 "Pop to BUFFER, evaluate FORMS, and then returns to original window."
666 "Get hash value of STRING in HASHTABLE."
667 ;;(` (symbol-value (abbrev-symbol (, string) (, hashtable))))
671 "Set hash value. Arguments are STRING, VALUE, and HASHTABLE."
672 ;; We cannot use define-abbrev since it only accepts string as value.
675 ;; Note: Macros defined here are also defined in nntp.el. I don't like
676 ;; to put them here, but many users got troubled with the old
677 ;; definitions in nntp.elc. These codes are NNTP 3.10 version.
680 "Return article number in HEADER."
684 "Set article number of HEADER to NUMBER."
688 "Return subject string in HEADER."
692 "Set article subject of HEADER to SUBJECT."
696 "Return author string in HEADER."
700 "Set article author of HEADER to FROM."
704 "Return xref string in HEADER."
708 "Set article xref of HEADER to xref."
712 "Return lines in HEADER."
716 "Set article lines of HEADER to LINES."
720 "Return date in HEADER."
724 "Set article date of HEADER to DATE."
728 "Return Id in HEADER."
732 "Set article Id of HEADER to ID."
736 "Return references in HEADER."
740 "Set article references of HEADER to REF."
743 \f
744 ;;;
745 ;;; GNUS Group Mode
746 ;;;
749 nil
792 "Major mode for reading network news.
793 All normal editing commands are turned off.
794 Instead, these commands are available:
797 The name of the host running NNTP server is asked for if no default
798 host is specified. It is also possible to choose another NNTP server
799 even when the default server is defined by giving a prefix argument to
802 If an NNTP server is preceded by a colon such as `:Mail', the user's
803 private directory `~/Mail' is used as a news spool. This makes it
804 possible to read mail stored in MH folders or articles saved by GNUS.
805 File names of mail or articles must consist of only numeric
806 characters. Otherwise, they are ignored.
808 If there is a file named `~/.newsrc-SERVER', it is used as the
809 startup file instead of standard one when talking to SERVER. It is
810 possible to talk to many hosts by using different startup files for
811 each.
813 Option `-n' of the options line in the startup file is recognized
814 properly the same as the Bnews system. For example, if the options
815 line is `options -n !talk talk.rumors', newsgroups under the `talk'
816 hierarchy except for `talk.rumors' are ignored while checking new
817 newsgroups.
819 If there is a file named `~/.signature-DISTRIBUTION', it is used as
820 signature file instead of standard one when posting a news in
821 DISTRIBUTION.
823 If an Info file generated from `gnus.texinfo' is installed, you can
824 read an appropriate Info node of the Info file according to the
827 The variable `gnus-version', `nntp-version', `nnspool-version', and
828 `mhspool-version' have the version numbers of this version of gnus.el,
829 nntp.el, nnspool.el, and mhspoo.el, respectively.
831 User customizable variables:
832 gnus-nntp-server
833 Specifies the name of the host running the NNTP server. If its
834 value is a string such as `:DIRECTORY', the user's private
835 DIRECTORY is used as a news spool. If its value is `::', then
836 the local news spool on the current machine is used directly.
837 The `NNTPSERVER' environment variable specifies the initial value
838 for this variable.
840 gnus-nntp-service
843 gnus-startup-file
844 Specifies a startup file (.newsrc). If there is a file named
845 `.newsrc-SERVER', it's used instead when talking to SERVER. I
846 recommend you to use the server specific file, if you'd like to
847 talk to many servers. Especially if you'd like to read your
848 private directory, the name of the file must be
849 `.newsrc-:DIRECTORY'.
851 gnus-signature-file
852 Specifies a signature file (.signature). If there is a file named
853 `.signature-DISTRIBUTION', it's used instead when posting an
854 article in DISTRIBUTION. Set the variable to nil to prevent
855 appending the file automatically. If you use an NNTP inews which
856 comes with the NNTP package, you may have to set the variable to
857 nil.
859 gnus-use-cross-reference
860 Specifies what to do with cross references (Xref: field). If it
861 is nil, cross references are ignored. If it is t, articles in
862 subscribed newsgroups are only marked as read. Otherwise, if it
863 is not nil nor t, articles in all newsgroups are marked as read.
865 gnus-use-followup-to
866 Specifies what to do with followup-to: field. If it is nil, its
867 value is ignored. If it is non-nil, its value is used as followup
868 newsgroups. Especially, if it is t and field value is `poster',
869 your confirmation is required.
871 gnus-author-copy
872 Specifies a file name to save a copy of article you posted using
873 FCC: field. If the first character of the value is `|', the
874 contents of the article is piped out to a program specified by the
875 rest of the value. The variable is initialized from the
876 AUTHORCOPY environment variable.
878 gnus-author-copy-saver
879 Specifies a function to save an author copy. The function is
880 called with a file name. The default function `rmail-output'
881 saves in Unix mail format.
883 gnus-kill-file-name
884 Use specified file name as a KILL file (default to `KILL').
886 gnus-novice-user
887 Non-nil means that you are a novice to USENET. If non-nil,
888 verbose messages may be displayed or your confirmations may be
889 required.
891 gnus-interactive-post
892 Non-nil means that newsgroup, subject and distribution are asked
893 for interactively when posting a new article.
895 gnus-use-full-window
896 Non-nil means to take up the entire screen of Emacs.
898 gnus-window-configuration
899 Specifies the configuration of Group, Subject, and Article
900 windows. It is a list of (ACTION (G S A)), where G, S, and A are
901 the relative height of Group, Subject, and Article windows,
902 respectively. ACTION is `SelectNewsgroup', `ExitNewsgroup',
903 `SelectArticle', or `ExpandSubject'.
905 gnus-subscribe-newsgroup-method
906 Specifies a function called with a newsgroup name when new
907 newsgroup is found. The default definition adds new newsgroup at
908 the beginning of other newsgroups.
910 Various hooks for customization:
911 gnus-Group-mode-hook
912 Entry to this mode calls the value with no arguments, if that
913 value is non-nil. This hook is called before GNUS is connected to
914 the NNTP server. So, you can change or define the NNTP server in
915 this hook.
917 gnus-Startup-hook
918 Called with no arguments after the NNTP server is selected. It is
919 possible to change the behavior of GNUS or initialize the
920 variables according to the selected NNTP server.
922 gnus-Group-prepare-hook
923 Called with no arguments after a newsgroup list is created in the
924 Newsgroup buffer, if that value is non-nil.
926 gnus-Save-newsrc-hook
927 Called with no arguments when saving newsrc file if that value is
928 non-nil.
930 gnus-Inews-article-hook
931 Called with no arguments when posting an article if that value is
932 non-nil. This hook is called just before posting an article, while
933 `news-inews-hook' is called before preparing article headers. If
934 you'd like to convert kanji code of the article, this hook is recommended.
936 gnus-Suspend-gnus-hook
937 Called with no arguments when suspending (not exiting) GNUS, if
938 that value is non-nil.
940 gnus-Exit-gnus-hook
941 Called with no arguments when exiting (not suspending) GNUS, if
942 that value is non-nil."
945 ;; Gee. Why don't you upgrade?
963 ;;;###autoload
965 "Read network news.
966 If optional argument CONFIRM is non-nil, ask NNTP server."
975 ;; NNTP server is successfully open.
986 )))
989 "Insert startup message in current buffer."
990 ;; Insert the message.
992 GNUS Version 3.13
994 NNTP-based News Reader for GNU Emacs
997 If you have any trouble with this software, please let me
998 know. I will fix your problems in the next release.
1000 Comments, suggestions, and bug fixes are welcome.
1002 Masanobu UMEDA
1004 ;; And then hack it.
1005 ;; 57 is the longest line.
1008 ;; +4 is fuzzy factor.
1012 "List newsgroups in the Newsgroup buffer.
1013 If argument SHOW-ALL is non-nil, unsubscribed groups are also listed."
1028 ;; Go to last newsgroup if possible. If cannot, try next and
1029 ;; previous. If all fail, go to first unread newsgroup.
1041 ;; Adjust cursor point.
1044 )))
1047 "Prepare list of newsgroups in current buffer.
1048 If optional argument ALL is non-nil, unsubscribed groups are also listed."
1054 ;; This specifies the format of Group buffer.
1057 ;; List newsgroups.
1065 ;; Yes, I can use gnus-Group-prepare-line, but this is faster.
1068 ;; Subscribed or not.
1070 ;; Has new news?
1076 gnus-marked-assoc))))))
1078 ;; Number of unread articles.
1079 unread-count
1080 ;; Newsgroup name.
1081 group-name))
1082 )
1084 )
1088 ))
1091 "Return a string for the Newsgroup buffer from INFO.
1092 INFO is an element of gnus-newsrc-assoc or gnus-killed-assoc."
1096 ;; Not in hash table, so compute it now.
1101 ;; This specifies the format of Group buffer.
1104 ;; Subscribed or not.
1106 ;; Has new news?
1113 ;; Number of unread articles.
1114 unread-count
1115 ;; Newsgroup name.
1116 group-name
1117 )))
1120 "Update newsgroup info of GROUP.
1121 If optional argument VISIBLE-ONLY is non-nil, non displayed group is ignored."
1124 ;; Buffer may be narrowed.
1127 ;; Search point to modify.
1130 ;; GROUP is listed in current buffer. So, delete old line.
1135 ))
1140 ))
1141 )))
1143 ;; GNUS Group mode command
1146 "Get newsgroup name around point."
1151 )))
1154 "Read news in this newsgroup.
1155 If argument ALL is non-nil, already read articles become readable.
1156 If optional argument NO-ARTICLE is non-nil, no article body is displayed."
1161 group
1163 ;;(not (nth 1 (assoc group gnus-newsrc-assoc))) ;Unsubscribed
1166 no-article
1167 ))
1168 ))
1171 "Select this newsgroup.
1172 No article is selected automatically.
1173 If argument ALL is non-nil, already read articles become readable."
1178 "Jump to newsgroup GROUP."
1184 ;; Add GROUP entry, then seach again.
1186 ;; Adjust cursor point.
1191 "Search for newsgroup forward.
1192 If first argument BACKWARD is non-nil, search backward instead.
1193 If second argument ANY-GROUP is non-nil, unsubscribed or empty
1194 group may be selected."
1205 ;; Adjust cursor point.
1208 ;; Return T if found.
1209 found
1210 ))
1213 "Go to next N'th newsgroup."
1222 "Go to next N'th unread newsgroup."
1231 "Go to previous N'th newsgroup."
1240 "Go to previous N'th unread newsgroup."
1249 "Mark all articles not marked as unread in current newsgroup as read.
1250 If prefix argument ALL is non-nil, all articles are marked as read.
1251 Cross references (Xref: field) of articles are ignored."
1260 "Do you really want to mark everything as read? "
1264 ;; Any marked articles will be preserved.
1268 ))
1271 "Mark all articles in current newsgroup as read.
1272 Cross references (Xref: field) of articles are ignored."
1277 "Toggle subscribe from/to unsubscribe current group."
1283 "Toggle subscribe from/to unsubscribe GROUP.
1284 New newsgroup is added to .newsrc automatically."
1290 ;; Toggle subscription flag.
1294 ;; Adjust cursor point.
1299 ;; Add new newsgroup.
1302 ;; Adjust cursor point.
1306 ))
1309 "List all of newsgroups in the Newsgroup buffer."
1314 "Get newly arrived articles. In fact, read the active file again."
1320 "Force GNUS to read the raw startup file."
1327 "Check bogus newsgroups."
1333 "Restrict visible newsgroups to the current region (START and END).
1348 "Edit a global KILL file."
1357 "Edit a local KILL file."
1366 "Update .newsrc file."
1371 "Suspend the current GNUS session.
1372 In fact, cleanup buffers except for Group Mode buffer.
1373 The hook `gnus-Suspend-gnus-hook' is called before actually suspending."
1376 ;; Kill GNUS buffers except for Group Mode buffer.
1383 ))
1387 "Quit reading news after updating .newsrc.
1388 The hook `gnus-Exit-gnus-hook' is called before actually quitting."
1400 ))
1403 "Quit reading news without updating .newsrc.
1404 The hook `gnus-Exit-gnus-hook' is called before actually quitting."
1416 ))
1419 "Describe Group mode commands briefly."
1429 )))
1431 \f
1432 ;;;
1433 ;;; GNUS Subject Mode
1434 ;;;
1437 nil
1449 ;;(define-key gnus-Subject-mode-map "\e\C-n" 'gnus-Subject-next-unread-same-subject)
1450 ;;(define-key gnus-Subject-mode-map "\e\C-p" 'gnus-Subject-prev-unread-same-subject)
1457 ;;(define-key gnus-Subject-mode-map "\C-cn" 'gnus-Subject-next-group)
1458 ;;(define-key gnus-Subject-mode-map "\C-cp" 'gnus-Subject-prev-group)
1488 ;;(define-key gnus-Subject-mode-map "c" 'gnus-Subject-catch-up)
1489 ;;(define-key gnus-Subject-mode-map "c" 'gnus-Subject-catch-up-all)
1491 ;;(define-key gnus-Subject-mode-map "c" 'gnus-Subject-catch-up-all-and-exit)
1530 "Major mode for reading articles in this newsgroup.
1531 All normal editing commands are turned off.
1532 Instead, these commands are available:
1535 User customizable variables:
1536 gnus-large-newsgroup
1537 The number of articles which indicates a large newsgroup. If the
1538 number of articles in a newsgroup is greater than the value, the
1539 number of articles to be selected is asked for. If the given value
1540 N is positive, the last N articles is selected. If N is negative,
1541 the first N articles are selected. An empty string means to select
1542 all articles.
1544 gnus-use-long-file-name
1545 Non-nil means that a newsgroup name is used as a default file name
1546 to save articles to. If it's nil, the directory form of a
1547 newsgroup is used instead.
1549 gnus-default-article-saver
1550 Specifies your favorite article saver which is interactively
1551 funcallable. Following functions are available:
1553 gnus-Subject-save-in-rmail (in Rmail format)
1554 gnus-Subject-save-in-mail (in Unix mail format)
1555 gnus-Subject-save-in-folder (in MH folder)
1556 gnus-Subject-save-in-file (in article format).
1558 gnus-rmail-save-name
1559 gnus-mail-save-name
1560 gnus-folder-save-name
1561 gnus-file-save-name
1562 Specifies a function generating a file name to save articles in
1563 specified format. The function is called with NEWSGROUP, HEADERS,
1564 and optional LAST-FILE. Access macros to the headers are defined
1565 as nntp-header-FIELD, and functions are defined as `gnus-header-FIELD'.
1567 gnus-article-save-directory
1568 Specifies a directory name to save articles to using the commands
1569 `gnus-Subject-save-in-rmail', `gnus-Subject-save-in-mail' and
1570 `gnus-Subject-save-in-file'. The variable is initialized from the
1571 SAVEDIR environment variable.
1573 gnus-show-all-headers
1574 Non-nil means that all headers of an article are shown.
1576 gnus-save-all-headers
1577 Non-nil means that all headers of an article are saved in a file.
1579 gnus-show-threads
1580 Non-nil means that conversation threads are shown in tree structure.
1582 gnus-thread-hide-subject
1583 Non-nil means that subjects for thread subtrees are hidden.
1585 gnus-thread-hide-subtree
1586 Non-nil means that thread subtrees are hidden initially.
1588 gnus-thread-hide-killed
1589 Non-nil means that killed thread subtrees are hidden automatically.
1591 gnus-thread-ignore-subject
1592 Non-nil means that subject differences are ignored in constructing
1593 thread trees.
1595 gnus-thread-indent-level
1596 Indentation of thread subtrees.
1598 gnus-optional-headers
1599 Specifies a function which generates an optional string displayed
1600 in the Subject buffer. The function is called with an article
1601 HEADERS. The result must be a string excluding `[' and `]'. The
1602 default function returns a string like NNN:AUTHOR, where NNN is
1603 the number of lines in an article and AUTHOR is the name of the
1604 author.
1606 gnus-auto-extend-newsgroup
1607 Non-nil means visible articles are extended to forward and
1608 backward automatically if possible.
1610 gnus-auto-select-first
1611 Non-nil means the first unread article is selected automagically
1612 when a newsgroup is selected normally (by gnus-Group-read-group).
1613 If you'd like to prevent automatic selection of the first unread
1614 article in some newsgroups, set the variable to nil in
1615 gnus-Select-group-hook or gnus-Apply-kill-hook.
1617 gnus-auto-select-next
1618 Non-nil means the next newsgroup is selected automagically at the
1619 end of the newsgroup. If the value is t and the next newsgroup is
1620 empty (no unread articles), GNUS will exit Subject mode and go
1621 back to Group mode. If the value is neither nil nor t, GNUS won't
1622 exit Subject mode but select the following unread newsgroup.
1623 Especially, if the value is the symbol `quietly', the next unread
1624 newsgroup will be selected without any confirmations.
1626 gnus-auto-select-same
1627 Non-nil means an article with the same subject as the current
1628 article is selected automagically like `rn -S'.
1630 gnus-auto-center-subject
1631 Non-nil means the point of Subject Mode window is always kept
1632 centered.
1634 gnus-break-pages
1635 Non-nil means an article is broken into pages at page delimiters.
1636 This may not work with some versions of GNU Emacs earlier than
1637 version 18.50.
1639 gnus-page-delimiter
1640 Specifies a regexp describing line-beginnings that separate pages
1641 of news article.
1643 [gnus-more-message is obsolete. overlay-arrow-string interfares
1644 with other subsystems, such as dbx mode.]
1646 gnus-digest-show-summary
1647 Non-nil means that a summary of digest messages is shown when
1648 reading a digest article using `gnus-Subject-rmail-digest' command.
1650 gnus-digest-separator
1651 Specifies a regexp separating messages in a digest article.
1653 gnus-mail-reply-method
1654 gnus-mail-other-window-method
1655 Specifies a function to begin composing mail message using
1656 commands gnus-Subject-mail-reply and
1657 gnus-Subject-mail-other-window. Functions
1658 gnus-mail-reply-using-mail and gnus-mail-reply-using-mhe are
1659 available for the value of gnus-mail-reply-method. And functions
1660 gnus-mail-other-window-using-mail and
1661 gnus-mail-other-window-using-mhe are available for the value of
1662 gnus-mail-other-window-method.
1664 Various hooks for customization:
1665 gnus-Subject-mode-hook
1666 Entry to this mode calls the value with no arguments, if that
1667 value is non-nil.
1669 gnus-Select-group-hook
1670 Called with no arguments when newsgroup is selected, if that value
1671 is non-nil. It is possible to sort subjects in this hook. See the
1672 documentation of this variable for more information.
1674 gnus-Subject-prepare-hook
1675 Called with no arguments after a subject list is created in the
1676 Subject buffer, if that value is non-nil. If you'd like to modify
1677 the buffer, you can use this hook.
1679 gnus-Select-article-hook
1680 Called with no arguments when an article is selected, if that
1681 value is non-nil. See the documentation of this variable for
1682 more information.
1684 gnus-Select-digest-hook
1685 Called with no arguments when reading digest messages using Rmail,
1686 if that value is non-nil. This hook can be used to modify an
1687 article so that Rmail can work with it. See the documentation of
1688 the variable for more information.
1690 gnus-Rmail-digest-hook
1691 Called with no arguments when reading digest messages using Rmail,
1692 if that value is non-nil. This hook is intended to customize Rmail
1693 mode.
1695 gnus-Apply-kill-hook
1696 Called with no arguments when a newsgroup is selected and the
1697 Subject buffer is prepared. This hook is intended to apply a KILL
1698 file to the selected newsgroup. The format of KILL file is
1699 completely different from that of version 3.8. You have to rewrite
1700 them in the new format. See the documentation of Kill file mode
1701 for more information.
1703 gnus-Mark-article-hook
1704 Called with no arguments when an article is selected at the first
1705 time. The hook is intended to mark an article as read (or unread)
1706 automatically when it is selected. See the documentation of the
1707 variable for more information.
1709 gnus-Exit-group-hook
1710 Called with no arguments when exiting the current newsgroup, if
1711 that value is non-nil. If your machine is so slow that exiting
1712 from Subject mode takes very long time, inhibit marking articles
1713 as read using cross-references by setting the variable
1714 `gnus-newsgroup-headers' to nil in this hook."
1717 ;; Gee. Why don't you upgrade?
1727 ;;(setq mode-line-process '(" " gnus-newsgroup-name))
1739 ;;(setq case-fold-search t)
1743 "Initialize subject display buffer."
1748 ))
1751 "Start reading news in newsgroup GROUP.
1752 If optional first argument SHOW-ALL is non-nil, already read articles are
1753 also listed.
1754 If optional second argument NO-ARTICLE is non-nil, no article is selected
1755 initially."
1759 ;; Don't switch-to-buffer to prevent displaying old contents
1760 ;; of the buffer until new subjects list is created.
1761 ;; Suggested by Juha Heinanen <jh@tut.fi>
1763 ;; You can change the order of subjects in this hook.
1766 ;; Function `gnus-apply-kill-file' must be called in this hook.
1769 ;; This newsgroup is empty.
1773 ;; Hide conversation thread subtrees. We cannot do this in
1774 ;; gnus-Subject-prepare-hook since kill processing may not
1775 ;; work with hidden articles.
1777 gnus-thread-hide-subtree
1779 ;; Show first unread article if requested.
1782 gnus-auto-select-first
1784 ;; Window is configured automatically.
1785 ;; Current buffer may be changed as a result of hook
1786 ;; evaluation, especially by gnus-Subject-rmail-digest
1787 ;; command, so we should adjust cursor point carefully.
1790 ;; Adjust cursor point.
1796 ;; I sometime get confused with the old Article buffer.
1804 ;; Adjust cursor point.
1807 ))
1808 ;; Cannot select newsgroup GROUP.
1811 ;; If NNTP is used, nntp_access file may not be installed
1812 ;; properly. Otherwise, may be active file problem.
1816 ;; Check bogus newsgroups.
1817 ;; We must be in Group Mode buffer.
1819 ))
1822 "Prepare subject list of current newsgroup in Subject mode buffer."
1824 ;; Note: The next codes are not actually used because the user who
1825 ;; want it can define them in gnus-Select-group-hook.
1826 ;; Print verbose messages if too many articles are selected.
1827 ;; (and (numberp gnus-large-newsgroup)
1828 ;; (> (length gnus-newsgroup-headers) gnus-large-newsgroup)
1829 ;; (message "Preparing headers..."))
1835 ;; Erase header retrieval message.
1837 ;; Call hooks for modifying Subject mode buffer.
1838 ;; Suggested by sven@tde.LTH.Se (Sven Mattisson).
1841 ))
1843 ;; Basic ideas by Paul Dworkin <paul@media-lab.media.mit.edu>
1846 "Prepare Subject buffer from THREADS and indentation LEVEL.
1847 THREADS is a list of `(PARENT [(CHILD1 [(GRANDCHILD ...]...) ...]).'"
1851 ;; `M Indent NUM: [OPT] SUBJECT'
1857 ;; If thread is a cons, hierarchical threads is given.
1858 ;; Otherwise, thread itself is header.
1862 ;; Print valid header only.
1868 ;; Read or not.
1872 ;; Thread level.
1874 ;; Article number.
1875 number
1876 ;; Optional headers.
1879 ;; Its subject string.
1882 nil
1885 ))
1886 ))
1887 ;; Print subthreads.
1891 )))
1894 "Set Subject mode line string."
1895 ;; The value must be a string to escape %-constructs.
1901 subject
1902 ;; Enough spaces to pad subject to 17 positions.
1906 ;; GNUS Subject mode command.
1909 "Search for next unread newsgroup.
1910 If optional argument BACKWARD is non-nil, search backward instead."
1914 ;; We don't want to alter current point of Group mode buffer.
1917 )))
1920 "Search for article forward.
1921 If first argument BACKWARD is non-nil, search backward.
1922 If second argument UNREAD is non-nil, only unread article is selected.
1923 If third argument SUBJECT is non-nil, the article which has
1924 the same subject will be searched for."
1927 ;; We have to take care of hidden lines.
1930 ;;(if unread " " ".")
1935 ;; Ignore words in parentheses.
1938 )))
1946 ;; Adjust cursor point.
1949 ;; This is the result.
1950 article
1951 ))
1954 "Search for article forward.
1955 If first optional argument UNREAD is non-nil, only unread article is selected.
1956 If second optional argument SUBJECT is non-nil, the article which has
1957 the same subject will be searched for."
1961 "Search for article backward.
1962 If first optional argument UNREAD is non-nil, only unread article is selected.
1963 If second optional argument SUBJECT is non-nil, the article which has
1964 the same subject will be searched for."
1968 "Article number around point. If nothing, return current number."
1974 ;; If search fail, return current article number.
1975 gnus-current-article
1976 )))
1979 "Return current subject string or nil if nothing."
1981 ;; It is possible to implement this function using
1982 ;; `gnus-Subject-article-number' and `gnus-newsgroup-headers'.
1984 ;; We have to take care of hidden lines.
1987 ))
1990 "Move point to ARTICLE's subject."
2000 gnus-newsgroup-headers)
2006 ))
2009 "Center point in Subject mode window."
2010 ;; Scroll window so as to cursor comes center of Subject mode window
2011 ;; only when article is displayed.
2012 ;; Suggested by earle@mahendo.JPL.NASA.GOV (Greg Earle).
2013 ;; Recenter only when requested.
2014 ;; Suggested by popovich@park.cs.columbia.edu
2021 ;; Walking around Group mode buffer.
2024 "Move point to NEWSGROUP in Group mode buffer."
2025 ;; Keep update point of Group mode buffer if visible.
2029 ;; Take care of tree window mode.
2034 ;; Take care of tree window mode.
2041 "Exit current newsgroup and then select next unread newsgroup.
2042 If prefix argument NO-ARTICLE is non-nil, no article is selected initially."
2044 ;; Make sure Group mode buffer point is on current newsgroup.
2054 ;; We are now in Group mode buffer.
2055 ;; Make sure Group mode buffer point is on GROUP.
2061 ;; Expected newsgroup has nothing to read since the articles
2062 ;; are marked as read by cross-referencing. So, try next
2063 ;; newsgroup. (Make sure we are in Group mode buffer now.)
2069 )
2070 )))
2073 "Exit current newsgroup and then select previous unread newsgroup.
2074 If prefix argument NO-ARTICLE is non-nil, no article is selected initially."
2076 ;; Make sure Group mode buffer point is on current newsgroup.
2086 ;; We are now in Group mode buffer.
2087 ;; We have to adjust point of Group mode buffer because current
2088 ;; point is moved to next unread newsgroup by exiting.
2094 ;; Expected newsgroup has nothing to read since the articles
2095 ;; are marked as read by cross-referencing. So, try next
2096 ;; newsgroup. (Make sure we are in Group mode buffer now.)
2102 )
2103 )))
2105 ;; Walking around subject lines.
2108 "Go to next N'th subject line.
2109 If optional argument UNREAD is non-nil, only unread article is selected."
2120 ))
2123 "Go to next N'th unread subject line."
2128 "Go to previous N'th subject line.
2129 If optional argument UNREAD is non-nil, only unread article is selected."
2140 ))
2143 "Go to previous N'th unread subject line."
2147 ;; Walking around subject lines with displaying articles.
2150 "Expand Subject window to show headers full window."
2156 "Display ARTICLE in Article buffer."
2158 nil
2165 ;; Successfully display article.
2166 t
2167 ))
2170 "Select the current article.
2171 Optional argument ALL-HEADERS is non-nil, show all headers."
2176 ;; The selected subject is different from that of the current article.
2180 ))
2183 "Put `+' at the current article.
2184 Optional argument specifies CURRENT-MARK instead of `+'."
2189 ;; First of all clear mark at last article.
2199 )))
2202 "Select article after current one.
2203 If argument UNREAD is non-nil, only unread article is selected."
2209 gnus-auto-select-same
2211 gnus-newsgroup-marked)
2214 gnus-Subject-next-page
2215 gnus-Subject-kill-same-subject-and-select
2216 ;;gnus-Subject-next-article
2217 ;;gnus-Subject-next-same-subject
2218 ;;gnus-Subject-next-unread-same-subject
2219 )))
2220 ;; Wrap article pointer if there are unread articles.
2221 ;; Hook function, such as gnus-Subject-rmail-digest, may
2222 ;; change current buffer, so need check.
2225 ;; No more articles with same subject, so jump to the first
2226 ;; unread article.
2228 ;;(and (eq buffer (current-buffer))
2229 ;; (= (point) last-point)
2230 ;; ;; Ignore given SUBJECT, and try again.
2231 ;; (gnus-Subject-next-article unread nil))
2235 ))
2237 gnus-auto-extend-newsgroup
2239 ;; Extend to next article if possible.
2240 ;; Basic ideas by himacdonald@watdragon.waterloo.edu
2242 ;; Threads feature must be turned off.
2248 ;; Select next newsgroup automatically if requested.
2253 ;;(null (gnus-set-difference gnus-newsgroup-unreads
2254 ;; gnus-newsgroup-marked))
2257 gnus-Subject-next-article
2258 gnus-Subject-next-page
2259 gnus-Subject-next-same-subject
2260 gnus-Subject-next-unread-same-subject
2261 gnus-Subject-kill-same-subject
2262 gnus-Subject-kill-same-subject-and-select
2263 ))
2264 ;; Ignore characters typed ahead.
2266 )))
2274 group
2276 gnus-unread-hashtb)))
2279 gnus-newsgroup-name
2280 ))
2282 ;; Select next unread newsgroup automagically.
2285 ;; Select quietly.
2288 ;; Confirm auto selection.
2293 )
2294 ))
2295 )))
2298 "Select unread article after current one."
2304 "Select article before current one.
2305 If argument UNREAD is non-nil, only unread article is selected."
2311 gnus-auto-select-same
2313 gnus-newsgroup-marked)
2316 ;;gnus-Subject-prev-page
2317 ;;gnus-Subject-prev-article
2318 ;;gnus-Subject-prev-same-subject
2319 ;;gnus-Subject-prev-unread-same-subject
2320 )))
2321 ;; Ignore given SUBJECT, and try again.
2327 ;; Extend to previous article if possible.
2328 ;; Basic ideas by himacdonald@watdragon.waterloo.edu
2336 )))
2339 "Select unred article before current one."
2345 "Show next page of selected article.
2346 If end of artile, select next article.
2347 Argument LINES specifies lines to be scrolled up."
2353 ;; Selected subject is different from current article's.
2363 )))
2366 "Show previous page of selected article.
2367 Argument LINES specifies lines to be scrolled down."
2372 ;; Selected subject is different from current article's.
2378 )))
2381 "Scroll up (or down) one line current article.
2382 Argument LINES specifies lines to be scrolled up (or down if negative)."
2391 ))
2394 "Select next article which has the same subject as current one."
2399 "Select previous article which has the same subject as current one."
2404 "Select next unread article which has the same subject as current one."
2409 "Select previous unread article which has the same subject as current one."
2414 "Refer parent article of current article.
2415 If a prefix argument CHILD is non-nil, go back to the child article
2416 using internally maintained articles history.
2417 NOTE: This command may not work with nnspool.el."
2422 ;; Go back to child article using history.
2425 ;; Look for parent Message-ID.
2426 ;; We cannot use gnus-current-headers to get references
2427 ;; because we may be looking at parent or refered article.
2429 ;; Get the last message-id in the references.
2435 ))
2439 )))
2442 "Refer article specified by MESSAGE-ID.
2443 If MESSAGE-ID is nil or an empty string, it is popped from an
2444 internally maintained articles history.
2445 NOTE: This command may not work with nnspool.el."
2447 ;; Make sure that this command depends on the fact that article
2448 ;; related information is not updated when an article is retrieved
2449 ;; by Message-ID.
2454 ;; Construct the correct Message-ID if necessary.
2455 ;; Suggested by tale@pawl.rpi.edu.
2460 ;; Push current message-id on history.
2461 ;; We cannot use gnus-current-headers to get current
2462 ;; message-id because we may be looking at parent or refered
2463 ;; article.
2469 ))
2470 ;; Pop message-id from history.
2474 ;; Retrieve article by message-id. This may not work with nnspool.
2477 )
2480 "Move to head of NTH next digested message."
2485 ))
2488 "Move to head of NTH previous digested message."
2493 ))
2496 "Select first unread article. Return non-nil if successfully selected."
2502 ;; If there is no unread articles, stay there.
2504 ;;(gnus-Subject-display-article (gnus-Subject-article-number))
2506 nil
2507 )
2508 ))
2511 "Do incremental search forward on current article."
2516 ))
2519 "Search for an article containing REGEXP forward.
2520 `gnus-Select-article-hook' is not called during the search."
2532 ;;(sit-for 1)
2533 )
2535 ))
2538 "Search for an article containing REGEXP backward.
2539 `gnus-Select-article-hook' is not called during the search."
2551 ;;(sit-for 1)
2552 )
2554 ))
2557 "Search for an article containing REGEXP.
2558 Optional argument BACKWARD means do search for backward.
2559 `gnus-Select-article-hook' is not called during the search."
2567 ;; Hidden thread subtrees must be searched for ,too.
2569 ;; First of all, search current article.
2570 ;; We don't want to read article again from NNTP server nor reset
2571 ;; current point.
2578 ;; Begin search from current point.
2580 ;; Then search next articles.
2590 ))
2592 ;; Adjust article pointer.
2595 ;; Return T if found such article.
2596 found
2597 ))
2600 "If FIELD of article header matches REGEXP, execute COMMAND string.
2601 If FIELD is an empty string (or nil), entire article body is searched for.
2602 If optional (prefix) argument BACKWARD is non-nil, do backward instead."
2612 current-prefix-arg))
2613 ;; Hidden thread subtrees must be searched for ,too.
2615 ;; We don't want to change current point nor window configuration.
2619 ;; We'd like to execute COMMAND interactively so as to give arguments.
2623 backward)
2627 "Go to beginning of article body"
2635 ))
2638 "Go to end of article body"
2646 ))
2649 "Read ARTICLE if exists.
2650 Optional argument ALL-HEADERS means all headers are shown."
2660 gnus-newsgroup-headers)
2666 "Go to last subject line."
2672 "Force to show current article."
2674 ;; The following is a trick to force to read the current article again.
2679 "Show original header if pruned header currently shown, or vice versa.
2680 With arg, show original header iff arg is positive."
2682 ;; Variable gnus-show-all-headers must be NIL to toggle really.
2690 "Show original article header."
2695 "Stop page breaking by linefeed temporary (Widen article buffer)."
2702 "Mark articles which has the same subject as read, and then select next.
2703 If argument UNMARK is positive, remove any kinds of marks.
2704 If argument UNMARK is negative, mark articles as unread instead."
2711 ;; Select next unread article. If auto-select-same mode, should
2712 ;; select the first unread article.
2717 ))
2720 "Mark articles which has the same subject as read.
2721 If argument UNMARK is positive, remove any kinds of marks.
2722 If argument UNMARK is negative, mark articles as unread instead."
2729 ;; If marked as read, go to next unread subject.
2731 ;; Go to next unread subject.
2735 ))
2738 "Mark articles with same SUBJECT as read, and return marked number.
2739 If optional argument UNMARK is positive, remove any kinds of marks.
2740 If optional argument UNMARK is negative, mark articles as unread instead."
2758 ))
2759 ;; Hide killed thread subtrees. Does not work properly always.
2760 ;;(and (null unmark)
2761 ;; gnus-thread-hide-killed
2762 ;; (gnus-Subject-hide-thread))
2763 ;; Return number of articles marked as read.
2764 count
2765 ))
2768 "Mark current article as unread, and then go forward.
2769 Argument COUNT specifies number of articles marked as unread."
2777 "Mark current article as unread, and then go backward.
2778 Argument COUNT specifies number of articles marked as unread."
2786 "Mark current article as unread.
2787 Optional first argument ARTICLE specifies article number to be
2788 marked as unread. Optional second argument CLEAR-MARK removes
2789 any kind of mark."
2792 ;; First of all, show hidden thread subtrees.
2804 )))
2807 "Mark current article as read, and then go forward.
2808 Argument COUNT specifies number of articles marked as read"
2816 "Mark current article as read, and then go backward.
2817 Argument COUNT specifies number of articles marked as read"
2825 "Mark current article as read.
2826 Optional first argument ARTICLE specifies article number to be marked as read.
2827 Optional second argument MARK specifies a string inserted at beginning of line.
2828 Any kind of string (length 1) except for a space and `-' is ok."
2831 ;; First of all, show hidden thread subtrees.
2844 )))
2847 "Remove current article's mark, and go forward.
2848 Argument COUNT specifies number of articles unmarked"
2856 "Remove current article's mark, and go backward.
2857 Argument COUNT specifies number of articles unmarked"
2865 "Delete lines which are marked as read."
2872 ;; Adjust point.
2877 ;; It is not so good idea to make the buffer empty.
2879 ))
2888 ;; Adjust point.
2894 ))
2896 ;; Thread-based commands.
2899 "Toggle showing conversation threads.
2900 With arg, turn showing conversation threads on iff arg is positive."
2908 ))
2911 "Show all thread subtrees."
2917 ))))
2920 "Show thread subtrees."
2930 ))))
2933 "Hide all thread subtrees."
2937 ;; Adjust cursor point.
2945 ))))
2948 "Hide thread subtrees."
2952 ;; Adjust cursor point.
2961 ;; Interested in lower levels.
2965 ))
2966 )
2968 ))))
2971 "Go to the same level next thread.
2972 Argument N specifies the number of threads."
2974 ;; Adjust cursor point.
2983 ;; We have to skip lower levels.
2988 ))
2989 )
2990 ;; Return non-nil if successfully move to the next.
2993 ))
2996 "Go to the same level previous thread.
2997 Argument N specifies the number of threads."
2999 ;; Adjust cursor point.
3008 ;; We have to skip lower levels.
3013 ))
3014 )
3015 ;; Return non-nil if successfully move to the previous.
3018 ))
3021 "Go downward current thread.
3022 Argument D specifies the depth goes down."
3024 ;; Adjust cursor point.
3032 ;; We have to skip the same levels.
3038 ))
3039 )
3041 ))
3044 "Go upward current thread.
3045 Argument D specifies the depth goes up."
3047 ;; Adjust cursor point.
3054 ;; We have to skip the same levels.
3060 ))
3061 )
3063 ))
3066 "Mark articles under current thread as read.
3067 If argument UNMARK is positive, remove any kinds of marks.
3068 If argument UNMARK is negative, mark articles as unread instead."
3072 ;; Adjust cursor point.
3077 ;; Mark current article.
3084 )
3085 ;; Mark following articles.
3094 ))
3095 ))
3096 ;; Hide killed subtrees.
3098 gnus-thread-hide-killed
3100 ;; If marked as read, go to next unread subject.
3102 ;; Go to next unread subject.
3104 )
3107 "Toggle truncation of subject lines.
3108 With ARG, turn line truncation on iff ARG is positive."
3116 "Sort subject display buffer by article number.
3117 Argument REVERSE means reverse order."
3123 reverse
3124 ))
3127 "Sort subject display buffer by author name alphabetically.
3128 If case-fold-search is non-nil, case of letters is ignored.
3129 Argument REVERSE means reverse order."
3135 reverse
3136 ))
3139 "Sort subject display buffer by subject alphabetically. `Re:'s are ignored.
3140 If case-fold-search is non-nil, case of letters is ignored.
3141 Argument REVERSE means reverse order."
3149 reverse
3150 ))
3153 "Sort subject display buffer by posted date.
3154 Argument REVERSE means reverse order."
3160 reverse
3161 ))
3164 "Sort subject display buffer by PREDICATE.
3165 Optional argument REVERSE means reverse order."
3170 ))
3173 "Once exit and then reselect the current newsgroup.
3174 Prefix argument SHOW-ALL means to select all articles."
3178 ;; We have to adjust the point of Group mode buffer because the
3179 ;; current point was moved to the next unread newsgroup by
3180 ;; exiting.
3184 ))
3187 "Caesar rotates all letters of current message by 13/47 places.
3188 With prefix arg, specifies the number of places to rotate each letter forward.
3189 Caesar rotates Japanese letters by 47 places in any case."
3196 ;; We don't want to jump to the beginning of the message.
3197 ;; `save-excursion' does not do its job.
3203 ))
3204 ))
3207 "Run RMAIL on current digest article.
3208 `gnus-Select-digest-hook' will be called with no arguments, if that
3209 value is non-nil. It is possible to modify the article so that Rmail
3210 can work with it.
3212 `gnus-Rmail-digest-hook' will be called with no arguments, if that value
3213 is non-nil. The hook is intended to customize Rmail mode."
3228 ;; Rmail initializations.
3237 ;; File name is meaningless but `save-buffer' requires it.
3242 ;; There is no need to write this buffer to a file.
3250 ;; Default file name saving digest messages.
3253 gnus-newsgroup-name
3254 gnus-current-headers
3255 gnus-newsgroup-last-rmail
3256 ))
3259 gnus-newsgroup-name
3260 gnus-current-headers
3261 gnus-newsgroup-last-mail
3262 ))
3263 ;; Prevent generating new buffer named ***<N> each time.
3267 ;; Take all windows safely.
3270 ;; Use Subject and Article windows for Digest summary and
3271 ;; Digest buffers.
3286 )
3287 ;; Move the buffers to the end of buffer list.
3294 ;; This command should not signal an error because the
3295 ;; command is called from hooks.
3297 ))
3300 "Save this article using default saver function.
3301 Variable `gnus-default-article-saver' specifies the saver function."
3310 "Append this article to Rmail file.
3311 Optional argument FILENAME specifies file name.
3312 Directory to save to is default to `gnus-article-save-directory' which
3313 is initialized from the SAVEDIR environment variable."
3323 gnus-newsgroup-name
3324 gnus-current-headers
3325 gnus-newsgroup-last-rmail
3326 )))
3334 default-name)))
3337 ;; Remember the directory name to save articles.
3339 )))
3340 ))
3343 "Append this article to Unix mail file.
3344 Optional argument FILENAME specifies file name.
3345 Directory to save to is default to `gnus-article-save-directory' which
3346 is initialized from the SAVEDIR environment variable."
3356 gnus-newsgroup-name
3357 gnus-current-headers
3358 gnus-newsgroup-last-mail
3359 )))
3367 default-name)))
3370 ;; Remember the directory name to save articles.
3372 )))
3373 ))
3376 "Append this article to file.
3377 Optional argument FILENAME specifies file name.
3378 Directory to save to is default to `gnus-article-save-directory' which
3379 is initialized from the SAVEDIR environment variable."
3389 gnus-newsgroup-name
3390 gnus-current-headers
3391 gnus-newsgroup-last-file
3392 )))
3400 default-name)))
3403 ;; Remember the directory name to save articles.
3405 )))
3406 ))
3409 "Save this article to MH folder (using `rcvstore' in MH library).
3410 Optional argument FOLDER specifies folder name."
3417 ;; Thanks to yuki@flab.Fujitsu.JUNET and ohm@kaba.junet.
3423 gnus-newsgroup-name
3424 gnus-current-headers
3425 gnus-newsgroup-last-folder
3426 )
3427 t
3428 )))
3433 nil errbuf nil folder)
3440 ))
3441 ))
3444 "Pipe this article to subprocess."
3446 ;; Ignore `gnus-save-all-headers' since this is not save command.
3452 gnus-last-shell-command)))
3457 ))
3458 ))
3461 "Mark all articles not marked as unread in this newsgroup as read.
3462 If prefix argument ALL is non-nil, all articles are marked as read."
3467 "Do you really want to mark everything as read? "
3476 ))
3477 ))
3480 "Mark all articles in this newsgroup as read."
3485 "Mark all articles not marked as unread in this newsgroup as read, then exit.
3486 If prefix argument ALL is non-nil, all articles are marked as read."
3491 "Do you really want to mark everything as read? "
3500 ;; Select next newsgroup or exit.
3502 ;; Select next newsgroup quietly.
3506 )))
3509 "Mark all articles in this newsgroup as read, and then exit."
3514 "Edit a global KILL file."
3523 "Edit a local KILL file applied to the current newsgroup."
3532 "Exit reading current newsgroup, and then return to group selection mode.
3533 gnus-Exit-group-hook is called with no arguments if that value is non-nil."
3540 ;; Important internal variables are save, so we can reenter
3541 ;; Subject Mode buffer even if hook changes them.
3545 gnus-newsgroup-unreads)
3546 gnus-newsgroup-marked)
3547 ;; T means ignore unsubscribed newsgroups.
3551 gnus-newsgroup-headers
3552 gnus-newsgroup-unreads
3554 )))
3555 ;; Do not switch windows but change the buffer to work.
3557 ;; Update cross referenced group info.
3562 ;; Make sure where I was, and go to next newsgroup.
3566 ;; If exiting temporary, caller should adjust Group mode
3567 ;; buffer point by itself.
3568 nil ;Nothing to do.
3569 ;; Return to Group mode buffer.
3578 "Quit reading current newsgroup without updating read article info."
3583 ;; Return to Group selection mode.
3592 )))
3595 "Describe Subject mode commands briefly."
3605 )))
3607 \f
3608 ;;;
3609 ;;; GNUS Article Mode
3610 ;;;
3613 nil
3626 "Major mode for browsing through an article.
3627 All normal editing commands are turned off.
3628 Instead, these commands are available:
3631 Various hooks for customization:
3632 gnus-Article-mode-hook
3633 Entry to this mode calls the value with no arguments, if that
3634 value is non-nil.
3636 gnus-Article-prepare-hook
3637 Called with no arguments after an article is prepared for reading,
3638 if that value is non-nil."
3641 ;; Gee. Why don't you upgrade?
3662 "Initialize Article mode buffer."
3667 ))
3670 "Prepare ARTICLE in Article mode buffer.
3671 If optional argument ALL-HEADERS is non-nil, all headers are inserted."
3678 ;; Prepare article buffer
3683 ;; Seems me that a new article is selected.
3685 ;; gnus-current-article must be an article number.
3690 gnus-current-article))
3691 ;; Clear articles history only when articles are
3692 ;; retrieved by article numbers.
3695 ))
3696 ;; Hooks for modifying contents of the article. This hook
3697 ;; must be called before being narrowed.
3699 ;; Delete unnecessary headers.
3702 ;; Do page break.
3706 ;; Next function must be called after setting
3707 ;; `gnus-current-article' variable and narrowed to page.
3709 )
3713 )))
3716 "Show all article headers in Article mode buffer."
3720 ;;(defun gnus-Article-set-mode-line ()
3721 ;; "Set Article mode line string."
3722 ;; (setq mode-line-buffer-identification
3723 ;; (list 17
3724 ;; (format "GNUS: %s {%d-%d} %d"
3725 ;; gnus-newsgroup-name
3726 ;; gnus-newsgroup-begin
3727 ;; gnus-newsgroup-end
3728 ;; gnus-current-article
3729 ;; )))
3730 ;; (set-buffer-modified-p t))
3733 "Set Article mode line string."
3737 gnus-newsgroup-unreads gnus-newsgroup-marked))))
3741 gnus-newsgroup-unselected gnus-newsgroup-marked)))))
3745 gnus-newsgroup-name
3746 gnus-current-article
3747 ;; This is proposed by tale@pawl.rpi.edu.
3755 ))))
3759 "Delete unnecessary headers."
3773 )))
3775 ;; Working on article's buffer
3778 "Show next page of current article.
3779 If end of article, return non-nil. Otherwise return nil.
3780 Argument LINES specifies lines to be scrolled up."
3783 ;; Fixed by enami@ptgd.sony.co.jp (enami tsugutomo)
3788 ;; Nothing in this page.
3793 t ;Nothing more.
3795 nil
3796 )
3797 ;; More in this page.
3801 ;; Long lines may cause an end-of-buffer error.
3803 nil
3804 ))
3807 "Show previous page of current article.
3808 Argument LINES specifies lines to be scrolled down."
3821 "Move to head of NTH next digested message.
3822 Set mark at end of digested message."
3823 ;; Stop page breaking in digest mode.
3826 ;; Skip NTH - 1 digest.
3827 ;; Suggested by Khalid Sattar <admin@cs.exeter.ac.uk>.
3828 ;; Digest separator is customizable.
3829 ;; Suggested by Skip Montanaro <montanaro@sprite.crd.ge.com>.
3835 ;; Search for end of this message.
3845 ;; Show From: and Subject: fields.
3848 ))
3851 "Move to head of NTH previous digested message."
3852 ;; Stop page breaking in digest mode.
3855 ;; Skip NTH - 1 digest.
3856 ;; Suggested by Khalid Sattar <admin@cs.exeter.ac.uk>.
3857 ;; Digest separator is customizable.
3858 ;; Suggested by Skip Montanaro <montanaro@sprite.crd.ge.com>.
3864 ;; Search for end of this message.
3873 ;; Show From: and Subject: fields.
3877 ))
3880 "Read article specified by message-id around point."
3891 )))
3894 "Pop up article history."
3901 "Reconfigure windows to show headers."
3908 "Describe Article mode commands briefly."
3917 )))
3919 \f
3920 ;;;
3921 ;;; GNUS KILL-File Mode
3922 ;;;
3925 nil
3935 "Major mode for editing KILL file.
3937 In addition to Emacs-Lisp Mode, the following commands are available:
3946 A KILL file contains lisp expressions to be applied to a selected
3947 newsgroup. The purpose is to mark articles as read on the basis of
3948 some set of regexps. A global KILL file is applied to every newsgroup,
3949 and a local KILL file is applied to a specified newsgroup. Since a
3950 global KILL file is applied to every newsgroup, for better performance
3951 use a local one.
3953 A KILL file can contain any kind of Emacs lisp expressions expected
3954 to be evaluated in the Subject buffer. Writing lisp programs for this
3955 purpose is not so easy because the internal working of GNUS must be
3956 well-known. For this reason, GNUS provides a general function which
3957 does this easily for non-Lisp programmers.
3959 The `gnus-kill' function executes commands available in Subject Mode
3960 by their key sequences. `gnus-kill' should be called with FIELD,
3961 REGEXP and optional COMMAND and ALL. FIELD is a string representing
3962 the header field or an empty string. If FIELD is an empty string, the
3963 entire article body is searched for. REGEXP is a string which is
3964 compared with FIELD value. COMMAND is a string representing a valid
3965 key sequence in Subject Mode or Lisp expression. COMMAND is default to
3967 executed in the Subject buffer. If the second optional argument ALL
3968 is non-nil, the COMMAND is applied to articles which are already
3969 marked as read or unread. Articles which are marked are skipped over
3970 by default.
3972 For example, if you want to mark articles of which subjects contain
3973 the string `AI' as read, a possible KILL file may look like:
3977 If you want to mark articles with `D' instead of `X', you can use
3978 the following expression:
3982 In this example it is assumed that the command
3983 `gnus-Subject-mark-as-read-forward' is assigned to `d' in Subject Mode.
3985 It is possible to delete unnecessary headers which are marked with
3986 `X' in a KILL file as follows:
3990 If the Subject buffer is empty after applying KILL files, GNUS will
3991 exit the selected newsgroup normally. If headers which are marked
3992 with `D' are deleted in a KILL file, it is impossible to read articles
3993 which are marked as read in the previous GNUS sessions. Marks other
3994 than `D' should be used for articles which should really be deleted.
3996 Entry to this mode calls emacs-lisp-mode-hook and
3997 gnus-Kill-file-mode-hook with no arguments, if that value is non-nil."
4008 "Begin editing a KILL file of NEWSGROUP.
4009 If NEWSGROUP is nil, the global KILL file is selected."
4013 ;; Save current window configuration if this is first invocation.
4017 ;; Hack windows.
4034 ))
4036 ))
4039 "Insert KILL command for current subject."
4048 gnus-current-kill-article)))
4052 "Insert KILL command for current author."
4061 gnus-current-kill-article)))
4065 "Apply current buffer to current newsgroup."
4069 ;; Assume newsgroup is selected.
4078 "Apply sexp before point in current buffer to current newsgroup."
4082 ;; Assume newsgroup is selected.
4093 "Save a KILL file, then return to the previous buffer."
4097 ;; We don't want to return to Article buffer.
4100 ;; Delete the KILL file windows.
4102 ;; Restore last window configuration if available.
4106 ;; Kill the KILL file buffer. Suggested by tale@pawl.rpi.edu.
4109 \f
4110 ;;;
4111 ;;; Utility functions
4112 ;;;
4114 ;; Basic ideas by emv@math.lsa.umich.edu (Edward Vielmetti)
4117 "Run batched KILL.
4118 Usage: emacs -batch -l gnus -f gnus-batch-kill NEWSGROUP ..."
4128 command-line-args-left))))
4131 ;; Disable verbose message.
4135 ;; Eat all arguments.
4137 ;; Startup GNUS.
4139 ;; Apply kills to specified newsgroups in command line arguments.
4155 ))
4156 )
4157 ;; Finally, exit Emacs.
4160 ))
4163 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
4164 If variable `gnus-use-long-file-name' is nil, it is ~/News/News.group/num.
4165 Otherwise, it is like ~/News/news/group/num."
4177 default
4181 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
4182 If variable `gnus-use-long-file-name' is nil, it is ~/News/news.group/num.
4183 Otherwise, it is like ~/News/news/group/num."
4187 newsgroup
4195 default
4199 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
4200 If variable `gnus-use-long-file-name' is nil, it is ~/News/News.group.
4201 Otherwise, it is like ~/News/news/group/news."
4210 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
4211 If variable `gnus-use-long-file-name' is nil, it is ~/News/news.group.
4212 Otherwise, it is like ~/News/news/group/news."
4216 newsgroup
4221 "Generate folder name from NEWSGROUP, HEADERS, and optional LAST-FOLDER.
4222 If variable `gnus-use-long-file-name' is nil, it is +News.group.
4223 Otherwise, it is like +news/group."
4231 "Generate folder name from NEWSGROUP, HEADERS, and optional LAST-FOLDER.
4232 If variable `gnus-use-long-file-name' is nil, it is +news.group.
4233 Otherwise, it is like +news/group."
4237 newsgroup
4241 "Apply KILL file to the current newsgroup."
4242 ;; Apply the global KILL file.
4244 ;; And then apply the local KILL file.
4248 "Return the name of a KILL file of NEWSGROUP.
4249 If NEWSGROUP is nil, return the global KILL file instead."
4252 ;; The global KILL file is placed at top of the directory.
4256 ;; Append ".KILL" to capitalized newsgroup name.
4261 ;; Place "KILL" under the hierarchical directory.
4265 ))
4268 "Return the name of a KILL file of NEWSGROUP.
4269 If NEWSGROUP is nil, return the global KILL file instead."
4272 ;; The global KILL file is placed at top of the directory.
4276 ;; Append ".KILL" to newsgroup name.
4280 ;; Place "KILL" under the hierarchical directory.
4284 ))
4287 "Make hierarchical directory name from NEWSGROUP name."
4291 ;; Replace all occurence of `.' with `/'.
4296 newsgroup
4297 ))
4300 "Make DIRECTORY recursively."
4304 ))
4315 ))
4318 "Remove `Re:' and words in parentheses.
4319 If optional argument RE-ONLY is non-nil, strip `Re:' only."
4321 ;; Remove `Re:' and `Re^N:'.
4324 ;; Remove words in parentheses from end.
4328 ;; Return subject string.
4329 subject
4330 ))
4333 "Return a string like `NNN:AUTHOR' from HEADER."
4336 ;; Lines of the article.
4337 ;; Suggested by dana@bellcore.com.
4339 ;; Its author.
4343 ;; 4 stands for length of `NNN:'.
4347 "Return a string like `NNN' from HEADER."
4351 "Sort current group headers by PREDICATE safely.
4352 *Safely* means C-g quitting is disabled during sorting.
4353 Optional argument REVERSE means reverse order."
4359 ))
4362 "Return T if first arg string is less than second in lexicographic order.
4363 If case-fold-search is non-nil, case of letters is ignored."
4368 "Return T if DATE1 is earlyer than DATE2."
4373 "Make comparable string by string-lessp from DATE."
4379 ;; Can understand the following styles:
4380 ;; (1) 14 Apr 89 03:20:12 GMT
4381 ;; (2) Fri, 17 Mar 89 4:01:33 GMT
4385 ;; Year
4387 ;; Month
4391 ;; Day
4395 ;; Time
4397 ;; Cannot understand DATE string.
4398 date
4399 )
4400 ))
4403 "Return the value of the header FIELD of current article."
4415 "If FIELD of an article matches REGEXP, execute COMMAND.
4416 Optional third argument COMMAND is default to
4418 If optional fourth argument ALL is non-nil, articles marked are also applied
4419 to. If FIELD is an empty string (or nil), entire article body is searched for.
4420 COMMAND must be a lisp expression or a string representing a key sequence."
4421 ;; We don't want to change current point nor window configuration.
4424 ;; Selected window must be Subject mode buffer to execute
4425 ;; keyboard macros correctly. See command_loop_1.
4431 )))
4434 "If FIELD of article header matches REGEXP, execute lisp FORM (or a string).
4435 If FIELD is an empty string (or nil), entire article body is searched for.
4436 If optional fifth argument BACKWARD is non-nil, do backward instead.
4437 If optional sixth argument IGNORE-MARKED is non-nil, articles which are
4438 marked as read or unread are ignored."
4445 nil
4448 ;; Get access function of header filed.
4453 ;; Make FORM funcallable.
4456 ;; Starting from the current article.
4458 ;; Articles marked as read and unread should be ignored.
4462 ))
4466 ))
4470 ;; The point of Subject mode buffer must be saved during execution.
4473 nil ;Nothing to do.
4475 ;; Compare with header field.
4477 gnus-newsgroup-headers article))
4482 ;; Number (Lines:) or symbol must be converted to string.
4489 ;; Search article body.
4504 ))
4505 )))
4507 ;;; caesar-region written by phr@prep.ai.mit.edu Nov 86
4508 ;;; modified by tower@prep Nov 86
4509 ;;; Modified by umerin@flab.flab.Fujitsu.JUNET for ROT47.
4512 "Caesar rotation of region by N, default 13, for decrypting netnews.
4513 ROT47 will be performed for Japanese text in any case."
4535 ;; ROT47 for Japanese text.
4536 ;; Thanks to ichikawa@flab.fujitsu.junet.
4560 ;; Functions accessing headers.
4561 ;; Functions are more convenient than macros in some case.
4564 "Return article number in HEADER."
4568 "Return subject string in HEADER."
4572 "Return author string in HEADER."
4576 "Return xref string in HEADER."
4580 "Return lines in HEADER."
4584 "Return date in HEADER."
4588 "Return Id in HEADER."
4592 "Return references in HEADER."
4595 \f
4596 ;;;
4597 ;;; Article savers.
4598 ;;;
4601 "Append the current article to an Rmail file named FILE-NAME."
4603 ;; Most of these codes are borrowed from rmailout.el.
4626 ;; Decide whether to append to a file or to an Emacs buffer.
4630 ;; File has been visited, in buffer OUTBUF.
4634 rmail-current-message)))
4635 ;; If MSG is non-nil, buffer is in RMAIL mode.
4649 )
4651 ))
4654 "Append the current article to a file named FILE-NAME."
4663 ;; Append newline at end of the buffer as separator, and then
4664 ;; save it to file.
4669 ))
4672 "Convert article in current buffer to Rmail message format."
4674 ;; Convert article directly into Babyl format.
4675 ;; Suggested by Rob Austein <sra@lcs.mit.edu>
4683 ;;(defun gnus-convert-article-to-rmail ()
4684 ;; "Convert article in current buffer to Rmail message format."
4685 ;; (let ((buffer-read-only nil))
4686 ;; ;; Insert special header of Unix mail.
4687 ;; (goto-char (point-min))
4688 ;; (insert "From "
4689 ;; (or (mail-strip-quoted-names (mail-fetch-field "from"))
4690 ;; "unknown")
4691 ;; " " (current-time-string) "\n")
4692 ;; ;; Stop quoting `From' since this seems unnecessary in most cases.
4693 ;; ;; ``Quote'' "\nFrom " as "\n>From "
4694 ;; ;;(while (search-forward "\nFrom " nil t)
4695 ;; ;; (forward-char -5)
4696 ;; ;; (insert ?>))
4697 ;; ;; Convert article to babyl format.
4698 ;; (rmail-convert-to-babyl-format)
4699 ;; ))
4701 \f
4702 ;;;
4703 ;;; Internal functions.
4704 ;;;
4707 "Open network stream to remote NNTP server.
4708 If optional argument CONFIRM is non-nil, ask you host that NNTP server
4709 is running even if it is defined.
4710 Run gnus-Open-server-hook just before opening news server."
4712 ;; Stream is already opened.
4713 nil
4714 ;; Open NNTP server.
4718 ;; Read server name with completion.
4722 gnus-secondary-servers)
4723 nil nil gnus-nntp-server))
4726 ;; If no server name is given, local host is assumed.
4734 ;; :DIRECTORY
4745 ;; Show valuable message if available.
4748 ))
4750 ;; Dummy functions used only once. Should return nil.
4755 "Define access functions for the access METHOD.
4756 Methods defintion is taken from optional argument ACCESS-METHODS or
4757 the variable gnus-access-methods."
4762 ;; Should not use symbol-function here since overload does not work.
4766 )))
4769 "Select newsgroup GROUP.
4770 If optional argument SHOW-ALL is non-nil, all of articles in the group
4771 are selected."
4779 ;; Select all active articles.
4784 ;; Select unread articles only.
4786 ;; Require confirmation if selecting large newsgroup.
4789 nil
4798 "How many articles from %s (default %d): "
4799 gnus-newsgroup-name number))))
4807 ;; Select last N articles.
4811 ;; Select first N articles.
4817 ;; Otherwise select all.
4818 )
4819 ;; Get unselected unread articles.
4822 ))
4823 ))
4824 ;; Get headers list.
4826 ;; UNREADS may contain expired articles, so we have to remove
4827 ;; them from the list.
4834 gnus-newsgroup-headers)))
4835 ;; Marked article must be a subset of unread articles.
4838 gnus-newsgroup-unreads)
4840 ;; First and last article in this newsgroup.
4844 0
4845 ))
4850 0
4851 ))
4852 ;; File name that an article was saved last.
4857 ;; Reset article pointer etc.
4863 ;; GROUP is successfully selected.
4864 t
4865 )
4866 ))
4869 "Find new header backward."
4878 header
4879 ))
4882 "Find new header forward."
4891 header
4892 ))
4895 "Extend newsgroup selection with HEADER.
4896 Optional argument BACKWARD means extend toward backward."
4903 ;; We have to update unreads and unselected, but don't have to
4904 ;; care about gnus-newsgroup-marked.
4912 )))
4915 "Remember that ARTICLE is marked as read."
4916 ;; Remove from unread and marked list.
4923 "Remember that ARTICLE is marked as unread.
4924 Optional argument CLEAR-MARK means ARTICLE should not be remembered
4925 that it was marked as read once."
4926 ;; Add to unread list.
4930 ;; If CLEAR-MARK is non-nil, the article must be removed from marked
4931 ;; list. Otherwise, it must be added to the list.
4940 "Clear all variables and buffer."
4941 ;; Clear GNUS variables.
4946 ;; Clear other internal variables.
4949 ;; Kill the startup file.
4954 ;; Kill GNUS buffers.
4960 )))
4963 "Configure GNUS windows according to the next ACTION.
4964 The ACTION is either a symbol, such as `SelectNewsgroup', or a
4965 configuration list such as `(1 1 2)'. If ACTION is not a list,
4966 configuration list is got from the variable gnus-window-configuration."
4985 ;; No need to change window configuration.
4986 nil
4988 ;; First of all, compute the height of each window.
4990 ;; Take up the entire screen.
4997 ;; The Newsgroup buffer exits always. So, use it to extend the
4998 ;; Group window so as to get enough window space.
5004 ;; Compute expected window height.
5017 ;; Then split the window.
5025 ;; Then select buffers in each window.
5036 ;; If Article buffer does not exist, it will be created
5037 ;; and initialized.
5040 )
5041 ))
5044 "Return a header which is a element of HEADERS and has NUMBER."
5047 ;; We cannot use `=' to accept non-numeric NUMBER.
5051 found
5052 ))
5055 "Return a header which is a element of HEADERS and has Message-ID."
5061 found
5062 ))
5065 "Version numbers of this version of GNUS."
5069 gnus-version nntp-version nnspool-version mhspool-version))
5072 gnus-version nntp-version mhspool-version))
5075 gnus-version nntp-version nnspool-version))
5080 "Find Info documentation of GNUS."
5083 ;; Enlarge info window if needed.
5093 "Overload functions specified by optional argument OVERLOADS.
5094 If nothing is specified, use the variable gnus-overload-functions."
5100 ;; Load file before overloading function if necessary. Make
5101 ;; sure we cannot use `requre' always.
5106 )))
5109 "Make conversation threads tree from NEWSGROUP-HEADERS."
5115 ;; Make message dependency alist.
5119 ;; Ignore invalid headers.
5122 ;; Ignore broken references, e.g "<123@a.b.c".
5127 newsgroup-headers
5130 ;; Check subject equality.
5137 ;; H should be a thread root.
5139 ;; H depends on D.
5142 ;; H is a thread root.
5145 ))
5146 )
5147 ;; Make complete threads from the roots.
5148 ;; Note: dependencies are in reverse order, but
5149 ;; gnus-make-threads-1 processes it in reverse order again. So,
5150 ;; we don't have to worry about it.
5155 ))
5161 ;; Find children.
5168 ;; Go down.
5174 ))
5177 "Make text outside current page invisible except for page delimiter.
5178 A numeric arg specifies to move forward or backward by that many pages,
5179 thus showing a page other than the one point was originally in."
5189 ;; Find the end of the page.
5191 ;; If we stopped due to end of buffer, stay there.
5192 ;; If we stopped after a page delimiter, put end of restriction
5193 ;; at the beginning of that line.
5194 ;; These are commented out.
5195 ;; (if (save-excursion (beginning-of-line)
5196 ;; (looking-at page-delimiter))
5197 ;; (beginning-of-line))
5200 ;; Find the top of the page.
5202 ;; If we found beginning of buffer, stay there.
5203 ;; If extra text follows page delimiter on same line,
5204 ;; include it.
5205 ;; Otherwise, show text starting with following line.
5209 ))
5212 "Return last element of LIST."
5218 last
5219 ))
5222 "Return a list of elements of LIST1 that do not appear in LIST2."
5227 list1
5228 ))
5231 "Return a list of elements that appear in both LIST1 and LIST2."
5237 result
5238 ))
5240 \f
5241 ;;;
5242 ;;; Get information about active articles, already read articles, and
5243 ;;; still unread articles.
5244 ;;;
5246 ;; GNUS internal format of gnus-newsrc-assoc and gnus-killed-assoc:
5247 ;; (("general" t (1 . 1))
5248 ;; ("misc" t (1 . 10) (12 . 15))
5249 ;; ("test" nil (1 . 99)) ...)
5250 ;; GNUS internal format of gnus-marked-assoc:
5251 ;; (("general" 1 2 3)
5252 ;; ("misc" 2) ...)
5253 ;; GNUS internal format of gnus-active-hashtb:
5254 ;; (("general" t (1 . 1))
5255 ;; ("misc" t (1 . 10))
5256 ;; ("test" nil (1 . 99)) ...)
5257 ;; GNUS internal format of gnus-unread-hashtb:
5258 ;; (("general" 1 (1 . 1))
5259 ;; ("misc" 14 (1 . 10) (12 . 15))
5260 ;; ("test" 99 (1 . 99)) ...)
5263 "Setup news information.
5264 If optional argument RAWFILE is non-nil, force to read raw startup file."
5266 gnus-active-hashtb
5267 gnus-unread-hashtb
5269 ))))
5270 ;; We have to clear some variables to re-initialize news info.
5273 gnus-active-hashtb nil
5274 gnus-unread-hashtb nil))
5280 ;; Check new newsgroups and subscribe them.
5286 )))
5287 ))
5290 "Subscribe new NEWSGROUP.
5291 If optional argument NEXT is non-nil, it is inserted before NEXT."
5296 "Subscribe new NEWSGROUP safely and put it at top."
5304 "Looking for new newsgroups and return names.
5305 `-n' option of options line in .newsrc file is recognized."
5312 ;; Taking account of `-n' option.
5319 ;; Find new newsgroup.
5322 ))
5323 gnus-active-hashtb)
5324 ;; Return new newsgroups.
5325 new-newsgroups
5326 ))
5329 "Kill GROUP from gnus-newsrc-assoc, .newsrc and gnus-unread-hashtb."
5332 nil
5333 ;; Delete from gnus-newsrc-assoc
5335 ;; Add to gnus-killed-assoc.
5339 ;; Clear unread hashtable.
5340 ;; Thanks cwitty@csli.Stanford.EDU (Carl Witty).
5342 ;; Then delete from .newsrc
5344 ;; Return the deleted newsrc entry.
5345 info
5346 )))
5349 "Insert newsrc INFO entry before NEXT.
5350 If optional argument NEXT is nil, appended to the last."
5357 ;; Check duplication.
5360 ;; Insert to gnus-newsrc-assoc.
5367 ;; Seach insertion point.
5373 ))
5374 ;; Find it.
5378 ))
5379 ;; Delete from gnus-killed-assoc.
5382 ;; Then insert to .newsrc.
5384 ;; Add to gnus-unread-hashtb.
5388 gnus-unread-hashtb)
5389 ))
5392 "Check consistency between gnus-newsrc-assoc and gnus-killed-assoc."
5403 ;; Subscribed in options line and not in gnus-newsrc-assoc.
5407 )
5409 ))
5412 "Delete bogus newsgroups.
5413 If optional argument CONFIRM is non-nil, confirm deletion of newsgroups."
5423 ;; Update gnus-newsrc-assoc.
5430 ;; Active newsgroup.
5432 ;; Found a bogus newsgroup.
5435 )
5437 ;; Update gnus-killed-assoc.
5438 ;; The killed newsgroups are deleted without any confirmations.
5443 ;; Active and really killed newsgroup.
5446 )
5448 ;; Remove BOGUS from .newsrc file.
5452 ;; Update gnus-marked-assoc.
5461 ))
5464 "Compute diffs between active and read articles."
5478 ;; Is nothing changed?
5481 ;; Is this newsgroup in the unread hash table?
5483 )
5484 nil ;Nothing to do.
5490 gnus-unread-hashtb)
5491 )
5493 )
5495 ))
5498 "Check expired article which is marked as unread."
5513 ;; This article is still active.
5521 ))
5525 "Mark articles as read using cross references and return updated newsgroups.
5526 Arguments are GROUP, HEADERS, UNREADS, and optional SUBSCRIBED-ONLY."
5536 ;; This article is not yet marked as read.
5537 nil
5539 ;; For each cross reference info. in one Xref: field.
5545 ;; Ignore unsubscribed newsgroup if requested.
5548 ;; Ignore article marked as unread.
5553 nil ;Alread marked.
5555 ;; Create new assoc entry for GROUP.
5557 ))
5559 ))
5561 ;; Mark cross referenced articles as read.
5563 ;;(message "%s %s" (prin1-to-string unreads) (prin1-to-string xref-list))
5564 ;; Return list of updated group name.
5566 ))
5569 "Parse Xref: field value, and return list of `(group . article-id)'."
5572 ;; Remove server host name.
5576 ;; Process each xref info.
5584 ;; Group name
5586 ;; Article-ID
5589 xref-list))
5592 ;; Return alist.
5593 xref-list
5594 ))
5597 "Update unread article information using XREFS alist."
5611 )))
5614 "Update unread articles of GROUP using UNREAD-LIST and MARKED-LIST."
5618 ;; Ignore unknown newsgroup.
5619 nil
5620 ;; Update gnus-unread-hashtb.
5624 ;; All of the articles are read.
5626 ;; Number of unread articles.
5629 ;; Update gnus-newsrc-assoc.
5631 ;; Articles from 1 to N are not active.
5635 ;; Update .newsrc buffer.
5637 ;; Update gnus-marked-assoc.
5645 gnus-marked-assoc)))
5646 )))
5647 )))
5650 "Get active file from NNTP server."
5655 ;; Save OLD active info.
5663 "Convert active file format to internal format."
5664 ;; Delete unnecessary lines.
5667 ;; Store active file in hashtable.
5672 nil t)
5682 gnus-active-hashtb)))
5685 "Read startup FILE.
5686 If optional argument RAWFILE is non-nil, the raw startup file is read."
5691 real-file file)))
5692 ;; Reset variables which may be included in the quick startup file.
5703 ;; Prepare .newsrc buffer.
5705 ;; It is not so good idea turning off undo.
5706 ;;(buffer-flush-undo (current-buffer))
5707 ;; Load quick .newsrc to restore gnus-marked-assoc and
5708 ;; gnus-killed-assoc even if gnus-newsrc-assoc is out of date.
5716 ;; .newsrc.el is newer than .newsrc.
5717 ;; Some older version does not support function
5718 ;; `file-newer-than-file-p'.
5722 ))
5723 quick-loaded
5724 gnus-newsrc-assoc ;Really loaded?
5725 )
5726 ;; We don't have to read the raw startup file.
5727 )
5729 ;; Since .newsrc file is newer than quick file, read it.
5734 )))
5737 "Make server dependent file name by catenating FILE and server host name."
5741 real-file file)
5742 ))
5745 "Parse current buffer as .newsrc file."
5751 ;; We have to re-initialize these variable (except for
5752 ;; gnus-marked-assoc and gnus-killed-assoc) because quick startup
5753 ;; file may contain bogus values.
5758 ;; Save options line to variable.
5759 ;; Lines beginning with white spaces are treated as continuation
5760 ;; line. Refer man page of newsrc(5).
5765 ;; Save entire options line.
5768 ;; Compile "-n" option.
5775 ))
5776 ))
5777 ;; Parse body of .newsrc file
5778 ;; Options line continuation lines must be also considered here.
5779 ;; Before supporting continuation lines, " newsgroup ! 1-5" was
5780 ;; okay, but now it is invalid. It should be "newsgroup! 1-5".
5782 ;; Due to overflows in regex.c, change the following regexp:
5783 ;; "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(.*\\)$"
5784 ;; Suggested by composer@bucsf.bu.edu (Jeff Kellem).
5788 ;; Check duplications of newsgroups.
5789 ;; Note: Checking the duplications takes very long time.
5809 read-list)))
5814 read-list)))
5818 ))
5821 gnus-newsrc-assoc))
5822 ))
5825 ))
5828 "Parse -n NEWSGROUPS options and return a cons of YES and NO regexps."
5833 ;; Parse each newsgroup description such as "comp.all". Commas
5834 ;; and white spaces can be a newsgroup separator.
5844 ;; Rewrite "all" to ".+" not ".*". ".+" requires at least one
5845 ;; character.
5849 ".+"
5856 ))
5857 ;; Make a cons of regexps from parsing result.
5876 ))
5879 "Save to .newsrc FILE."
5880 ;; Note: We cannot save .newsrc file if all newsgroups are removed
5881 ;; from the variable gnus-newsrc-assoc.
5883 gnus-current-startup-file
5885 ;; A buffer containing .newsrc file may be deleted.
5893 ;; Make backup file of master newsrc.
5894 ;; You can stop or change version control of backup file.
5895 ;; Suggested by jason@violet.berkeley.edu.
5898 ;; Quickly loadable .newsrc.
5909 ))
5910 ))
5913 "Incrementally update .newsrc buffer about GROUP.
5914 If optional second argument DELETE is non-nil, delete the group.
5915 If optional third argument NEXT is non-nil, inserted before it."
5917 ;; Taking account of the killed startup file.
5918 ;; Suggested by tale@pawl.rpi.edu.
5921 ;; Options line continuation lines must be also considered here.
5922 ;; Before supporting continuation lines, " newsgroup ! 1-5" was
5923 ;; okay, but now it is invalid. It should be "newsgroup! 1-5".
5926 ;; Delete ALL entries which match for GROUP.
5933 )
5935 nil
5936 ;; Insert group entry.
5939 nil
5940 ;; Find insertion point.
5952 ;; Insert after options line.
5956 ;; Skip continuation lines.
5964 )))
5965 )))
5968 "Insert GNUS variables such as `gnus-newsrc-assoc' in Lisp format."
5973 ;; Temporary rebind to make changes invisible.
5975 ;; Remove duplicated or unsubscribed newsgroups in gnus-killed-assoc.
5977 ;; Then, insert lisp expressions.
5986 ))
5989 "Insert ranges of read articles."
5999 ))
6002 "-"
6005 ))
6006 )))
6009 "Convert list of sorted numbers to ranges."
6022 )
6024 )
6026 ))
6029 "Expand compressed format of sequence."
6041 )
6043 ))
6046 "Compute number of articles from RANGE `((beg1 . end1) (beg2 . end2) ...)'."
6050 ;; If end1 is 0, it must be skipped. Usually no articles in
6051 ;; this group.
6054 )
6055 count ;Result
6056 ))
6059 "Compute (SRC - OBJ) on range.
6060 Range of SRC is expressed as `(beg . end)'.
6061 Range of OBJ is expressed as `((beg1 . end1) (beg2 . end2) ...)."
6065 ;; Src may be nil.
6076 )
6078 ))
6079 ;; Src may be nil.
6082 ;; Result
6086 ))
6088 \f
6089 ;;Local variables:
6090 ;;eval: (put 'gnus-eval-in-buffer-window 'lisp-indent-function 1)
6091 ;;end:
6095 ;;; gnus.el ends here