Merge changes made in Gnus trunk.

shr.el (shr-render-td): Store the actual background colour used.
gnus-sum.el (gnus-user-date): Renamed back from gnus-summary-user-date since user code refers to it.
auth-source.el: Rewrite.
gnus.texi: Add DEVEL header (suggested by Andreas Schwab).
WEBHACKDEVEL work:
 Makefile.in (webhack, nowebhack): Hacks to produce for-the-web manuals.
 auth.texi: Use WEBHACKDEVEL.
 emacs-mime.texi: Use WEBHACKDEVEL.
 gnus.texi: Use WEBHACKDEVEL.
 message.texi: Use WEBHACKDEVEL.
 pgg.texi: Use WEBHACKDEVEL.
 sasl.texi: Use WEBHACKDEVEL.
 sieve.texi: Use WEBHACKDEVEL.
 overrides.texi: New file to set or clear WEBHACKDEVEL.
message.el (message-setup-1): Remove the read-only stuff, since it doesn't work under XEmacs, for some reason.

diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index dd7be139b694c061bd9bd36219a54847ff778ae4..56195a907e841c7686c0e24f689ed39f8831f8ed 100644 (file)
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,3 +1,28 @@
+2011-02-04  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * overrides.texi: New file to set or clear WEBHACKDEVEL.
+
+       * sieve.texi: Use WEBHACKDEVEL.
+
+       * sasl.texi: Use WEBHACKDEVEL.
+
+       * pgg.texi: Use WEBHACKDEVEL.
+
+       * message.texi: Use WEBHACKDEVEL.
+
+       * gnus.texi: Use WEBHACKDEVEL.
+
+       * emacs-mime.texi: Use WEBHACKDEVEL.
+
+       * auth.texi: Use WEBHACKDEVEL.
+
+       * Makefile.in (webhack, nowebhack): Hacks to produce for-the-web
+       manuals.
+
+2011-02-04  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus.texi: Add DEVEL header (suggested by Andreas Schwab).
+
 2011-02-03  Paul Eggert  <eggert@cs.ucla.edu>
 
        * texinfo.tex: Update to version 2011-02-01.10 from gnulib,

diff --git a/doc/misc/auth.texi b/doc/misc/auth.texi
index f19d6e28ddb2f8f1b856e9f7905c66358156a7fb..a89018dd00e01112c2a2dc9acad6319af4bd3901 100644 (file)
--- a/doc/misc/auth.texi
+++ b/doc/misc/auth.texi
@@ -1,4 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
+
+@include overrides.texi
+
 @setfilename ../../info/auth
 @settitle Emacs auth-source Library @value{VERSION}
 
@@ -35,7 +38,12 @@ license to the document, as described in section 6 of the license.
 @end direntry
 
 @titlepage
+@ifset WEBHACKDEVEL
+@title Emacs auth-source Library (DEVELOPMENT VERSION)
+@end ifset
+@ifclear WEBHACKDEVEL
 @title Emacs auth-source Library
+@end ifclear
 @author by Ted Zlatanov
 @page
 @vskip 0pt plus 1filll

diff --git a/doc/misc/emacs-mime.texi b/doc/misc/emacs-mime.texi
index 62a43aa11bcb92d6f833a664dd54bd847e50710b..0acb3187157301bde540b475598c7f962c7cb11f 100644 (file)
--- a/doc/misc/emacs-mime.texi
+++ b/doc/misc/emacs-mime.texi
@@ -1,5 +1,7 @@
 \input texinfo
 
+@include overrides.texi
+
 @setfilename ../../info/emacs-mime
 @settitle Emacs MIME Manual
 @synindex fn cp
@@ -38,7 +40,12 @@ developing GNU and promoting software freedom.''
 @setchapternewpage odd
 
 @titlepage
+@ifset WEBHACKDEVEL
+@title Emacs MIME Manual (DEVELOPMENT VERSION)
+@end ifset
+@ifclear WEBHACKDEVEL
 @title Emacs MIME Manual
+@end ifclear
 
 @author by Lars Magne Ingebrigtsen
 @page

diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 936f140af00f9f7d7a232a429797834e63da62bb..83a689fcbc0d36b0f788becd74a45cc003f37eec 100644 (file)
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -1,5 +1,7 @@
 \input texinfo
 
