[gnus git] branch master updated: =5= Doc typo. ; (gnus-draft-clear-marks): New function to be run as an exit hook to nix out all data on readedness on group exit. ; (time-date): Require to make some autoload issues on XEmacs go away. ; (float-time): If float-time is bound, always use it on all Emacsen. ; (shr-put-color): Don't do the box padding in tables, since they're already padded.

       via  c869b8fef7f7626a811e08ad80eb69aa3f58c5a2 (commit)
       via  01880441ddc39f58683c7a05c7cbc40570de9624 (commit)
       via  3180304448562006442bf7e25044f353830942f6 (commit)
       via  c1a861ac015183213422f19903d1c347ac7b9a05 (commit)
       via  01ef1ae20e72d236d7ef405b2748361548fcc0bc (commit)
      from  85148cc66e2b9ea96ed9373e892aacd718c53d69 (commit)


- Log -----------------------------------------------------------------
commit c869b8fef7f7626a811e08ad80eb69aa3f58c5a2
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Wed Jan 26 17:22:47 2011 -0800

    Doc typo.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 8731668..e709b71 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -359,7 +359,7 @@ first subject), `unread' (place point on the subject line of the first
 unread article), `best' (place point on the subject line of the
 higest-scored article), `unseen' (place point on the subject line of
 the first unseen article), `unseen-or-unread' (place point on the subject
-line of the first unseen article or, if all article have been seen, on the
+line of the first unseen article or, if all articles have been seen, on the
 subject line of the first unread article), or a function to be called to
 place point on some subject line."
   :version "24.1"

commit 01880441ddc39f58683c7a05c7cbc40570de9624
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Wed Jan 26 17:17:43 2011 -0800

    (gnus-draft-clear-marks): New function to be run as an exit hook to nix out all data on readedness on group exit.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bdf7d87..5f7e090 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-01-27  Lars Ingebrigtsen  <[email protected]>
 
+	* gnus-draft.el (gnus-draft-clear-marks): New function to be run as an
+	exit hook to nix out all data on readedness on group exit.
+
 	* gnus-util.el (float-time): If float-time is bound, always use it on
 	all Emacsen.  It's unclear why the subrp check was there.
 	(time-date): Require to make some autoload issues on XEmacs go away.
diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index e1a90fc..78ef713 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -68,7 +68,8 @@
    (gnus-draft-mode
     ;; Set up the menu.
     (when (gnus-visual-p 'draft-menu 'menu)
-      (gnus-draft-make-menu-bar)))))
+      (gnus-draft-make-menu-bar))
+    (add-hook 'gnus-summary-prepare-exit-hook 'gnus-draft-clear-marks t t))))
 
 ;;; Commands
 
@@ -325,6 +326,12 @@ Obeys the standard process/prefix convention."
 	    (pop-to-buffer buff t)))
 	(error "The draft %s is under edit" file)))))
 
+(defun gnus-draft-clear-marks ()
+  (setq gnus-newsgroup-reads nil
+	gnus-newsgroup-marked nil
+	gnus-newsgroup-unreads
+	(gnus-uncompress-range (gnus-active gnus-newsgroup-name))))
+
 (provide 'gnus-draft)
 
 ;;; gnus-draft.el ends here

commit 3180304448562006442bf7e25044f353830942f6
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Wed Jan 26 16:31:22 2011 -0800

    (time-date): Require to make some autoload issues on XEmacs go away.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d3ef27b..bdf7d87 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
 	* gnus-util.el (float-time): If float-time is bound, always use it on
 	all Emacsen.  It's unclear why the subrp check was there.
+	(time-date): Require to make some autoload issues on XEmacs go away.
 
 	* shr.el (shr-put-color): Don't do the box padding in tables, since
 	they're already padded.
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index ef99bcc..f1d0ce9 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -38,6 +38,8 @@
 (eval-when-compile
   (require 'cl))
 
+(require 'time-date)
+
 (defcustom gnus-completing-read-function 'gnus-emacs-completing-read
   "Function use to do completing read."
   :version "24.1"

commit c1a861ac015183213422f19903d1c347ac7b9a05
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Wed Jan 26 16:30:28 2011 -0800

    (float-time): If float-time is bound, always use it on all Emacsen.
    
    It's unclear why the subrp check was there.  If it turns out to be
    necessary, this patch should be reverted, and a comment saying why
    it't that way should be added.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0c5a60..d3ef27b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-01-27  Lars Ingebrigtsen  <[email protected]>
 
+	* gnus-util.el (float-time): If float-time is bound, always use it on
+	all Emacsen.  It's unclear why the subrp check was there.
+
 	* shr.el (shr-put-color): Don't do the box padding in tables, since
 	they're already padded.
 
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index fc3c0b4..ef99bcc 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -332,9 +332,7 @@ Symbols are also allowed; their print names are used instead."
 	     (> (nth 1 fdate) (nth 1 date))))))
 
 (eval-and-compile
-  (if (or (featurep 'emacs)
-	  (and (fboundp 'float-time)
-	       (subrp (symbol-function 'float-time))))
+  (if (fboundp 'float-time)
       (defalias 'gnus-float-time 'float-time)
     (defun gnus-float-time (&optional time)
       "Convert time value TIME to a floating point number.

commit 01ef1ae20e72d236d7ef405b2748361548fcc0bc
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Wed Jan 26 16:18:48 2011 -0800

    (shr-put-color): Don't do the box padding in tables, since they're already padded.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 900b5a5..e0c5a60 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-27  Lars Ingebrigtsen  <[email protected]>
+
+	* shr.el (shr-put-color): Don't do the box padding in tables, since
+	they're already padded.
+
 2011-01-26  Lars Ingebrigtsen  <[email protected]>
 
 	* gnus-art.el (gnus-article-next-page): When the last line of the
diff --git a/lisp/shr.el b/lisp/shr.el
index 2f47585..899a5de 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -619,7 +619,8 @@ ones, in case fg and bg are nil."
       (if (< (line-end-position) end)
 	  (forward-line 1)
 	(goto-char end)))
-    (when (eq type :background)
+    (when (and (eq type :background)
+	       (= shr-table-depth 0))
       (shr-expand-newlines start end color))))
 
 (defun shr-expand-newlines (start end color)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog     |   12 ++++++++++++
 lisp/gnus-draft.el |    9 ++++++++-
 lisp/gnus-sum.el   |    2 +-
 lisp/gnus-util.el  |    6 +++---
 lisp/shr.el        |    3 ++-
 5 files changed, 26 insertions(+), 6 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project