Synch to No Gnus 200403030541.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c57437f..a05b3bd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,28 @@
+2004-03-03  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-cus.el (gnus-agent-customize-category): Mismatched paren.
+
+2004-03-02  Kevin Greiner <kgreiner@xpediantsolutions.com>
+
+       * gnus-cus.el (gnus-agent-customize-category): Removed
+       ignore-errors macro reference that required cl to be loaded at
+       run-time.
+
+       * gnus-range.el (gnus-sorted-range-intersection): Now accepts
+       single-interval range of the form (min . max).  Previously the
+       range had to look like ((min . max)).  Likewise, return
+       (min . max) rather than ((min . max)).
+       (gnus-range-map): Use gnus-range-normalize to accept
+       single-interval range.
+
+       * gnus-sum.el (gnus-summary-highlight-line): Articles stored in
+       the cache, but not the agent, now appear with their usual face.
+
+       * dgnushack.el (loaddir): New variable that is bound to the
+       directory containing the dgnushack.el file. Use loaddir, rather
+       than srcdir, to update load-path. Change lets dgnushack compile
+       code in directories other than GNUS/lisp.
+
 2004-03-01  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lpath.el: Don't bind w3m-safe-url-regexp.

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 7dfc4ea..0562a62 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -56,6 +56,7 @@
   (load "cl-macs" nil t))
 
 (defvar srcdir (or (getenv "srcdir") "."))
+(defvar loaddir (and load-file-name (file-name-directory load-file-name)))
 
 (defvar dgnushack-w3-directory (let ((w3dir (getenv "W3DIR")))
                                 (unless (zerop (length w3dir))
@@ -267,7 +268,8 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again.
         (set-syntax-table stab)))))
 
 (push srcdir load-path)