+@include overrides.texi
+
 @setfilename ../../info/gnus
 @settitle Gnus Manual
 @syncodeindex fn cp
@@ -329,7 +331,12 @@ developing GNU and promoting software freedom.''
 
 
 @titlepage
+@ifset WEBHACKDEVEL
+@title Gnus Manual (DEVELOPMENT VERSION)
+@end ifset
+@ifclear WEBHACKDEVEL
 @title Gnus Manual
+@end ifclear
 
 @author by Lars Magne Ingebrigtsen
 @page

diff --git a/doc/misc/message.texi b/doc/misc/message.texi
index 34bd14f2a82a0f82577c14f92ae1d31b32110f32..7a7315d0fa5d769c04636e5b2c41f8a06bd0d0c2 100644 (file)
--- a/doc/misc/message.texi
+++ b/doc/misc/message.texi
@@ -1,5 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
+@include overrides.texi
+
 @setfilename ../../info/message
 @settitle Message Manual
 @synindex fn cp
@@ -34,7 +36,12 @@ developing GNU and promoting software freedom.''
 @end iftex
 
 @titlepage
+@ifset WEBHACKDEVEL
+@title Message Manual (DEVELOPMENT VERSION)
+@end ifset
+@ifclear WEBHACKDEVEL
 @title Message Manual
+@end ifclear
 
 @author by Lars Magne Ingebrigtsen
 @page

diff --git a/doc/misc/overrides.texi b/doc/misc/overrides.texi
new file mode 100644 (file)
index 0000000..369462b
--- /dev/null
+++ b/doc/misc/overrides.texi
@@ -0,0 +1 @@
+@clear WEBHACKDEVEL

diff --git a/doc/misc/pgg.texi b/doc/misc/pgg.texi
index 9bdb1eaa216c1d6e5764863800bb3c2d1edcf31c..3ca26af7b0d3a03a4d0989889bcd7a1519cccd6d 100644 (file)
--- a/doc/misc/pgg.texi
+++ b/doc/misc/pgg.texi
@@ -1,4 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
+
+@include overrides.texi
+
 @setfilename ../../info/pgg
 @settitle PGG @value{VERSION}
 
@@ -30,7 +33,12 @@ developing GNU and promoting software freedom.''
 @end direntry
 
 @titlepage
+@ifset WEBHACKDEVEL
+@title PGG (DEVELOPMENT VERSION)
+@end ifset
+@ifclear WEBHACKDEVEL
 @title PGG
+@end ifclear
 
 @author by Daiki Ueno
 @page

diff --git a/doc/misc/sasl.texi b/doc/misc/sasl.texi
index 99c4c98e439bbb758fa3ead833b5d650060e0caa..d87b5acaf44fc9db4cb2220c9290e5d7d692a143 100644 (file)
--- a/doc/misc/sasl.texi
+++ b/doc/misc/sasl.texi
@@ -1,4 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
+
+@include overrides.texi
+
 @setfilename ../../info/sasl
 
 @set VERSION 0.2
@@ -37,7 +40,12 @@ license to the document, as described in section 6 of the license.
 
 
 @titlepage
+@ifset WEBHACKDEVEL
+@title Emacs SASL Library @value{VERSION} (DEVELOPMENT VERSION)
+@end ifset
+@ifclear WEBHACKDEVEL
 @title Emacs SASL Library @value{VERSION}
+@end ifclear
 
 @author by Daiki Ueno
 @page

diff --git a/doc/misc/sieve.texi b/doc/misc/sieve.texi
index 5c069f619ff1fdb532ef068d327daad710b13bef..52677b57fbed1f8a49cd8ebab478ade7b2aa25b4 100644 (file)
--- a/doc/misc/sieve.texi
+++ b/doc/misc/sieve.texi
@@ -1,4 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
+
+@include overrides.texi
+
 @setfilename ../../info/sieve
 @settitle Emacs Sieve Manual
 @synindex fn cp
@@ -34,7 +37,12 @@ developing GNU and promoting software freedom.''
 @setchapternewpage odd
 
 @titlepage
+@ifset WEBHACKDEVEL
+@title Emacs Sieve Manual (DEVELOPMENT VERSION)
+@end ifset
+@ifclear WEBHACKDEVEL
 @title Emacs Sieve Manual
