[gnus git] branch master updated: =3= (article-update-date-lapsed): Make sure the window start doesn't move, either. ; Indent. ; Rip out the old -treat-date-* stuff, since it didn't really work with defcustom.

       via  6c2c3479dcaf5171b77e24aa72b442eb1e36f7d7 (commit)
       via  d8bd31affdcf43981dc661dded5037657ce0a8a2 (commit)
       via  8045202b562024da892e536862a7b9b8345f9dbb (commit)
      from  7299829ef7be3974c2979eed9a216307730daf62 (commit)


- Log -----------------------------------------------------------------
commit 6c2c3479dcaf5171b77e24aa72b442eb1e36f7d7
Author: Lars Ingebrigtsen <[email protected]>
Date:   Wed Feb 2 21:13:12 2011 -0800

    (article-update-date-lapsed): Make sure the window start doesn't move, either.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6706676..31dc090 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,8 @@
 	gnus-article-update-date-headers is nil.
 	(gnus-article-date-headers): Rip out the old -treat-date-* stuff, since
 	it didn't really work with defcustom.
+	(article-update-date-lapsed): Make sure the window start doesn't move,
+	either.
 
 2011-02-01  Julien Danjou  <[email protected]>
 
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 0155afe..e9a0261 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3628,15 +3628,25 @@ function and want to see what the date was before converting."
 	   (set-buffer (window-buffer w))
 	   (when (eq major-mode 'gnus-article-mode)
 	     (let ((old-line (count-lines (point-min) (point)))
-		   (old-column (- (point) (line-beginning-position))))
+		   (old-column (- (point) (line-beginning-position)))
+		   (window-start
+		    (window-start (get-buffer-window (current-buffer)))))
 	       (goto-char (point-min))
 	       (while (re-search-forward "^Date:" nil t)
 		 (let ((type (get-text-property (match-beginning 0)
 						'gnus-date-type)))
 		   (when (memq type '(lapsed combined-lapsed user-format))
+		     (unless (= window-start
+				(save-excursion
+				  (forward-line 1)
+				  (point)))
+		       (setq window-start nil))
 		     (save-excursion
 		       (article-date-ut type t (match-beginning 0)))
-		     (forward-line 1))))
+		     (forward-line 1)
+		     (when window-start
+		       (set-window-start (get-buffer-window (current-buffer))
+					 (point))))))
 	       (goto-char (point-min))
 	       (when (> old-column 0)
 		 (setq old-line (1- old-line)))

commit d8bd31affdcf43981dc661dded5037657ce0a8a2
Author: Lars Ingebrigtsen <[email protected]>
Date:   Wed Feb 2 21:01:06 2011 -0800

    Indent.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index d8876fd..0155afe 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3631,7 +3631,8 @@ function and want to see what the date was before converting."
 		   (old-column (- (point) (line-beginning-position))))
 	       (goto-char (point-min))
 	       (while (re-search-forward "^Date:" nil t)
-		 (let ((type (get-text-property (match-beginning 0) 'gnus-date-type)))
+		 (let ((type (get-text-property (match-beginning 0)
+						'gnus-date-type)))
 		   (when (memq type '(lapsed combined-lapsed user-format))
 		     (save-excursion
 		       (article-date-ut type t (match-beginning 0)))

commit 8045202b562024da892e536862a7b9b8345f9dbb
Author: Lars Ingebrigtsen <[email protected]>
Date:   Wed Feb 2 20:14:26 2011 -0800

    Rip out the old -treat-date-* stuff, since it didn't really work with defcustom.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 68812c8..6706676 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
 	* gnus-art.el (gnus-article-setup-buffer): Stop the date timer if
 	gnus-article-update-date-headers is nil.
+	(gnus-article-date-headers): Rip out the old -treat-date-* stuff, since
+	it didn't really work with defcustom.
 
 2011-02-01  Julien Danjou  <[email protected]>
 
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index bddcaa9..d8876fd 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1014,24 +1014,7 @@ on parts -- for instance, adding Vcard info to a database."
   :group 'gnus-article-mime
   :type '(repeat (cons :format "%v" (string :tag "MIME type") function)))
 
-(defcustom gnus-article-date-headers
-  (let ((types '(ut local english lapsed combined-lapsed
-		    iso8601 original user-defined))
-	default)
-    ;; Try to respect the legacy `gnus-treat-date-*' variables, if
-    ;; they're set.
-    (dolist (type types)
-      (let ((variable (intern (format "gnus-treat-date-%s" type))))
-	(when (and (boundp variable)
-		   (symbol-value variable))
-	  (push type default))))
-    (when (and (or (not (boundp (intern "gnus-article-date-lapsed-new-header")))
-		   (not (symbol-value (intern "gnus-article-date-lapsed-new-header"))))
-	       (memq 'lapsed default))
-      (setq default (delq 'lapsed default)))
-    (or default
-	;; If they weren't set, we default to `combined-lapsed'.
-	'(combined-lapsed)))
+(defcustom gnus-article-date-headers '(combined-lapsed)
   "A list of Date header formats to display.
 Valid formats are `ut' (universal time), `local' (local time
 zone), `english' (readable English), `lapsed' (elapsed time),

-----------------------------------------------------------------------
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   |    4 ++++
 lisp/gnus-art.el |   36 +++++++++++++++---------------------
 2 files changed, 19 insertions(+), 21 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