[gnus git] branch master updated: n0-17-211-ge97bbb5 =6= (nnmaildir-request-accept-article): Don't call `unix-sync' unless it's defined. ; (tiny change) the last change. ; (gnus-article-stop-animations): Use `elt' instead of `aref' for XEmacs compatibiltiy. ; * spam.el (spam-fetch-field-fast): Rewrite slightly for clarity. ; Indent. ; (gnus-summary-refer-thread): Since lambdas aren't closures, quote the form properly

       via  e97bbb51743613bbda521256d15fe713f97aec54 (commit)
       via  9d74488c4d3f62434fbbc5e09d6c2bd027bdd273 (commit)
       via  a52b7d346d2269460ff16e36ab9d4950d3a4874b (commit)
       via  bd089709a3aced42a6efcf250569228cc0a057af (commit)
       via  7b15a1c321fd071d5ef2818c8a51449e6d738193 (commit)
       via  c5b5e43ce281ede19defc7ef717e5197da4dc1d2 (commit)
      from  5f1fb571c66c067dff39fc4f5a23f2545b550a7b (commit)


- Log -----------------------------------------------------------------
commit e97bbb51743613bbda521256d15fe713f97aec54
Author: Lars Ingebrigtsen <[email protected]>
Date:   Sun Jul 31 18:31:09 2011 +0200

    (nnmaildir-request-accept-article): Don't call `unix-sync' unless it's defined.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1aecb80..9730c35 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-31  Lars Ingebrigtsen  <[email protected]>
+
+	* nnmaildir.el (nnmaildir-request-accept-article): Don't call
+	`unix-sync' unless it's defined.
+
 2011-07-31  Marcus Harnisch  <[email protected]>  (tiny change)
 
 	* gnus-art.el (gnus-article-stop-animations): Use `elt' instead of
diff --git a/lisp/nnmaildir.el b/lisp/nnmaildir.el
index 8e2cd4b..bbace7c 100644
--- a/lisp/nnmaildir.el
+++ b/lisp/nnmaildir.el
@@ -1381,7 +1381,8 @@ by nnmaildir-request-article.")
 	(error
 	 (gmm-write-region (point-min) (point-max) tmpfile nil 'no-message nil
 			   'excl)
-	 (unix-sync))) ;; no fsync :(
+	 (when (fboundp 'unix-sync)
+	   (unix-sync)))) ;; no fsync :(
       (nnheader-cancel-timer 24h)
       (condition-case err
 	  (add-name-to-file tmpfile curfile)

commit 9d74488c4d3f62434fbbc5e09d6c2bd027bdd273
Author: Lars Ingebrigtsen <[email protected]>
Date:   Sun Jul 31 18:28:08 2011 +0200

    (tiny change) the last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7811106..1aecb80 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,4 @@
-2011-07-31  Marcus Harnisch  <[email protected]>
+2011-07-31  Marcus Harnisch  <[email protected]>  (tiny change)
 
 	* gnus-art.el (gnus-article-stop-animations): Use `elt' instead of
 	`aref' for XEmacs compatibiltiy.

commit a52b7d346d2269460ff16e36ab9d4950d3a4874b
Author: Marcus Harnisch <[email protected]>
Date:   Sun Jul 31 18:27:02 2011 +0200

    (gnus-article-stop-animations): Use `elt' instead of `aref' for XEmacs compatibiltiy.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 753a411..7811106 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-31  Marcus Harnisch  <[email protected]>
+
+	* gnus-art.el (gnus-article-stop-animations): Use `elt' instead of
+	`aref' for XEmacs compatibiltiy.
+
 2011-07-31  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* spam.el (spam-fetch-field-fast): Rewrite slightly for clarity.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index c29000f..28c6aca 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4541,7 +4541,7 @@ commands:
 (defun gnus-article-stop-animations ()
   (dolist (timer (and (boundp 'timer-list)
 		      timer-list))
-    (when (eq (aref timer 5) 'image-animate-timeout)
+    (when (eq (elt timer 5) 'image-animate-timeout)
       (cancel-timer timer))))
 
 ;; Set article window start at LINE, where LINE is the number of lines

commit bd089709a3aced42a6efcf250569228cc0a057af
Author: Lars Magne Ingebrigtsen <larsi@tmp-office.(none)>
Date:   Sun Jul 31 18:09:58 2011 +0200

    * spam.el (spam-fetch-field-fast): Rewrite slightly for clarity.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3ad7ddd..753a411 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-31  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* spam.el (spam-fetch-field-fast): Rewrite slightly for clarity.
+
 2011-07-31  Dave Abrahams  <[email protected]>  (tiny change)
 
 	* gnus-sum.el (gnus-summary-refer-thread): Since lambdas aren't
diff --git a/lisp/spam.el b/lisp/spam.el
index e0b8299..c7f993d 100644
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -1581,8 +1581,9 @@ to find it out)."
   (when (numberp article)
     (let* ((data-header (or prepared-data-header
                             (spam-fetch-article-header article))))
-      (if (arrayp data-header)
 	  (cond
+       ((not (arrayp data-header))
+        (gnus-message 6 "Article %d has a nil data header" article))
 	   ((equal field 'number)
 	    (mail-header-number data-header))
 	   ((equal field 'from)
@@ -1604,8 +1605,7 @@ to find it out)."
 	     5
 	     "spam-fetch-field-fast: unknown field %s requested"
 	     field)
-	    nil))
-        (gnus-message 6 "Article %d has a nil data header" article)))))
+	nil)))))
 
 (defun spam-fetch-field-from-fast (article &optional prepared-data-header)
   (spam-fetch-field-fast article 'from prepared-data-header))

commit 7b15a1c321fd071d5ef2818c8a51449e6d738193
Author: Lars Magne Ingebrigtsen <larsi@tmp-office.(none)>
Date:   Sun Jul 31 18:08:35 2011 +0200

    Indent.


commit c5b5e43ce281ede19defc7ef717e5197da4dc1d2
Author: Dave Abrahams <[email protected]>
Date:   Sun Jul 31 18:01:37 2011 +0200

    (gnus-summary-refer-thread): Since lambdas aren't closures, quote the form properly

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0dc448..3ad7ddd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-31  Dave Abrahams  <[email protected]>  (tiny change)
+
+	* gnus-sum.el (gnus-summary-refer-thread): Since lambdas aren't
+	closures, quote the form properly (bug#9194).
+
 2011-07-31  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* gnus-sum.el (gnus-summary-insert-new-articles): Clean up slightly.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 80e40c4..a8cf5e7 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9015,9 +9015,9 @@ non-numeric or nil fetch the number specified by the
 		   (refs (split-string (or (mail-header-references header)
 					   "")))
 		   (gnus-parse-headers-hook
-		    (lambda () (goto-char (point-min))
+		    `(lambda () (goto-char (point-min))
 		      (keep-lines
-		       (regexp-opt (append refs (list id subject)))))))
+		       (regexp-opt ',(append refs (list id subject)))))))
 	      (gnus-fetch-headers (list last) (if (numberp limit)
 						  (* 2 limit) limit) t)))))
     (when (listp new-headers)

-----------------------------------------------------------------------
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    |   19 +++++++++++++++++++
 lisp/gnus-art.el  |    2 +-
 lisp/gnus-sum.el  |    4 ++--
 lisp/nnmaildir.el |    3 ++-
 lisp/spam.el      |   50 +++++++++++++++++++++++++-------------------------
 5 files changed, 49 insertions(+), 29 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