projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[gnus]
/
lisp
/
gnus.el
diff --git
a/lisp/gnus.el
b/lisp/gnus.el
index
34abacf
..
d84b28e
100644
(file)
--- a/
lisp/gnus.el
+++ b/
lisp/gnus.el
@@
-1,5
+1,5
@@
;;; gnus.el --- a newsreader for GNU Emacs
;;; gnus.el --- a newsreader for GNU Emacs
-;; Copyright (C) 1987,88,89,90,93,94,95,96,97 Free Software Foundation, Inc.
+;; Copyright (C) 1987,88,89,90,93,94,95,96,97
,98
Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
;; Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
;; Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
@@
-246,7
+246,7
@@
is restarted, and sometimes reloaded."
:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
-(defconst gnus-version-number "0.
25
"
+(defconst gnus-version-number "0.
33
"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number)
"Version number for this version of Gnus.")
(defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number)
@@
-701,8
+701,8
@@
All other Gnus path variables are initialized from this variable."
:type 'directory)
(defcustom gnus-directory (or (getenv "SAVEDIR")
:type 'directory)
(defcustom gnus-directory (or (getenv "SAVEDIR")
-
(nnheader-concat gnus-home-directory "News/"))
- "Directory variable from which all other Gnus file variables are derived."
+ (nnheader-concat gnus-home-directory "News/"))
+ "
*
Directory variable from which all other Gnus file variables are derived."
:group 'gnus-files
:type 'directory)
:group 'gnus-files
:type 'directory)
@@
-769,7
+769,7
@@
used to 899, you would say something along these lines:
nil
(list gnus-nntp-service)))
(error nil))
nil
(list gnus-nntp-service)))
(error nil))
- "Default method for selecting a newsgroup.
+ "
*
Default method for selecting a newsgroup.
This variable should be a list, where the first element is how the
news is to be fetched, the second is the address.
This variable should be a list, where the first element is how the
news is to be fetched, the second is the address.
@@
-797,7
+797,7
@@
see the manual for details."
,(nnheader-concat message-directory "archive/active"))
(nnfolder-get-new-mail nil)
(nnfolder-inhibit-expiry t))
,(nnheader-concat message-directory "archive/active"))
(nnfolder-get-new-mail nil)
(nnfolder-inhibit-expiry t))
- "Method used for archiving messages you've sent.
+ "
*
Method used for archiving messages you've sent.
This should be a mail method.
It's probably not a very effective to change this variable once you've
This should be a mail method.
It's probably not a very effective to change this variable once you've
@@
-902,7
+902,7
@@
in the documentation of `gnus-select-method'."
"/ftp@nctuccca.edu.tw:/USENET/FAQ/"
"/ftp@hwarang.postech.ac.kr:/pub/usenet/"
"/ftp@ftp.hk.super.net:/mirror/faqs/")
"/ftp@nctuccca.edu.tw:/USENET/FAQ/"
"/ftp@hwarang.postech.ac.kr:/pub/usenet/"
"/ftp@ftp.hk.super.net:/mirror/faqs/")
- "Directory where the group FAQs are stored.
+ "
*
Directory where the group FAQs are stored.
This will most commonly be on a remote machine, and the file will be
fetched by ange-ftp.
This will most commonly be on a remote machine, and the file will be
fetched by ange-ftp.
@@
-1060,7
+1060,7
@@
articles. This is not a good idea."
(defcustom gnus-summary-prepare-exit-hook
'(gnus-summary-expire-articles)
(defcustom gnus-summary-prepare-exit-hook
'(gnus-summary-expire-articles)
- "A hook called when preparing to exit from the summary buffer.
+ "
*
A hook called when preparing to exit from the summary buffer.
It calls `gnus-summary-expire-articles' by default."
:group 'gnus-summary-exit
:type 'hook)
It calls `gnus-summary-expire-articles' by default."
:group 'gnus-summary-exit
:type 'hook)
@@
-1074,7
+1074,8
@@
required."
(defcustom gnus-expert-user nil
"*Non-nil means that you will never be asked for confirmation about anything.
(defcustom gnus-expert-user nil
"*Non-nil means that you will never be asked for confirmation about anything.
-And that means *anything*."
+That doesn't mean *anything* anything; particularly destructive
+commands will still require prompting."
:group 'gnus-meta
:type 'boolean)
:group 'gnus-meta
:type 'boolean)
@@
-1126,8
+1127,9
@@
slower."
("nnfolder" mail respool address)
("nngateway" none address prompt-address physical-address)
("nnweb" none)
("nnfolder" mail respool address)
("nngateway" none address prompt-address physical-address)
("nnweb" none)
+ ("nnlistserv" none)
("nnagent" post-mail))
("nnagent" post-mail))
- "An alist of valid select methods.
+ "
*
An alist of valid select methods.
The first element of each list lists should be a string with the name
of the select method. The other elements may be the category of
this method (i. e., `post', `mail', `none' or whatever) or other
The first element of each list lists should be a string with the name
of the select method. The other elements may be the category of
this method (i. e., `post', `mail', `none' or whatever) or other
@@
-1254,7
+1256,7
@@
It is called with three parameters -- GROUP, LEVEL and OLDLEVEL."
browse-menu server-menu
page-marker tree-menu binary-menu pick-menu
grouplens-menu)
browse-menu server-menu
page-marker tree-menu binary-menu pick-menu
grouplens-menu)
- "Enable visual features.
+ "
*
Enable visual features.
If `visual' is disabled, there will be no menus and few faces. Most of
the visual customization options below will be ignored. Gnus will use
less space and be faster as a result.
If `visual' is disabled, there will be no menus and few faces. Most of
the visual customization options below will be ignored. Gnus will use
less space and be faster as a result.
@@
-1297,7
+1299,7
@@
and `grouplens-menu'."
'highlight)
'default)
(error 'highlight))
'highlight)
'default)
(error 'highlight))
- "Face used for group or summary buffer mouse highlighting.
+ "
*
Face used for group or summary buffer mouse highlighting.
The line beneath the mouse pointer will be highlighted with this
face."
:group 'gnus-visual
The line beneath the mouse pointer will be highlighted with this
face."
:group 'gnus-visual
@@
-1315,7
+1317,7
@@
face."
gnus-article-hide-boring-headers
gnus-article-treat-overstrike
gnus-article-maybe-highlight))
gnus-article-hide-boring-headers
gnus-article-treat-overstrike
gnus-article-maybe-highlight))
- "Controls how the article buffer will look.
+ "
*
Controls how the article buffer will look.
If you leave the list empty, the article will appear exactly as it is
stored on the disk. The list entries will hide or highlight various
If you leave the list empty, the article will appear exactly as it is
stored on the disk. The list entries will hide or highlight various
@@
-1371,6
+1373,7
@@
want."
(defvar gnus-group-get-parameter-function 'gnus-group-get-parameter)
(defvar gnus-original-article-buffer " *Original Article*")
(defvar gnus-newsgroup-name nil)
(defvar gnus-group-get-parameter-function 'gnus-group-get-parameter)
(defvar gnus-original-article-buffer " *Original Article*")
(defvar gnus-newsgroup-name nil)
+(defvar gnus-ephemeral-servers nil)
(defvar gnus-agent nil
"Whether we want to use the Gnus agent or not.")
(defvar gnus-agent nil
"Whether we want to use the Gnus agent or not.")
@@
-1389,7
+1392,6
@@
want."
;; Variable holding the user answers to all method prompts.
(defvar gnus-method-history nil)
;; Variable holding the user answers to all method prompts.
(defvar gnus-method-history nil)
-(defvar gnus-group-history nil)
;; Variable holding the user answers to all mail method prompts.
(defvar gnus-mail-method-history nil)
;; Variable holding the user answers to all mail method prompts.
(defvar gnus-mail-method-history nil)
@@
-1632,7
+1634,9
@@
gnus-newsrc-hashtb should be kept so that both hold the same information.")
gnus-group-list-groups gnus-group-first-unread-group
gnus-group-set-mode-line gnus-group-set-info gnus-group-save-newsrc
gnus-group-setup-buffer gnus-group-get-new-news
gnus-group-list-groups gnus-group-first-unread-group
gnus-group-set-mode-line gnus-group-set-info gnus-group-save-newsrc
gnus-group-setup-buffer gnus-group-get-new-news
- gnus-group-make-help-group gnus-group-update-group)
+ gnus-group-make-help-group gnus-group-update-group
+ gnus-clear-inboxes-moved gnus-group-iterate
+ gnus-group-group-name)
("gnus-bcklg" gnus-backlog-request-article gnus-backlog-enter-article
gnus-backlog-remove-article)
("gnus-art" gnus-article-read-summary-keys gnus-article-save
("gnus-bcklg" gnus-backlog-request-article gnus-backlog-enter-article
gnus-backlog-remove-article)
("gnus-art" gnus-article-read-summary-keys gnus-article-save
@@
-1680,7
+1684,7
@@
gnus-newsrc-hashtb should be kept so that both hold the same information.")
;;; gnus-sum.el thingies
;;; gnus-sum.el thingies
-(defcustom gnus-summary-line-format "%U
\%R\%z\%I\
%(%[%4L: %-20,20n%]%) %s\n"
+(defcustom gnus-summary-line-format "%U
%R%z%I
%(%[%4L: %-20,20n%]%) %s\n"
"*The format specification of the lines in the summary buffer.
It works along the same lines as a normal formatting string,
"*The format specification of the lines in the summary buffer.
It works along the same lines as a normal formatting string,
@@
-2074,11
+2078,13
@@
g -- Group name."
((= c ?g)
(gnus-group-group-name))
((= c ?A)
((= c ?g)
(gnus-group-group-name))
((= c ?A)
- (gnus-summary-article-number))
+ (gnus-summary-skip-intangible)
+ (or (get-text-property (point) 'gnus-number)
+ (gnus-summary-last-subject)))
((= c ?H)
((= c ?H)
- (gnus-
summary-article-header
))
+ (gnus-
data-header (gnus-data-find (gnus-summary-article-number))
))
(t
(t
- (error "No
t
implemented spec")))
+ (error "No
n-
implemented spec")))
out)
(cond
((= c ?r)
out)
(cond
((= c ?r)
@@
-2389,7
+2395,9
@@
If SYMBOL, return the value of that symbol in the group parameters."
(defun gnus-group-get-parameter (group &optional symbol)
"Return the group parameters for GROUP.
(defun gnus-group-get-parameter (group &optional symbol)
"Return the group parameters for GROUP.
-If SYMBOL, return the value of that symbol in the group parameters."
+If SYMBOL, return the value of that symbol in the group parameters.
+Most functions should use `gnus-group-find-parameter', which
+also examines the topic parameters."
(let ((params (gnus-info-params (gnus-get-info group))))
(if symbol
(gnus-group-parameter-value params symbol)
(let ((params (gnus-info-params (gnus-get-info group))))
(if symbol
(gnus-group-parameter-value params symbol)