Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 2678a0ba884b889e4d9f743e95ac46949c756634 1 parent 48bc94c
@larsmagne larsmagne authored
View
48 lisp/ChangeLog
@@ -1,3 +1,51 @@
+Thu Oct 10 23:36:32 1996 Jan Vroonhof <vroonhof@math.ethz.ch>
+
+ * gnus-nocem.el (gnus-nocem): Typo.
+
+Thu Oct 10 23:16:57 1996 Lars Magne Ingebrigtsen <lars@eyesore.no>
+
+ * gnus-group.el (gnus-group-clear-data-on-native-groups): Only
+ clear data on native groups.
+
+Thu Oct 10 14:11:18 1996 Per Abrahamsen <abraham@dina.kvl.dk>
+
+ * gnus-cus.el (gnus-group-customize): Allow unknown entries.
+ (gnus-score-customize): Ditto.
+ (gnus-score-string-convert): Ditto.
+ (gnus-score-parameters): Added `touched'.
+
+Thu Oct 10 23:06:42 1996 Lars Magne Ingebrigtsen <lars@eyesore.no>
+
+ * gnus-start.el (gnus-read-active-file): Don't bug out on null
+ methods.
+
+Thu Oct 10 22:29:05 1996 Randell Jesup <Randell.Jesup@scala.com>
+
+ * article.el (article-hide-boring-headers): Reversed `date'
+ check.
+
+Thu Oct 10 15:24:08 1996 Lars Magne Ingebrigtsen <lars@eyesore.no>
+
+ * gnus-xmas.el (gnus-xmas-define): Removed gnus-display-type.
+
+ * gnus-group.el (gnus-group-new-mail): Strip prefix.
+
+ * nnmail.el (nnmail-new-mail-p): Didn't work.
+
+ * gnus-score.el (gnus-score-adaptive): Use
+ gnus-adaptive-word-score-alist.
+
+ * nnoo.el (nnoo-define-skeleton-1): Define
+ request-list-newsgroups.
+
+ * nnweb.el (w3-forms): Removed.
+
+ * gnus-uu.el (gnus-uu-digest-mail-forward): Use directory form.
+
+Tue Oct 8 14:30:53 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus.el: Red Gnus v0.49 is released.
+
Tue Oct 8 00:15:04 1996 Per Abrahamsen <abraham@dina.kvl.dk>
* gnus-nocem.el: Added customize support.
View
6 lisp/article.el
@@ -41,7 +41,7 @@
"^Approved:" "^Sender:" "^Received:" "^Mail-from:")
"All headers that match this regexp will be hidden.
This variable can also be a list of regexps of headers to be ignored.
-If `article-visible-headers' is non-nil, this variable will be ignored."
+If `gnus-visible-headers' is non-nil, this variable will be ignored."
:type '(choice :custom-show nil
regexp
(repeat regexp))
@@ -54,7 +54,7 @@ If `article-visible-headers' is non-nil, this variable will be ignored."
"^Gnus-Warning:" "^Resent-")
"All headers that do not match this regexp will be hidden.
This variable can also be a list of regexp of headers to remain visible.
-If this variable is non-nil, `gnus-article-ignored-headers' will be ignored."
+If this variable is non-nil, `gnus-ignored-headers' will be ignored."
:type '(choice :custom-show nil
(repeat regexp)
regexp)
@@ -333,7 +333,7 @@ always hide."
((eq elem 'date)
(let ((date (message-fetch-field "date")))
(when (and date
- (< (gnus-days-between date (current-time-string))
+ (< (gnus-days-between (current-time-string) date)
4))
(article-hide-header "date")))))))))))
View
4 lisp/custom-edit.el
@@ -4,7 +4,7 @@
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: help, faces
-;; Version: 0.992
+;; Version: 0.993
;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
;;; Commentary:
@@ -538,7 +538,7 @@ Optional EVENT is the location for the menu."
(cond ((eq escape ?s)
(setq child (widget-create-child-and-convert
widget 'custom-level
- :format "(%[sample%])\n"
+ :format "(%[show%])\n"
:button-face symbol)))
(t
(custom-format-handler widget escape)))
View
38 lisp/custom.el
@@ -4,7 +4,7 @@
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: help, faces
-;; Version: 0.992
+;; Version: 0.993
;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
;;; Commentary:
@@ -62,7 +62,9 @@
(defun custom-declare-variable (symbol value doc &rest args)
"Like `defcustom', but SYMBOL and VALUE are evaluated as notmal arguments."
(unless (default-boundp symbol)
- (set-default symbol (eval value)))
+ (set-default symbol (if (get symbol 'saved-value)
+ (eval (car (get symbol 'saved-value)))
+ (eval value))))
(put symbol 'factory-value (list value))
(when doc
(put symbol 'variable-documentation doc))
@@ -111,8 +113,10 @@ information."
(defun custom-declare-face (face spec doc &rest args)
"Like `defface', but FACE is evaluated as a normal argument."
(put face 'factory-face spec)
- (let ((value (or (get face 'saved-face) spec)))
- (custom-face-display-set face value))
+ (unless (facep face)
+ ;; If the user has already created the face, respect that.
+ (let ((value (or (get face 'saved-face) spec)))
+ (custom-face-display-set face value)))
(when doc
(put face 'face-documentation doc))
(while args
@@ -327,24 +331,22 @@ If FRAME is nil, set the default face."
(let* ((name (nth 0 atts))
(value (nth 1 atts))
(fun (nth 2 (assq name custom-face-attributes))))
- (setq atts (cdr (cdr atts)))
- (funcall fun face value))))
+ (setq atts (cdr (cdr atts)))
+ (condition-case nil
+ (funcall fun face value)
+ (error nil)))))
(defun custom-set-face-bold (face value &optional frame)
"Set the bold property of FACE to VALUE."
- (condition-case nil
- (if value
- (make-face-bold face frame)
- (make-face-unbold face frame))
- (error nil)))
+ (if value
+ (make-face-bold face frame)
+ (make-face-unbold face frame)))
(defun custom-set-face-italic (face value &optional frame)
"Set the italic property of FACE to VALUE."
- (condition-case nil
- (if value
- (make-face-italic face frame)
- (make-face-unitalic face frame))
- (error nil)))
+ (if value
+ (make-face-italic face frame)
+ (make-face-unitalic face frame)))
;;;###autoload
(defun custom-initialize-faces (&optional frame)
@@ -368,7 +370,6 @@ for that symbol."
(while args
(let ((symbol (nth 0 args))
(value (nth 1 args)))
- (set-default symbol (eval value))
(put symbol 'saved-value (list value)))
(setq args (cdr (cdr args)))))
@@ -381,8 +382,7 @@ See `defface' for the format of SPEC."
(while args
(let ((face (nth 0 args))
(spec (nth 1 args)))
- (put face 'saved-face spec)
- (custom-face-display-set face spec))
+ (put face 'saved-face spec))
(setq args (cdr (cdr args)))))
;;; Meta Customization
View
21 lisp/gnus-cus.el
@@ -215,7 +215,7 @@ edit the value to suit your taste."
,@types)
'(repeat :inline t
:tag "Variables"
- :format "%t:\n%h%v%i"
+ :format "%t:\n%h%v%i\n\n"
:doc "\
Set variables local to the group you are entering.
@@ -232,7 +232,11 @@ form, but who cares?"
(group :value (nil nil)
(symbol :tag "Variable")
(sexp :tag
- "Value")))))
+ "Value")))
+
+ '(repeat :inline t
+ :tag "Unknown entries"
+ sexp)))
(widget-insert "\n\nYou can also edit the ")
(widget-create 'info-link
:tag "select method"
@@ -350,7 +354,8 @@ The value of this entry should be a list of `(VAR VALUE)' pairs.
Each VAR will be made buffer-local to the current summary buffer,
and set to the value specified. This is a convenient, if somewhat
strange, way of setting variables in some groups if you don't like
-hooks much."))
+hooks much.")
+ (touched (sexp :format "Touched\n") "Internal variable."))
"Alist of valid symbolic score parameters.
Each entry has the form (NAME TYPE DOC), where NAME is the parameter
@@ -424,7 +429,10 @@ each score entry has four elements:
:tag ,tag
:doc ,doc
:format "%t:\n%h%v%i\n\n"
- ,group))))
+ (choice :format "%v"
+ :value ("" nil nil s)
+ ,group
+ sexp)))))
widget)
(define-widget 'gnus-score-integer 'group
@@ -618,7 +626,10 @@ articles in the thread may not have complete `References' headers.
Note that using this may lead to undeterministic scores of the
articles in the thread.
")
- ,@types)))
+ ,@types)
+ '(repeat :inline t
+ :tag "Unknown entries"
+ sexp)))
(use-local-map widget-keymap)
(widget-setup)))
View
44 lisp/gnus-ems.el
@@ -80,49 +80,7 @@
"String or function to be executed to display an X-Face header.
If it is a string, the command will be executed in a sub-shell
asynchronously. The compressed face will be piped to this command.")
-
- ;; Added by Per Abrahamsen <amanda@iesd.auc.dk>.
- (defvar gnus-display-type
- (condition-case nil
- (let ((display-resource (x-get-resource ".displayType" "DisplayType")))
- (cond (display-resource (intern (downcase display-resource)))
- ((x-display-color-p) 'color)
- ((x-display-grayscale-p) 'grayscale)
- (t 'mono)))
- (error 'mono))
- "A symbol indicating the display Emacs is running under.
-The symbol should be one of `color', `grayscale' or `mono'. If Emacs
-guesses this display attribute wrongly, either set this variable in
-your `~/.emacs' or set the resource `Emacs.displayType' in your
-`~/.Xdefaults'. See also `gnus-background-mode'.
-
-This is a meta-variable that will affect what default values other
-variables get. You would normally not change this variable, but
-pounce directly on the real variables themselves.")
-
- (defvar gnus-background-mode
- (condition-case nil
- (let ((bg-resource (x-get-resource ".backgroundMode"
- "BackgroundMode"))
- (params (frame-parameters)))
- (cond (bg-resource (intern (downcase bg-resource)))
- ((and (cdr (assq 'background-color params))
- (< (apply '+ (x-color-values
- (cdr (assq 'background-color params))))
- (* (apply '+ (x-color-values "white")) .6)))
- 'dark)
- (t 'light)))
- (error 'light))
- "A symbol indicating the Emacs background brightness.
-The symbol should be one of `light' or `dark'.
-If Emacs guesses this frame attribute wrongly, either set this variable in
-your `~/.emacs' or set the resource `Emacs.backgroundMode' in your
-`~/.Xdefaults'.
-See also `gnus-display-type'.
-
-This is a meta-variable that will affect what default values other
-variables get. You would normally not change this variable, but
-pounce directly on the real variables themselves."))
+)
(cond
((string-match "XEmacs\\|Lucid" emacs-version)
View
5 lisp/gnus-group.el
@@ -1397,7 +1397,7 @@ already."
(get-text-property (gnus-point-at-bol) 'gnus-unread))
(defun gnus-group-new-mail (group)
- (if (nnmail-new-mail-p group)
+ (if (nnmail-new-mail-p (gnus-group-real-name group))
gnus-new-mail-mark
? ))
@@ -2458,7 +2458,8 @@ If REVERSE, sort in reverse order."
(let ((alist (cdr gnus-newsrc-alist))
info)
(while (setq info (pop alist))
- (gnus-info-clear-data info))
+ (when (gnus-group-native-p (gnus-info-group info))
+ (gnus-info-clear-data info)))
(gnus-get-unread-articles))))
(defun gnus-info-clear-data (info)
View
2  lisp/gnus-nocem.el
@@ -30,7 +30,7 @@
(require 'gnus-art)
(require 'gnus-range)
-(defgroup 'gnus-nocem nil
+(defgroup gnus-nocem nil
"NoCeM pseudo-cancellation treatment"
:group 'gnus-score)
View
2  lisp/gnus-score.el
@@ -2041,7 +2041,7 @@ SCORE is the score to add."
(setq score
(cdr (assq
(gnus-data-mark d)
- gnus-default-adaptive-word-score-alist))))
+ gnus-adaptive-word-score-alist))))
;; This article has a mark that should lead to
;; adaptive word rules, so we insert the subject
;; and find all words in that string.
View
2  lisp/gnus-start.el
@@ -1483,6 +1483,8 @@ newsgroup."
(gnus-active-to-gnus-format method gnus-active-hashtb))
(t
(gnus-groups-to-gnus-format method gnus-active-hashtb))))))
+ ((null method)
+ t)
(t
(if (not (gnus-request-list method))
(unless (equal method gnus-message-archive-method)
View
2  lisp/gnus-uu.el
@@ -434,7 +434,7 @@ The headers will be included in the sequence they are matched.")
"Digests and forwards all articles in this series."
(interactive "P")
(let ((gnus-uu-save-in-digest t)
- (file (make-temp-name (concat gnus-uu-tmp-dir "forward")))
+ (file (make-temp-name (nnheader-concat gnus-uu-tmp-dir "forward")))
buf subject from newsgroups)
(setq gnus-uu-digest-from-subject nil)
(gnus-uu-decode-save n file)
View
46 lisp/gnus-xmas.el
@@ -403,57 +403,13 @@ call it with the value of the `gnus-data' text property."
(if (compiled-function-p fval)
(list 'funcall fval)
(cons 'progn (cdr (cdr fval))))))
-
- ;; Fix by "jeff (j.d.) sparkes" <jsparkes@bnr.ca>.
- (defvar gnus-display-type (device-class)
- "A symbol indicating the display Emacs is running under.
-The symbol should be one of `color', `grayscale' or `mono'. If Emacs
-guesses this display attribute wrongly, either set this variable in
-your `~/.emacs' or set the resource `Emacs.displayType' in your
-`~/.Xdefaults'. See also `gnus-background-mode'.
-
-This is a meta-variable that will affect what default values other
-variables get. You would normally not change this variable, but
-pounce directly on the real variables themselves.")
-
(fset 'gnus-x-color-values
(if (fboundp 'x-color-values)
'x-color-values
(lambda (color)
(color-instance-rgb-components
- (make-color-instance color)))))
-
- (defvar gnus-background-mode
- (let* ((bg-resource
- (condition-case ()
- (x-get-resource ".backgroundMode" "BackgroundMode" 'string)
- (error nil)))
- (params (frame-parameters))
- (color (condition-case ()
- (or (assq 'background-color params)
- (color-instance-name
- (specifier-instance
- (face-background 'default))))
- (error nil))))
- (cond (bg-resource (intern (downcase bg-resource)))
- ((and color
- (< (apply '+ (gnus-x-color-values color))
- (/ (apply '+ (gnus-x-color-values "white")) 3)))
- 'dark)
- (t 'light)))
- "A symbol indicating the Emacs background brightness.
-The symbol should be one of `light' or `dark'.
-If Emacs guesses this frame attribute wrongly, either set this variable in
-your `~/.emacs' or set the resource `Emacs.backgroundMode' in your
-`~/.Xdefaults'.
-See also `gnus-display-type'.
-
-This is a meta-variable that will affect what default values other
-variables get. You would normally not change this variable, but
-pounce directly on the real variables themselves.")
- )
-
+ (make-color-instance color))))))
(defun gnus-xmas-redefine ()
View
2  lisp/gnus.el
@@ -42,7 +42,7 @@
"Score and kill file handling."
:group 'gnus )
-(defconst gnus-version-number "0.49"
+(defconst gnus-version-number "0.50"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
View
5 lisp/nnmail.el
@@ -1197,7 +1197,8 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
&optional group spool-func)
"Read new incoming mail."
;; Nix out the previous split history.
- (setq nnmail-split-history nil)
+ (unless group
+ (setq nnmail-split-history nil))
(let* ((spools (nnmail-get-spool-files group))
(group-in group)
incoming incomings spool)
@@ -1388,7 +1389,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
(let ((his nnmail-split-history)
found)
(while his
- (when (member group (pop his))
+ (when (assoc group (pop his))
(setq found t
his nil)))
found))
View
2  lisp/nnmh.el
@@ -382,6 +382,8 @@
(setq nnmh-current-directory nil)
t))))
+(nnoo-define-skeleton nnmh)
+
;;; Internal functions.
View
2  lisp/nnoo.el
@@ -257,7 +257,7 @@ All functions will return nil and report an error."
(let ((functions '(retrieve-headers
request-close request-article
open-group request-group close-group
- request-list request-post))
+ request-list request-post request-list-newsgroups))
function fun)
(while (setq function (pop functions))
(when (not (fboundp (setq fun (nnoo-symbol backend function))))
View
1  lisp/nnweb.el
@@ -32,7 +32,6 @@
(require 'message)
(require 'gnus-util)
(require 'w3)
-(require 'w3-forms)
(require 'url)
(nnoo-declare nnweb)
View
2  lisp/widget-edit.el
@@ -4,7 +4,7 @@
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: extensions
-;; Version: 0.992
+;; Version: 0.993
;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
;;; Commentary:
View
2  lisp/widget.el
@@ -4,7 +4,7 @@
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: help, extensions, faces, hypermedia
-;; Version: 0.992
+;; Version: 0.993
;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
;;; Commentary:
View
4 texi/ChangeLog
@@ -1,3 +1,7 @@
+Fri Oct 11 12:38:59 1996 Lars Magne Ingebrigtsen <larsi@ylfing.ifi.uio.no>
+
+ * gnus.texi (Adaptive Scoring): Addition.
+
Tue Oct 8 13:16:41 1996 Lars Magne Ingebrigtsen <larsi@ylfing.ifi.uio.no>
* Makefile (all): Make custom.
View
11 texi/Makefile
@@ -2,6 +2,7 @@ TEXI2DVI=texi2dvi
EMACS=emacs
MAKEINFO=$(EMACS) -batch -q -no-site-file
INFOSWI=-l texinfmt -f texinfo-every-node-update -f texinfo-format-buffer -f save-buffer
+XINFOSWI=-eval '(find-file "custom.texi")' -l texinfmt -f texinfo-every-node-update -f texinfo-format-buffer -f save-buffer
LATEX=latex
DVIPS=dvips
PERL=perl
@@ -11,16 +12,16 @@ all: gnus message custom widget
most: texi2latexi.elc latex latexps
gnus: gnus.texi
- $(MAKEINFO) gnus.texi $(INFOSWI)
+ $(MAKEINFO) gnus.texi $(XINFOSWI)
custom: custom.texi
- $(MAKEINFO) custom.texi $(INFOSWI)
+ $(MAKEINFO) custom.texi $(XINFOSWI)
widget: widget.texi
- $(MAKEINFO) widget.texi $(INFOSWI)
+ $(MAKEINFO) widget.texi $(XINFOSWI)
message: message.texi
- $(MAKEINFO) message.texi $(INFOSWI)
+ $(MAKEINFO) message.texi $(XINFOSWI)
dvi: gnus.dvi message.dvi
@@ -46,6 +47,8 @@ clean:
makeinfo:
makeinfo -o gnus gnus.texi
makeinfo -o message message.texi
+ makeinfo -o widget widget.texi
+ makeinfo -o custom custom.texi
texi2latexi.elc:
$(EMACS) -batch -l bytecomp -f batch-byte-recompile-directory
View
68 texi/gnus.texi
@@ -1,7 +1,7 @@
\input texinfo @c -*-texinfo-*-
@setfilename gnus
-@settitle Red Gnus 0.49 Manual
+@settitle Red Gnus 0.50 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@@ -287,7 +287,7 @@ into another language, under the above conditions for modified versions.
@tex
@titlepage
-@title Red Gnus 0.49 Manual
+@title Red Gnus 0.50 Manual
@author by Lars Magne Ingebrigtsen
@page
@@ -7084,7 +7084,8 @@ By default this hook just contains @code{gnus-article-hide-headers},
millions, of functions you can put in this hook. For an overview of
functions @pxref{Article Highlighting}, @pxref{Article Hiding},
@pxref{Article Washing}, @pxref{Article Buttons} and @pxref{Article
-Date}.
+Date}. Note that the order of functions in this hook might affect
+things, so you may have to fiddle a bit to get the desired results.
You can, of course, write your own functions. The functions are called
from the article buffer, and you can do anything you like, pretty much.
@@ -8800,6 +8801,10 @@ articles you have read to disappear after a while:
Another way to have auto-expiry happen is to have the element
@code{auto-expire} in the group parameters of the group.
+If you use adaptive scoring (@pxref{Adaptive Scoring}) and
+auto-expiring, you'll have problems. Auto-expiring and adaptive scoring
+doesn't really mix very well.
+
@vindex nnmail-expiry-wait
The @code{nnmail-expiry-wait} variable supplies the default time an
expirable article has to live. The default is seven days.
@@ -9585,12 +9590,45 @@ A file format called @sc{soup} has been developed for transporting news
and mail from servers to home machines and back again. It can be a bit
fiddly.
+First some terminology:
+
+@table @dfn
+
+@item server
+This is the machine that is connected to the outside world and where you
+get news and/or mail from.
+
+@item home machine
+This is the machine that you want to do the actual reading and responding
+on. It is typically not connected to the rest of the world in any way.
+
+@item packet
+Something that contains messages and/or commands. There are two kinds
+of packets:
+
+@table @dfn
+@item message packets
+These are packets made at the server, and typically contains lots of
+messages for you to read. These are called @file{SoupoutX.tgz} by
+default, where @var{X} is a number.
+
+@item response packets
+These are packets made at the home machine, and typically contains
+replies that you've written. These are called @file{SoupinX.tgz} by
+default, where @var{X} is a number.
+
+@end table
+
+@end table
+
+
@enumerate
@item
You log in on the server and create a @sc{soup} packet. You can either
-use a dedicated @sc{soup} thingie, or you can use Gnus to create the
-packet with the @kbd{O s} command.
+use a dedicated @sc{soup} thingie (like the @code{awk} program), or you
+can use Gnus to create the packet with its @sc{soup} commands (@kbd{O
+s} and/or @kbd{G s b}; and then @kbd{G s p}) (@pxref{SOUP Commands}).
@item
You transfer the packet home. Rail, boat, car or modem will do fine.
@@ -9599,11 +9637,12 @@ You transfer the packet home. Rail, boat, car or modem will do fine.
You put the packet in your home directory.
@item
-You fire up Gnus using the @code{nnsoup} backend as the native server.
+You fire up Gnus on your home machine using the @code{nnsoup} backend as
+the native or secondary server.
@item
You read articles and mail and answer and followup to the things you
-want.
+want (@pxref{SOUP Replies}).
@item
You do the @kbd{G s r} command to pack these replies into a @sc{soup}
@@ -9633,6 +9672,8 @@ reading and Gnus for packing/sending these @sc{soup} packets.
@node SOUP Commands
@subsubsection SOUP Commands
+These are commands for creating and manipulating @sc{soup} packets.
+
@table @kbd
@item G s b
@kindex G s b (Group)
@@ -9644,7 +9685,7 @@ process/prefix convention.
@item G s w
@kindex G s w (Group)
@findex gnus-soup-save-areas
-Save all data files (@code{gnus-soup-save-areas}).
+Save all @sc{soup} data files (@code{gnus-soup-save-areas}).
@item G s s
@kindex G s s (Group)
@@ -9667,7 +9708,7 @@ Pack all replies into a replies packet (@code{nnsoup-pack-replies}).
@findex gnus-soup-add-article
This summary-mode command adds the current article to a @sc{soup} packet
(@code{gnus-soup-add-article}). It understands the process/prefix
-convention.
+convention (@pxref{Process/Prefix}).
@end table
@@ -10860,6 +10901,11 @@ If you have marked 10 articles with the same subject with
That means that that subject will get a score of ten times -1, which
should be, unless I'm much mistaken, -10.
+If you have auto-expirable (mail) groups (@pxref{Expiring Mail}), all
+the read articles will be marked with the @samp{E} mark. This'll
+probably make adaptive scoring slightly impossible, so auto-expiring and
+adaptive scoring doesn't really mix very well.
+
The headers you can score on are @code{from}, @code{subject},
@code{message-id}, @code{references}, @code{xref}, @code{lines},
@code{chars} and @code{date}. In addition, you can score on
@@ -13850,7 +13896,7 @@ Boring headers can be hidden (@pxref{Article Hiding}).
@lisp
(add-hook 'gnus-article-display-hook
- 'gnus-article-hide-boring-headers)
+ 'gnus-article-hide-boring-headers t)
@end lisp
@item
@@ -14024,7 +14070,7 @@ Really do unbinhexing.
And much, much, much more. There is more to come than has already been
implemented. (But that's always true, isn't it?)
-@file{<URL:http://www.ifi.uio.no/~larsi/sgnus/todo>} is where the actual
+@file{<URL:http://www.ifi.uio.no/~larsi/rgnus/todo>} is where the actual
up-to-the-second todo list is located, so if you're really curious, you
could point your Web browser over that-a-way.
Please sign in to comment.
Something went wrong with that request. Please try again.