+@end ifclear
 
 @author by Simon Josefsson
 @page

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 02ec82d06a05333f71075f3e1326be4bbece9370..ceef5e5df2b1db604bcff4a9a432b07d1f40a4d5 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,13 @@
 2011-02-04  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * message.el (message-setup-1): Remove the read-only stuff, since it
+       doesn't work under XEmacs, for some reason.
+
+       * gnus-sum.el (gnus-user-date): Renamed back from
+       gnus-summary-user-date since user code refers to it.
+
+       * shr.el (shr-render-td): Store the actual background colour used.
+
        * message.el (message-setup-1): Don't bind the constant
        -forbidden-properties.
        (message-setup-1): Revert previous change, since it needs to bind the

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index c40fcc7fe137067b63692566355e5c62399f7af1..8221667ab658dfb26afaf83dc097bcd69408d27d 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -1395,7 +1395,7 @@ the normal Gnus MIME machinery."
     (?u gnus-tmp-user-defined ?s)
     (?P (gnus-pick-line-number) ?d)
     (?B gnus-tmp-thread-tree-header-string ?s)
-    (user-date (gnus-summary-user-date
+    (user-date (gnus-user-date
                ,(macroexpand '(mail-header-date gnus-tmp-header))) ?s))
   "An alist of format specifications that can appear in summary lines.
 These are paired with what variables they correspond with, along with
@@ -3882,7 +3882,7 @@ respectively."
 (make-obsolete-variable 'gnus-user-date-format-alist
                         'gnus-summary-user-date-format-alist "24.1")
 
-(defun gnus-summary-user-date (messy-date)
+(defun gnus-user-date (messy-date)
   "Format the messy-date according to `gnus-summary-user-date-format-alist'.
 Returns \"  ?  \" if there's bad input or if another error occurs.
 Input should look like this: \"Sun, 14 Oct 2001 13:34:39 +0200\"."

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 5c24bc886bc5d60048144e3a9e3f481eeb7671c0..37d64bc5f1b02466e38f3069426316636c82d460 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -6411,9 +6411,7 @@ are not included."
          (funcall message-default-headers)
        message-default-headers))
     (or (bolp) (insert ?\n)))
-  (let ((message-forbidden-properties nil))
-    (insert (propertize (concat mail-header-separator "\n")
-                       'read-only t 'rear-nonsticky t 'intangible t)))
+  (insert (concat mail-header-separator "\n"))
   (forward-line -1)
   ;; If a crash happens while replying, the auto-save file would *not* have a
   ;; `References:' header if `message-generate-headers-first' was nil.

diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index 10e04a87d934e36bc57730c7e820556c77784015..5b4e6c7389d3b6e447b1646c2711ad7096cfd68e 100644 (file)
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -601,7 +601,8 @@ ones, in case fg and bg are nil."
        (when fg
          (shr-put-color start end :foreground (cadr new-colors)))
        (when bg
-         (shr-put-color start end :background (car new-colors)))))))
+         (shr-put-color start end :background (car new-colors))))
+      new-colors)))
 
 ;; Put a color in the region, but avoid putting colors on on blank
 ;; text at the start of the line, and the newline at the end, to avoid
@@ -1126,7 +1127,7 @@ ones, in case fg and bg are nil."
          (fgcolor (cdr (assq :fgcolor cont)))
          (style (cdr (assq :style cont)))
          (shr-stylesheet shr-stylesheet)
-         overlays)
+         overlays actual-colors)
       (when style
        (setq style (and (string-match "color" style)
                         (shr-parse-style style))))
@@ -1178,16 +1179,17 @@ ones, in case fg and bg are nil."
                (insert (make-string (- width (current-column)) ? )))
              (forward-line 1)))
          (when style
-           (shr-colorize-region
-            (point-min) (point-max)
-            (cdr (assq 'color shr-stylesheet))
-            (cdr (assq 'background-color shr-stylesheet)))))
+           (setq actual-colors
+                 (shr-colorize-region
+                  (point-min) (point-max)
+                  (cdr (assq 'color shr-stylesheet))
+                  (cdr (assq 'background-color shr-stylesheet))))))
        (if fill
            (list max
                  (count-lines (point-min) (point-max))
                  (split-string (buffer-string) "\n")
                  (shr-collect-overlays)
-                 (cdr (assq 'background-color shr-stylesheet)))
+                 (car actual-colors))
          (list max
                (shr-natural-width)))))))