-(load (expand-file-name "lpath.el" srcdir) nil t t)
+(push loaddir load-path)
+(load (expand-file-name "lpath.el" loaddir) nil t)
 
 (require 'custom)
 

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 2b198d9..fac490b 100644 (file)
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -985,7 +985,7 @@ articles in the thread.
                    (widgets category-fields))
               (while widgets
                 (let* ((widget (pop widgets))
-                       (value (condition-case nil (widget-value widget) (error)))))
+                       (value (condition-case nil (widget-value widget) (error))))
                   (eval `(setf (,(widget-get widget :accessor) ',info)
                                ',value)))))
             (gnus-category-write)

diff --git a/lisp/gnus-range.el b/lisp/gnus-range.el
index ffe47c1..eea1737 100644 (file)
--- a/lisp/gnus-range.el
+++ b/lisp/gnus-range.el
@@ -189,9 +189,19 @@ LIST1 and LIST2 have to be sorted over <."
 RANGE1 and RANGE2 have to be sorted over <."
   (let* (out
          (min1 (car range1))
-         (max1 (if (numberp min1) min1 (prog1 (cdr min1) (setq min1 (car min1)))))
+         (max1 (if (numberp min1) 
+                   (if (numberp (cdr range1))
+                       (prog1 (cdr range1)
+                         (setq range1 nil)) min1)
+                 (prog1 (cdr min1)
+                   (setq min1 (car min1)))))
          (min2 (car range2))
-         (max2 (if (numberp min2) min2 (prog1 (cdr min2) (setq min2 (car min2))))))
+         (max2 (if (numberp min2)
+                   (if (numberp (cdr range2))
+                       (prog1 (cdr range2) 
+                         (setq range2 nil)) min2) 
+                 (prog1 (cdr min2)
+                   (setq min2 (car min2))))))
     (setq range1 (cdr range1)
           range2 (cdr range2))
     (while (and min1 min2)
@@ -218,7 +228,12 @@ RANGE1 and RANGE2 have to be sorted over <."
         (setq min2 (car range2)
               max2 (if (numberp min2) min2 (prog1 (cdr min2) (setq min2 (car min2))))
               range2 (cdr range2))))
-    (nreverse out)))
+    (cond ((cdr out)
+        (nreverse out))
+          ((numberp (car out))
+           out)
+          (t
+           (car out)))))
 
 ;;;###autoload
 (defalias 'gnus-set-sorted-intersection 'gnus-sorted-nintersection)
@@ -628,6 +643,7 @@ LIST is a sorted list."
 
 (defun gnus-range-map (func range)
   "Apply FUNC to each value contained by RANGE."
+  (setq range (gnus-range-normalize range))
   (while range
     (let ((span (pop range)))
       (if (numberp span)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 9afefab..cf3f965 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -11412,7 +11412,8 @@ If REVERSE, save parts that do not match TYPE."
         (default-high gnus-summary-default-high-score)
         (default-low gnus-summary-default-low-score)
         (uncached (and gnus-summary-use-undownloaded-faces
-                        (memq article gnus-newsgroup-undownloaded))))
+                        (memq article gnus-newsgroup-undownloaded)
+                        (not (memq article gnus-newsgroup-cached)))))
     (let ((face (funcall (gnus-summary-highlight-line-0))))
       (unless (eq face (get-text-property beg 'face))
        (gnus-put-text-property-excluding-characters-with-faces

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 3911955..d0da138 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,23 @@
+2004-03-03  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus.texi: Enclose the iflatex section with iftex.
+       (Gnus Unplugged): Use pxref instead of xref.
+
+       * emacs-mime.texi: Enclose the iflatex section with iftex.
+
+2004-03-02  Kevin Greiner <kgreiner@xpediantsolutions.com>
+
+       * emacs-mime.texi: Wrapped documentencoding inside of iflatex as
+       documentencoding is not supported by infohack.
+
+       * gnus.texi: Wrapped documentencoding inside of iflatex as
+       documentencoding is not supported by infohack.
+       Changed file's character coding to utf-8 as the file contains
+       characters that can not be encoded using iso-8859-1.
+       (Gnus Unplugged): Reference gnus-agent variable.
+       (Agent Variables): Added gnus-agent.
+       
+
 2004-02-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus.texi (X-Face): Add uncompface-use-external.

diff --git a/texi/emacs-mime.texi b/texi/emacs-mime.texi
index e536993..25671f6 100644 (file)
--- a/texi/emacs-mime.texi
+++ b/texi/emacs-mime.texi
@@ -9,8 +9,10 @@
 @direntry
 * Emacs MIME: (emacs-mime).   The MIME de/composition library.
 @end direntry
-@documentencoding ISO-8859-1
 @iftex
+@iflatex
+@documentencoding ISO-8859-1
+@end iflatex
 @finalout
 @end iftex
 @setchapternewpage odd

diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi
index 5f48af2..7929da4 100644 (file)
--- a/texi/gnus-ja.texi
+++ b/texi/gnus-ja.texi
@@ -16683,7 +16683,8 @@ gnus-namazu-update-all-indices} \e$B$H$9$kI,MW$,$"$k$+$b$7$l$^$;$s!#\e(B
 \e$B$KG$$;$k$h$&$K$9$k$3$H$OM}$K$+$J$C$F$$$^$9!#\e(B
 
 Gnus \e$B$r\e(B ``\e$B%*%U%i%$%s\e(B'' \e$B$N%K%e!<%9%j!<%@!<$H$7$F;EN)$F$k$N$O6K$a$F4JC1$G\e(B
-\e$B$9!#<B:]!"$"$J$?$O2?$b@_Dj$9$kI,MW$,L5$$$N$G$9!#\e(B
+\e$B$9!#<B:]!"%(!<%8%'%s%H$O:#$d%G%#%U%)%k%H$GM-8z$K$J$C$F$$$k\e(B (@pxref{Agent
+Variables, gnus-agent}) \e$B$N$G!"$"$J$?$O2?$b@_Dj$9$kI,MW$,L5$$$N$G$9!#\e(B
 
 \e$B$b$A$m$s!"$3$l$r%*%U%i%$%s%K%e!<%9%j!<%@!<$H$7$F;H$&$K$O!"$$$/$D$+?7$7$$\e(B
 \e$BL?Na$r3P$($J$/$F$O$J$j$^$;$s!#\e(B
@@ -17641,6 +17642,17 @@ Variables} \e$B;2>H\e(B)\e$B!#\e(B
 @subsection \e$B%(!<%8%'%s%HJQ?t\e(B
 
 @table @code
+@item gnus-agent
+@vindex gnus-agent
+\e$B%(!<%8%'%s%H$,M-8z$K$J$C$F$$$k$+$I$&$+!#%G%#%U%)%k%H$O\e(B @code{t} \e$B$G$9!#\e(B
+\e$B:G=i$KM-8z$K$5$l$k$H!"$$$/$D$+$N%P%C%/%(%s%I$r%(!<%8%'%s%H2=$9$k$?$a$K!"\e(B
+\e$B%(!<%8%'%s%H$O\e(B @code{gnus-agent-auto-agentize-methods} \e$B$r;H$$$^$9!#%5!<\e(B
+\e$B%P!<%P%C%U%!$G%(!<%8%'%s%H$N%3%^%s%I$r;H$&$3$H$K$h$C$F!"$I$N%P%C%/%(%s\e(B
+\e$B%I$r%(!<%8%'%s%H2=$9$k$+$rJQ99$9$k$3$H$,$G$-$^$9!#\e(B
+
+\e$B%5!<%P!<%P%C%U%!$KF~$k$K$O!"%0%k!<%W%P%C%U%!\e(B
+\e$B$G\e(B @kbd{^} (@code{gnus-group-enter-server-mode}) \e$B$r;H$C$F2<$5$$!#\e(B
+
 @item gnus-agent-directory
 @vindex gnus-agent-directory
 Gnus \e$B%(!<%8%'%s%H$,%U%!%$%k$r3JG<$9$k>l=j!#=i4|@_DjCM\e(B

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 7623e17..9795da5 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -9,8 +9,10 @@
 @direntry
 * Gnus: (gnus).         The newsreader Gnus.
 @end direntry
-@documentencoding ISO-8859-1
 @iftex
+@iflatex
+@documentencoding ISO-8859-1
+@end iflatex
 @finalout
 @end iftex
 @setchapternewpage odd
@@ -17432,7 +17434,8 @@ functionality up to the newsreader makes sense if you're the only person
 reading news on a machine.
 
 Setting up Gnus as an ``offline'' newsreader is quite simple.  In
-fact, you don't even have to configure anything.
+fact, you don't have to configure anything as the agent is now enabled
+by default (@pxref{Agent Variables, gnus-agent}).
 
 Of course, to use it as such, you have to learn a few new commands.
 
@@ -18420,6 +18423,17 @@ ask you to confirm your action (see
 @subsection Agent Variables
 
 @table @code
+@item gnus-agent
+@vindex gnus-agent
+Is the agent enabled?  The default is @code{t}.  When first enabled,
+the agent will use @code{gnus-agent-auto-agentize-methods} to
+automatically mark some backends as agentized.  You may change which
+backends are agentized using the agent commands in the server buffer.
+
+To enter the server buffer, use the @kbd{^}
+(@code{gnus-group-enter-server-mode}) command in the group buffer.
+
+
 @item gnus-agent-directory
 @vindex gnus-agent-directory
 Where the Gnus Agent will store its files.  The default is
@@ -28272,5 +28286,5 @@ former).  The manual is unambiguous, but it can be confusing.
 
 @c Local Variables:
 @c mode: texinfo
-@c coding: iso-8859-1
+@c coding: utf-8
 @c End: